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 6c2645965eebd92c8bc6a66d133a3a83d5f5245c..9d59167750d534d5bdcbb25d33d982dc2f2ce9d8 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);