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

* fixes TSearchPathList.AddPath after r43279 (without this commit, tests/test/tudots2.pp is broken)

Browse Source 
git-svn-id: trunk@43302 -
This commit is contained in:
florian 2019-10-21 20:48:34 +00:00
parent 9dcd897ce6
commit 54f16d68be
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/cfileutl.pas
View File

@ -1077,7 +1077,9 @@ end;
{ GNU LD convention: if library search path starts with '=', it's relative to the
sysroot; otherwise, interpret it as a regular path }
if currPath[1]='=' then
currPath:=sysroot+FixPath(copy(currPath,2,length(currPath)-1),false);
currPath:=sysroot+FixPath(copy(currPath,2,length(currPath)-1),false)
else
currPath:=sysroot+FixPath(currPath,false);
if currPath='' then
currPath:= CurDirRelPath(source_info)
else