Browse Source

* 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 years ago
parent
commit
429b3744c4
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/utils/fpc.pp

+ 1 - 1
compiler/utils/fpc.pp

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