paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 01:51:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

* avoid searching of include file in start dir first

Browse Source
This commit is contained in:
pierre 2000-01-14 14:28:40 +00:00
parent 9694a38178
commit 170d305b21
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/scandir.inc
View File

@ -652,7 +652,9 @@ const
2. local includepath 2. local includepath
3. global includepath } 3. global includepath }
found:=false; found:=false;
path:=FindFile(name+ext,path+';'+current_scanner^.inputfile^.path^+';.',found); if path<>'' then
path:=path+';';
path:=FindFile(name+ext,path+current_scanner^.inputfile^.path^+';.'+DirSep,found);
if (not found) then if (not found) then
path:=current_module^.localincludesearchpath.FindFile(name+ext,found); path:=current_module^.localincludesearchpath.FindFile(name+ext,found);
if (not found) then if (not found) then
@ -1250,7 +1252,10 @@ const
{ {
$Log$ $Log$
Revision 1.72 2000-01-07 01:14:37 peter Revision 1.73 2000-01-14 14:28:40 pierre
* avoid searching of include file in start dir first
Revision 1.72 2000/01/07 01:14:37 peter
* updated copyright to 2000 * updated copyright to 2000
Revision 1.71 2000/01/04 15:15:53 florian Revision 1.71 2000/01/04 15:15:53 florian
@ -1352,4 +1357,4 @@ const
is not enabled when quitting global section is not enabled when quitting global section
* local vars and procedures are not yet stored into PPU * local vars and procedures are not yet stored into PPU
} }