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

* respect Dontlinkstdlibpath when adding a default library search path

Browse Source 
git-svn-id: trunk@22011 -
This commit is contained in:
florian 2012-08-04 17:29:07 +00:00
parent 19ed835f2b
commit ad3aa937d3
1 changed files with 5 additions and 4 deletions

9
compiler/systems/t_linux.pas
View File

@ -112,12 +112,12 @@ procedure SetupLibrarySearchPath;
begin
if not Dontlinkstdlibpath Then
{$ifdef x86_64}
LibrarySearchPath.AddPath(sysrootpath,'/lib64;/usr/lib64;/usr/X11R6/lib64',true);
LibrarySearchPath.AddPath(sysrootpath,'/lib64;/usr/lib64;/usr/X11R6/lib64',true);
{$else}
{$ifdef powerpc64}
LibrarySearchPath.AddPath(sysrootpath,'/lib64;/usr/lib64;/usr/X11R6/lib64',true);
LibrarySearchPath.AddPath(sysrootpath,'/lib64;/usr/lib64;/usr/X11R6/lib64',true);
{$else powerpc64}
LibrarySearchPath.AddPath(sysrootpath,'/lib;/usr/lib;/usr/X11R6/lib',true);
LibrarySearchPath.AddPath(sysrootpath,'/lib;/usr/lib;/usr/X11R6/lib',true);
{$endif powerpc64}
{$endif x86_64}
@ -125,7 +125,8 @@ begin
{$ifdef FPC_ARMHF}
{ at least raspian has the crt*.o files at an uncommon location,
for other arm flavours, this cannot hurt }
LibrarySearchPath.AddPath(sysrootpath,'/usr/lib/arm-linux-gnueabihf',true);
if not Dontlinkstdlibpath Then
LibrarySearchPath.AddPath(sysrootpath,'/usr/lib/arm-linux-gnueabihf',true);
{$endif FPC_ARMHF}
{$endif arm}
end;