浏览代码

--- Merging r44395 into '.':
U compiler/utils/fpc.pp
--- Recording mergeinfo for merge of r44395 into '.':
U .

git-svn-id: branches/fixes_3_2@44434 -

Jonas Maebe 5 年之前
父节点
当前提交
5c417b9211
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/utils/fpc.pp

+ 1 - 1
compiler/utils/fpc.pp

@@ -90,7 +90,7 @@ program fpc;
          ppcbin:=extrapath+ppcbin;
          findexe:=true;
        end
-      else if FileExists(path+ppcbin) then
+      else if (path<>'') and FileExists(path+ppcbin) then
        begin
          ppcbin:=path+ppcbin;
          findexe:=true;