Fix in previous added check

This commit is contained in:
ceriel 1992-05-11 16:15:28 +00:00
parent 763c607bd8
commit f252e26ab4

View file

@ -240,7 +240,7 @@ ProgramModule
MODULE MODULE
IDENT { len = strlen(dot.TOK_IDF->id_text); IDENT { len = strlen(dot.TOK_IDF->id_text);
if (len > 10) len = 10; if (len > 10) len = 10;
if (strncmp(FileName, dot.TOK_IDF->id_text, 10)) { if (strncmp(FileName, dot.TOK_IDF->id_text, len)) {
warning(W_ORDINARY, "modulename %s does not match filename %s", dot.TOK_IDF->id_text, FileName); warning(W_ORDINARY, "modulename %s does not match filename %s", dot.TOK_IDF->id_text, FileName);
} }
if (state == IMPLEMENTATION) { if (state == IMPLEMENTATION) {