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

* expand the paths in the PATH when searching for executables

Browse Source 
(e.g. ~/bin)

git-svn-id: trunk@5364 -
This commit is contained in:
Jonas Maebe 2006-11-13 22:03:49 +00:00
parent 9ae8e9fa21
commit 25e9a60553
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/cfileutils.pas
View File

@ -1003,7 +1003,7 @@ implementation
inc(pc);
move(startpc^,singlepathstring[1],pc-startpc);
singlepathstring[0]:=char(longint(pc-startpc));
singlepathstring:=FixPath(singlepathstring,false);
singlepathstring:=FixPath(ExpandFileName(singlepathstring),false);
result:=FileExistsNonCase(singlepathstring,f,allowcache,FoundFile);
if result then
exit;