--- Merging r14835 into '.':

U    compiler/utils/fpc.pp

# revisions: 14835
------------------------------------------------------------------------
r14835 | florian | 2010-01-31 17:48:18 +0100 (Sun, 31 Jan 2010) | 2 lines
Changed paths:
   M /trunk/compiler/utils/fpc.pp

* don't search use extrapath for searching ppc* if extrapath is empty because this might find undesired compilers in the current directory

------------------------------------------------------------------------

git-svn-id: branches/fixes_2_4@14987 -

compiler/utils/fpc.pp

@@ -86,7 +86,10 @@ program fpc;
         extrapath:=extrapath+DirectorySeparator;
       { get path of fpc.exe }
       path:=splitpath(paramstr(0));
-      if FileExists(extrapath+ppcbin) then
+      { don't try with an empty extra patch, this might have strange results
+        if the current directory contains a compiler
+      }
+      if (extrapath<>'') and FileExists(extrapath+ppcbin) then
        begin
          ppcbin:=extrapath+ppcbin;
          findexe:=true;