Browse Source

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.

dtrg 18 years ago
parent
commit
ce6de53e60
1 changed files with 7 additions and 2 deletions
  1. 7 2
      lang/m2/comp/program.g

+ 7 - 2
lang/m2/comp/program.g

@@ -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;