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

Adjusted to only check the module name against the leaf of the filename, to prevent unnecessary warnings if the source file isn't in the current directory.

Browse Source
This commit is contained in:
dtrg
2006-07-30 23:38:41 +00:00
parent c308262eb6
commit ce6de53e60
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -236,10 +236,15 @@ ProgramModule
{
if (state == IMPLEMENTATION) {
int len = strlen(dot.TOK_IDF->id_text);
char* leafname = strrchr(FileName, '/');
if (leafname)
leafname++;
else
leafname = FileName;
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);
if (strncmp(leafname, dot.TOK_IDF->id_text, len)) {
warning(W_ORDINARY, "modulename %s does not match filename %s", dot.TOK_IDF->id_text, leafname);
}
df = GetDefinitionModule(dot.TOK_IDF, 0);
CurrVis = df->mod_vis;