Browse Source

+ fixed dir_include search() call

michael 27 years ago
parent
commit
79b246c1d7
1 changed files with 5 additions and 2 deletions
  1. 5 2
      compiler/scandir.inc

+ 5 - 2
compiler/scandir.inc

@@ -489,7 +489,7 @@ const
         hs:=FixFileName(hs);
         hs:=FixFileName(hs);
         fsplit(hs,path,name,ext);
         fsplit(hs,path,name,ext);
       { first look in the path of _d then currentmodule }
       { first look in the path of _d then currentmodule }
-        path:=search(hs,path+';'+current_scanner^.inputfile^.path^+';'+includesearchpath,found);
+        path:=search(name+ext,path+';'+current_scanner^.inputfile^.path^+';'+includesearchpath,found);
       { shutdown current file }
       { shutdown current file }
         current_scanner^.close;
         current_scanner^.close;
       { load new file }
       { load new file }
@@ -706,7 +706,10 @@ const
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.15  1998-07-14 21:46:55  peter
+  Revision 1.16  1998-08-04 22:03:44  michael
+  + fixed dir_include search() call
+
+  Revision 1.15  1998/07/14 21:46:55  peter
     * updated messages file
     * updated messages file
 
 
   Revision 1.14  1998/07/14 14:47:03  peter
   Revision 1.14  1998/07/14 14:47:03  peter