paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 06:54:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed linux compile

Browse Source 
git-svn-id: trunk@5117 -
This commit is contained in:
peter 2006-10-31 11:35:54 +00:00
parent 9238003e4f
commit d21842fe61
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/globals.pas
View File

@ -1108,7 +1108,7 @@ implementation
{$else macos}
p:=GetEnvPchar('PATH');
{$endif macos}
FindFilePChar(hs1,p,exepath);
FindFilePChar(hs1,p,false,exepath);
FreeEnvPChar(p);
exepath:=ExtractFilePath(exepath);
end;

2
compiler/options.pas
View File

@ -2134,7 +2134,7 @@ begin
fpcdir:=FixPath(GetEnvironmentVariable('FPCDIR'),false);
if fpcdir='' then
begin
if PathExists('/usr/local/lib/fpc/'+version_string) then
if PathExists('/usr/local/lib/fpc/'+version_string,true) then
fpcdir:='/usr/local/lib/fpc/'+version_string+'/'
else
fpcdir:='/usr/lib/fpc/'+version_string+'/';