瀏覽代碼

* fpc: don't search for compiler binary in current directory when paramstr(0)
does not contain a path (unless the current directory is also in the PATH)

git-svn-id: trunk@44395 -

Jonas Maebe 5 年之前
父節點
當前提交
429b3744c4
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/utils/fpc.pp

+ 1 - 1
compiler/utils/fpc.pp

@@ -94,7 +94,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;