Просмотр исходного кода

--- 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 лет назад
Родитель
Сommit
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;