소스 검색

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

git-svn-id: trunk@34269 -
pierre 9 년 전
부모
커밋
0e6b4def67
1개의 변경된 파일10개의 추가작업 그리고 1개의 파일을 삭제
  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