Przeglądaj źródła

* Also search for ppcXXX if ppcrossXXX is not found for -PB option, show default binary

git-svn-id: trunk@34269 -
pierre 9 lat temu
rodzic
commit
0e6b4def67
1 zmienionych plików z 10 dodań i 1 usunięć
  1. 10 1
      compiler/utils/fpc.pp

+ 10 - 1
compiler/utils/fpc.pp

@@ -190,7 +190,16 @@ program fpc;
                        { report the full name of the ppcbin }
                        if versionstr<>'' then
                          ppcbin:=ppcbin+'-'+versionstr;
-                       findexe(ppcbin);
+                       if not findexe(ppcbin) then
+                         begin
+                           if cpusuffix<>'' Then
+                             begin
+                               ppcbin:='ppc'+cpusuffix;
+                               if versionstr<>'' then
+                                 ppcbin:=ppcbin+'-'+versionstr;
+                               findexe(ppcbin);
+                             end;
+                         end;
                        writeln(ppcbin);
                        halt(0);
                      end