Updating an error message

This commit is contained in:
Frederic Petrot 2002-05-02 12:19:36 +00:00
parent d3033d6016
commit 3f1cca11b0
1 changed files with 1 additions and 1 deletions

View File

@ -3458,7 +3458,7 @@ ptype_list *p = getptype(WORK_LOFIG->USER, LOGEN);
if (type != INTEGER_GEN && type != STRING_GEN) { if (type != INTEGER_GEN && type != STRING_GEN) {
(void)fflush(stdout); (void)fflush(stdout);
(void)fputs("*** genlib error ***\n", stderr); (void)fputs("*** genlib error ***\n", stderr);
(void)fprintf(stderr, "Illegal SETLOGEN: unsupported generic type\n"); (void)fprintf(stderr, "Illegal LOGEN: unsupported generic type\n");
EXIT(1); EXIT(1);
} }
((logen_list *)p->DATA)->TYPE = type; ((logen_list *)p->DATA)->TYPE = type;