paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 21:09:11 +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; cutils,globtype,systems,globals;
procedure toptionpowerpc.interpret_proc_specific_options(const opt:string); procedure toptionpowerpc.interpret_proc_specific_options(const opt:string);
var
more: string;
j: longint;
begin begin
{$ifdef dummy}
More:=Upper(copy(opt,3,length(opt)-2)); More:=Upper(copy(opt,3,length(opt)-2));
case opt[2] of case opt[2] of
'O' : Begin 'O' : Begin
@ -71,6 +73,7 @@ begin
'1' : initglobalswitches:=initglobalswitches-[cs_fastoptimize,cs_slowoptimize]+[cs_optimize]; '1' : initglobalswitches:=initglobalswitches-[cs_fastoptimize,cs_slowoptimize]+[cs_optimize];
'2' : initglobalswitches:=initglobalswitches-[cs_slowoptimize]+[cs_optimize,cs_fastoptimize]; '2' : initglobalswitches:=initglobalswitches-[cs_slowoptimize]+[cs_optimize,cs_fastoptimize];
'3' : initglobalswitches:=initglobalswitches+[cs_optimize,cs_fastoptimize,cs_slowoptimize]; '3' : initglobalswitches:=initglobalswitches+[cs_optimize,cs_fastoptimize,cs_slowoptimize];
{$ifdef dummy}
'p' : 'p' :
Begin Begin
If j < Length(Opt) Then If j < Length(Opt) Then
@ -85,25 +88,13 @@ begin
End End
Else IllegalPara(opt) Else IllegalPara(opt)
End; End;
{$ifdef USECMOV} {$endif dummy}
'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}
else IllegalPara(opt); else IllegalPara(opt);
End; End;
Inc(j) Inc(j)
end; end;
end; end;
{$ifdef dummy}
'R' : begin 'R' : begin
if More='GAS' then if More='GAS' then
initasmmode:=asmmode_ppc_gas initasmmode:=asmmode_ppc_gas
@ -116,10 +107,10 @@ begin
else else
IllegalPara(opt); IllegalPara(opt);
end; end;
{$endif dummy}
else else
IllegalPara(opt); IllegalPara(opt);
end; end;
{$endif dummy}
end; end;
@ -128,7 +119,10 @@ initialization
end. end.
{ {
$Log$ $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 + moved target_cpu_string to cpuinfo
* renamed asmmode enum. * renamed asmmode enum.
* assembler reader has now less ifdef's * assembler reader has now less ifdef's