فهرست منبع

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

git-svn-id: trunk@43302 -
florian 5 سال پیش
والد
کامیت
54f16d68be
1فایلهای تغییر یافته به همراه3 افزوده شده و 1 حذف شده
  1. 3 1
      compiler/cfileutl.pas

+ 3 - 1
compiler/cfileutl.pas

@@ -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