paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-04 09:50:31 +01:00
Code Issues Packages Projects Releases Wiki Activity

* it makes no sense to search the windows dirs for dlls when cross compiling

Browse Source 
git-svn-id: trunk@17687 -
This commit is contained in:
florian 2011-06-07 19:24:53 +00:00
parent eb51c6f1b6
commit 81bd7867b3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/link.pas
View File

@ -249,7 +249,9 @@ Implementation
Found:=FindFile(s,'.'+source_info.DirSep,false,founddll);
if (not found) then
Found:=librarysearchpath.FindFile(s,false,founddll);
if (not found) then
{ when cross compiling, it is pretty useless to search windir etc. for dlls }
if (not found) and (source_info.system=target_info.system) then
begin
sysdir:=FixPath(GetEnvironmentVariable('windir'),false);
Found:=FindFile(s,sysdir+';'+sysdir+'system'+source_info.DirSep+';'+sysdir+'system32'+source_info.DirSep,false,founddll);