Преглед изворни кода

* first check .inc file extension

carl пре 23 година
родитељ
комит
572b87cade
1 измењених фајлова са 7 додато и 4 уклоњено
  1. 7 4
      compiler/scanner.pas

+ 7 - 4
compiler/scanner.pas

@@ -746,9 +746,9 @@ implementation
            found:=findincludefile(path,name,ext,foundfile);
            if (ext='') then
             begin
-              { try default extensions .pp and .pas }
-{              if (not found) then
-               found:=findincludefile(path,name,'.inc',foundfile);}
+              { try default extensions .inc , .pp and .pas }
+              if (not found) then
+               found:=findincludefile(path,name,'.inc',foundfile);
               if (not found) then
                found:=findincludefile(path,name,target_info.sourceext,foundfile);
               if (not found) then
@@ -2758,7 +2758,10 @@ exit_label:
 end.
 {
   $Log$
-  Revision 1.34  2002-04-21 07:24:09  carl
+  Revision 1.35  2002-04-21 15:22:26  carl
+  * first check .inc file extension
+
+  Revision 1.34  2002/04/21 07:24:09  carl
   - remove my fixes until Peter agrees on the fix (sorry Peter)
 
   Revision 1.32  2002/04/19 15:42:11  peter