d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Filename check now only for implementation modules

Browse source
This commit is contained in:
ceriel 1992-05-15 13:53:36 +00:00
parent 4f11d0433d
commit 5362ef6f20
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lang/m2/comp/program.g
View file

@ -235,15 +235,16 @@ definition
ProgramModule
{
register t_def *df;
int len;
} :
MODULE
IDENT { len = strlen(dot.TOK_IDF->id_text);
if (len > 10) len = 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);
}
IDENT {
if (state == IMPLEMENTATION) {
int len = strlen(dot.TOK_IDF->id_text);
if (len > 10) len = 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);
}
df = GetDefinitionModule(dot.TOK_IDF, 0);
CurrVis = df->mod_vis;
}