Cope with indicator arrays that do not have the correct length.

Patch by: "Rader, David" <davidr@openscg.com>

diff --git a/src/interfaces/ecpg/preproc/type.c b/src/interfaces/ecpg/preproc/type.c
index 0b84b8d3c476aa35413b66fb8f80a734a747a705..3a5993836acf56623b4bebcfa63e86adfd1e5bfc 100644 (file)
--- a/src/interfaces/ecpg/preproc/type.c
+++ b/src/interfaces/ecpg/preproc/type.c
@@ -609,7 +609,17 @@ ECPGdump_a_struct(FILE *o, const char *name, const char *ind_name, char *arrsiz,
                                                prefix, ind_prefix, arrsiz, type->struct_sizeof,
                                                (ind_p != NULL) ? ind_type->struct_sizeof : NULL);
                if (ind_p != NULL && ind_p != &struct_no_indicator)
+               {
                        ind_p = ind_p->next;
+                       if (ind_p == NULL && p->next != NULL) {
+                               mmerror(PARSE_ERROR, ET_WARNING, "indicator struct \"%s\" has too few members", ind_name);
+                               ind_p = &struct_no_indicator;
+                       }
+               }
+       }
+
+       if (ind_type != NULL && ind_p != NULL && ind_p != &struct_no_indicator) {
+               mmerror(PARSE_ERROR, ET_WARNING, "indicator struct \"%s\" has too many members", ind_name);
        }
 
        free(pbuf);