浏览代码

* 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
          { GNU LD convention: if library search path starts with '=', it's relative to the
            sysroot; otherwise, interpret it as a regular path }
            sysroot; otherwise, interpret it as a regular path }
          if currPath[1]='=' then
          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
          if currPath='' then
            currPath:= CurDirRelPath(source_info)
            currPath:= CurDirRelPath(source_info)
          else
          else