paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 21:50:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not try to call cross compiler if host CPU was specified using -P parameter.

Browse Source 
* tabs to spaces.

git-svn-id: trunk@2768 -
This commit is contained in:
yury 2006-03-05 20:36:16 +00:00
parent ef36969ff6
commit d48f512146
1 changed files with 41 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/utils/fpc.pp
View File

@ -177,7 +177,10 @@ program fpc;
writeln(processorname); writeln(processorname);
halt(0); halt(0);
end end
else if processorstr='i386' then else
if processorstr <> processorname then
begin
if processorstr='i386' then
cpusuffix:='386' cpusuffix:='386'
else if processorstr='m68k' then else if processorstr='m68k' then
cpusuffix:='68k' cpusuffix:='68k'
@ -199,6 +202,7 @@ program fpc;
error('Illegal processor type "'+processorstr+'"'); error('Illegal processor type "'+processorstr+'"');
ppcbin:='ppcross'+cpusuffix; ppcbin:='ppcross'+cpusuffix;
end;
end end
else else
ppccommandline:=ppccommandline+s+' '; ppccommandline:=ppccommandline+s+' ';