paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 06:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ parse basic optimization parameters

Browse Source
This commit is contained in:
Jonas Maebe 2002-09-04 16:03:53 +00:00
parent f05b050230
commit 650eb87f8c
1 changed files with 11 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/powerpc/cpuswtch.pas
View File

@ -40,8 +40,10 @@ uses
cutils,globtype,systems,globals;
procedure toptionpowerpc.interpret_proc_specific_options(const opt:string);
var
more: string;
j: longint;
begin
{$ifdef dummy}
More:=Upper(copy(opt,3,length(opt)-2));
case opt[2] of
'O' : Begin
@ -71,6 +73,7 @@ begin
'1' : initglobalswitches:=initglobalswitches-[cs_fastoptimize,cs_slowoptimize]+[cs_optimize];
'2' : initglobalswitches:=initglobalswitches-[cs_slowoptimize]+[cs_optimize,cs_fastoptimize];
'3' : initglobalswitches:=initglobalswitches+[cs_optimize,cs_fastoptimize,cs_slowoptimize];
{$ifdef dummy}
'p' :
Begin
If j < Length(Opt) Then
@ -85,25 +88,13 @@ begin
End
Else IllegalPara(opt)
End;
{$ifdef USECMOV}
's' :
Begin
If j < Length(Opt) Then
Begin
Case opt[j+1] Of
'3': initspecificoptprocessor:=ClassP6
Else IllegalPara(Opt)
End;
Inc(j);
End
Else IllegalPara(opt)
End
{$endif USECMOV}
{$endif dummy}
else IllegalPara(opt);
End;
Inc(j)
end;
end;
{$ifdef dummy}
'R' : begin
if More='GAS' then
initasmmode:=asmmode_ppc_gas
@ -116,10 +107,10 @@ begin
else
IllegalPara(opt);
end;
{$endif dummy}
else
IllegalPara(opt);
end;
{$endif dummy}
end;
@ -128,7 +119,10 @@ initialization
end.
{
$Log$
Revision 1.6 2002-08-10 14:52:52 carl
Revision 1.7 2002-09-04 16:03:53 jonas
+ parse basic optimization parameters
Revision 1.6 2002/08/10 14:52:52 carl
+ moved target_cpu_string to cpuinfo
* renamed asmmode enum.
* assembler reader has now less ifdef's