Browse Source

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

+ 1 - 1
compiler/utils/fpc.pp

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