diff options
Diffstat (limited to 'src/interfaces/ecpg/preproc/variable.c')
| -rw-r--r-- | src/interfaces/ecpg/preproc/variable.c | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/src/interfaces/ecpg/preproc/variable.c b/src/interfaces/ecpg/preproc/variable.c index 6ff574bbd92..cc923a797bc 100644 --- a/src/interfaces/ecpg/preproc/variable.c +++ b/src/interfaces/ecpg/preproc/variable.c @@ -86,7 +86,7 @@ find_struct_member(char *name, char *str, struct ECPGstruct_member * members, in case '\0': /* found the end, but this time it has to be * an array element */ if (members->type->type != ECPGt_array) - mmerror(PARSE_ERROR, ET_FATAL, "incorrectly formed variable \"%s\"", name); + mmfatal(PARSE_ERROR, "incorrectly formed variable \"%s\"", name); switch (members->type->u.element->type) { @@ -113,7 +113,7 @@ find_struct_member(char *name, char *str, struct ECPGstruct_member * members, in return (find_struct_member(name, end, members->type->u.members, brace_level)); break; default: - mmerror(PARSE_ERROR, ET_FATAL, "incorrectly formed variable \"%s\"", name); + mmfatal(PARSE_ERROR, "incorrectly formed variable \"%s\"", name); break; } } @@ -136,10 +136,10 @@ find_struct(char *name, char *next, char *end) if (c == '-') { if (p->type->type != ECPGt_array) - mmerror(PARSE_ERROR, ET_FATAL, "variable \"%s\" is not a pointer", name); + mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer", name); if (p->type->u.element->type != ECPGt_struct && p->type->u.element->type != ECPGt_union) - mmerror(PARSE_ERROR, ET_FATAL, "variable \"%s\" is not a pointer to a structure or a union", name); + mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer to a structure or a union", name); /* restore the name, we will need it later */ *next = c; @@ -151,7 +151,7 @@ find_struct(char *name, char *next, char *end) if (next == end) { if (p->type->type != ECPGt_struct && p->type->type != ECPGt_union) - mmerror(PARSE_ERROR, ET_FATAL, "variable \"%s\" is neither a structure nor a union", name); + mmfatal(PARSE_ERROR, "variable \"%s\" is neither a structure nor a union", name); /* restore the name, we will need it later */ *next = c; @@ -161,10 +161,10 @@ find_struct(char *name, char *next, char *end) else { if (p->type->type != ECPGt_array) - mmerror(PARSE_ERROR, ET_FATAL, "variable \"%s\" is not an array", name); + mmfatal(PARSE_ERROR, "variable \"%s\" is not an array", name); if (p->type->u.element->type != ECPGt_struct && p->type->u.element->type != ECPGt_union) - mmerror(PARSE_ERROR, ET_FATAL, "variable \"%s\" is not a pointer to a structure or a union", name); + mmfatal(PARSE_ERROR, "variable \"%s\" is not a pointer to a structure or a union", name); /* restore the name, we will need it later */ *next = c; @@ -230,7 +230,7 @@ find_variable(char *name) *next = '\0'; p = find_simple(name); if (p == NULL) - mmerror(PARSE_ERROR, ET_FATAL, "variable \"%s\" is not declared", name); + mmfatal(PARSE_ERROR, "variable \"%s\" is not declared", name); *next = c; switch (p->type->u.element->type) @@ -252,7 +252,7 @@ find_variable(char *name) p = find_simple(name); if (p == NULL) - mmerror(PARSE_ERROR, ET_FATAL, "variable \"%s\" is not declared", name); + mmfatal(PARSE_ERROR, "variable \"%s\" is not declared", name); return (p); } @@ -497,7 +497,7 @@ get_typedef(char *name) for (this = types; this && strcmp(this->name, name) != 0; this = this->next); if (!this) - mmerror(PARSE_ERROR, ET_FATAL, "unrecognized data type name \"%s\"", name); + mmfatal(PARSE_ERROR, "unrecognized data type name \"%s\"", name); return (this); } @@ -508,7 +508,7 @@ adjust_array(enum ECPGttype type_enum, char **dimension, char **length, char *ty if (atoi(type_index) >= 0) { if (atoi(*length) >= 0) - mmerror(PARSE_ERROR, ET_FATAL, "multidimensional arrays are not supported"); + mmfatal(PARSE_ERROR, "multidimensional arrays are not supported"); *length = type_index; } @@ -516,7 +516,7 @@ adjust_array(enum ECPGttype type_enum, char **dimension, char **length, char *ty if (atoi(type_dimension) >= 0) { if (atoi(*dimension) >= 0 && atoi(*length) >= 0) - mmerror(PARSE_ERROR, ET_FATAL, "multidimensional arrays are not supported"); + mmfatal(PARSE_ERROR, "multidimensional arrays are not supported"); if (atoi(*dimension) >= 0) *length = *dimension; @@ -525,18 +525,18 @@ adjust_array(enum ECPGttype type_enum, char **dimension, char **length, char *ty } if (pointer_len > 2) - mmerror(PARSE_ERROR, ET_FATAL, ngettext("multilevel pointers (more than 2 levels) are not supported; found %d level", + mmfatal(PARSE_ERROR, ngettext("multilevel pointers (more than 2 levels) are not supported; found %d level", "multilevel pointers (more than 2 levels) are not supported; found %d levels", pointer_len), pointer_len); if (pointer_len > 1 && type_enum != ECPGt_char && type_enum != ECPGt_unsigned_char && type_enum != ECPGt_string) - mmerror(PARSE_ERROR, ET_FATAL, "pointer to pointer is not supported for this data type"); + mmfatal(PARSE_ERROR, "pointer to pointer is not supported for this data type"); if (pointer_len > 1 && (atoi(*length) >= 0 || atoi(*dimension) >= 0)) - mmerror(PARSE_ERROR, ET_FATAL, "multidimensional arrays are not supported"); + mmfatal(PARSE_ERROR, "multidimensional arrays are not supported"); if (atoi(*length) >= 0 && atoi(*dimension) >= 0 && pointer_len) - mmerror(PARSE_ERROR, ET_FATAL, "multidimensional arrays are not supported"); + mmfatal(PARSE_ERROR, "multidimensional arrays are not supported"); switch (type_enum) { @@ -550,7 +550,7 @@ adjust_array(enum ECPGttype type_enum, char **dimension, char **length, char *ty } if (atoi(*length) >= 0) - mmerror(PARSE_ERROR, ET_FATAL, "multidimensional arrays for structures are not supported"); + mmfatal(PARSE_ERROR, "multidimensional arrays for structures are not supported"); break; case ECPGt_varchar: @@ -611,7 +611,7 @@ adjust_array(enum ECPGttype type_enum, char **dimension, char **length, char *ty } if (atoi(*length) >= 0) - mmerror(PARSE_ERROR, ET_FATAL, "multidimensional arrays for simple data types are not supported"); + mmfatal(PARSE_ERROR, "multidimensional arrays for simple data types are not supported"); break; } |