paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 02:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also check currnet dir when searching source files

Browse Source
This commit is contained in:
peter 2003-12-14 18:13:18 +00:00
parent ae1f7f63b6
commit b052265ecb
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/fppu.pas
View File

@ -639,7 +639,11 @@ uses
end end
else else
begin begin
{ check the date of the source files } { check the date of the source files:
1 path of ppu
2 path of main source
3 current dir
4 include/unit path }
Source_Time:=GetNamedFileTime(path^+hs); Source_Time:=GetNamedFileTime(path^+hs);
found:=false; found:=false;
if Source_Time<>-1 then if Source_Time<>-1 then
@ -651,6 +655,8 @@ uses
if Source_Time<>-1 then if Source_Time<>-1 then
hs:=main_dir+hs; hs:=main_dir+hs;
end; end;
if Source_Time=-1 then
Source_Time:=GetNamedFileTime(hs);
if (Source_Time=-1) then if (Source_Time=-1) then
begin begin
if is_main then if is_main then
@ -1501,7 +1507,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.47 2003-11-28 17:23:16 peter Revision 1.48 2003-12-14 18:13:18 peter
* also check currnet dir when searching source files
Revision 1.47 2003/11/28 17:23:16 peter
* serach also in include path for used files * serach also in include path for used files
Revision 1.46 2003/11/03 12:32:48 marco Revision 1.46 2003/11/03 12:32:48 marco