paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-22 23:19:27 +01: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); inc(pc);
move(startpc^,singlepathstring[1],pc-startpc); move(startpc^,singlepathstring[1],pc-startpc);
singlepathstring[0]:=char(longint(pc-startpc)); singlepathstring[0]:=char(longint(pc-startpc));
singlepathstring:=FixPath(singlepathstring,false); singlepathstring:=FixPath(ExpandFileName(singlepathstring),false);
result:=FileExistsNonCase(singlepathstring,f,allowcache,FoundFile); result:=FileExistsNonCase(singlepathstring,f,allowcache,FoundFile);
if result then if result then
exit; exit;