godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added filename check

Browse Source
This commit is contained in:
ceriel 1992-05-11 11:52:22 +00:00
parent 96804aa49b
commit 63828b7256
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lang/m2/comp/program.g
View File

@ -235,9 +235,15 @@ definition
ProgramModule ProgramModule
{ {
register t_def *df; register t_def *df;
int len;
} : } :
MODULE MODULE
IDENT { if (state == IMPLEMENTATION) { IDENT { len = strlen(dot.TOK_IDF->id_text);
if (len > 10) len = 10;
if (strncmp(FileName, dot.TOK_IDF->id_text, 10)) {
warning(W_ORDINARY, "modulename %s does not match filename %s", dot.TOK_IDF->id_text, FileName);
}
if (state == IMPLEMENTATION) {
df = GetDefinitionModule(dot.TOK_IDF, 0); df = GetDefinitionModule(dot.TOK_IDF, 0);
CurrVis = df->mod_vis; CurrVis = df->mod_vis;
} }