paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 05:39:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* more option updates

Browse Source 
git-svn-id: trunk@7312 -
This commit is contained in:
pierre 2007-05-11 22:14:54 +00:00
parent fb4828649e
commit 0f870ec901
1 changed files with 33 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
ide/fpswitch.pas
View File

@ -30,7 +30,7 @@ type
TParamID = TParamID =
(idNone,idAlign,idRangeChecks,idStackChecks,idIOChecks, (idNone,idAlign,idRangeChecks,idStackChecks,idIOChecks,
idOverflowChecks,idObjMethCallChecks, idOverflowChecks,idObjMethCallChecks,
idAsmDirect,idAsmATT,idAsmIntel,idAsmMot, idAsmDirect,idAsmATT,idAsmIntel,idAsmMot,idAsmStandard,
idSymInfNone,idSymInfGlobalOnly,idSymInfGlobalLocal, idSymInfNone,idSymInfGlobalOnly,idSymInfGlobalLocal,
idStackSize,idHeapSize,idStrictVarStrings,idExtendedSyntax, idStackSize,idHeapSize,idStrictVarStrings,idExtendedSyntax,
idMMXOps,idTypedAddress,idPackRecords,idPackEnum,idStackFrames, idMMXOps,idTypedAddress,idPackRecords,idPackEnum,idStackFrames,
@ -199,6 +199,7 @@ implementation
uses uses
Dos, Dos,
GlobType, GlobType,
CpuInfo,
FPVars,FPUtils; FPVars,FPUtils;
var var
@ -256,7 +257,8 @@ const
opt_level1optimizations = 'Level ~1~ optimizations'; opt_level1optimizations = 'Level ~1~ optimizations';
opt_level2optimizations = 'Level ~2~ optimizations'; opt_level2optimizations = 'Level ~2~ optimizations';
opt_i386486 = 'i~3~86/i486'; opt_i386486 = 'i~3~86/i486';
opt_pentiumandmmx = 'Pentium/PentiumMM~X~ (tm)'; opt_pentium = 'Pentium (tm)';
opt_pentiummmx = 'PentiumMM~X~ (tm)';
opt_pentiumpro = '~P~entium2/PentiumM/AMD'; opt_pentiumpro = '~P~entium2/PentiumM/AMD';
opt_pentiumiv = 'Pentium~4~'; opt_pentiumiv = 'Pentium~4~';
opt_m68000 = 'm~6~8000'; opt_m68000 = 'm~6~8000';
@ -266,6 +268,7 @@ const
opt_attassembler = '~A~T&T style assembler'; opt_attassembler = '~A~T&T style assembler';
opt_intelassembler = '~I~ntel style assembler'; opt_intelassembler = '~I~ntel style assembler';
opt_motassembler = '~M~otorola style assembler'; opt_motassembler = '~M~otorola style assembler';
opt_standardassembler = '~S~tandard style assembler';
opt_listsource = '~L~ist source'; opt_listsource = '~L~ist source';
opt_listregisterallocation = 'list ~r~egister allocation'; opt_listregisterallocation = 'list ~r~egister allocation';
opt_listtempallocation = 'list ~t~emp allocation'; opt_listtempallocation = 'list ~t~emp allocation';
@ -1137,6 +1140,8 @@ end;
procedure InitSwitches; procedure InitSwitches;
var var
t : tsystem; t : tsystem;
cpu : tcputype;
st : string;
begin begin
New(SyntaxSwitches,Init('S')); New(SyntaxSwitches,Init('S'));
with SyntaxSwitches^ do with SyntaxSwitches^ do
@ -1214,17 +1219,30 @@ begin
New(ProcessorSwitches,InitSelect('O')); New(ProcessorSwitches,InitSelect('O'));
with ProcessorSwitches^ do with ProcessorSwitches^ do
begin begin
for cpu:=low(tcputype) to high(tcputype) do
begin
st:=cputypestr[cpu];
{$ifdef I386} {$ifdef I386}
AddSelectItem(opt_i386486,'p1',idNone); if st='386' then
AddSelectItem(opt_pentiumandmmx,'p2',idNone); st:=opt_i386486;
AddSelectItem(opt_pentiumpro,'p3',idNone); if st='PENTIUM' then
AddSelectItem(opt_pentiumiv,'p4',idNone); st:=opt_pentium;
{$else not I386} if st='PENTIUM2' then
{$ifdef m68k} st:=opt_pentiummmx;
AddSelectItem(opt_m68000,'',idNone); if st='PENTIUM3' then
AddSelectItem(opt_m68020,'2',idNone); st:=opt_pentiumpro;
{$endif m68k} if st='PENTIUM4' then
st:=opt_pentiumiv;
{$endif not I386} {$endif not I386}
{$ifdef m68k}
if st='68000' then
st:=opt_m68000;
if st='68020' then
st:=opt_m68020;
{$endif m68k}
if st<>'' then
AddSelectItem(st,'p'+cputypestr[cpu],idNone);
end;
end; end;
New(TargetSwitches,InitSelect('T')); New(TargetSwitches,InitSelect('T'));
with TargetSwitches^ do with TargetSwitches^ do
@ -1243,7 +1261,8 @@ begin
AddSelectItem(opt_intelassembler,'intel',idAsmIntel); AddSelectItem(opt_intelassembler,'intel',idAsmIntel);
{$endif I386} {$endif I386}
{$ifdef M68K} {$ifdef M68K}
AddSelectItem(opt_motassembler,'mot',idAsmDirect); AddSelectItem(opt_standardassembler,'standard',idAsmStandard);
AddSelectItem(opt_motassembler,'motorola',idAsmMot);
{$endif M68K} {$endif M68K}
end; end;
New(AsmInfoSwitches,Init('a')); New(AsmInfoSwitches,Init('a'));
@ -1461,7 +1480,8 @@ begin
{ idAsmDirect : if P^.GetParamValueBool[SM] then AddParam('ASMMODE DIRECT'); { idAsmDirect : if P^.GetParamValueBool[SM] then AddParam('ASMMODE DIRECT');
idAsmATT : if P^.GetParamValueBool[SM] then AddParam('ASMMODE ATT'); idAsmATT : if P^.GetParamValueBool[SM] then AddParam('ASMMODE ATT');
idAsmIntel : if P^.GetParamValueBool[SM] then AddParam('ASMMODE INTEL'); idAsmIntel : if P^.GetParamValueBool[SM] then AddParam('ASMMODE INTEL');
idAsmMot : if P^.GetParamValueBool[SM] then AddParam('ASMMODE MOT');} idAsmMot : if P^.GetParamValueBool[SM] then AddParam('ASMMODE MOTOROLA');
idAsmStandard : if P^.GetParamValueBool[SM] then AddParam('ASMMODE STANDARD');}
{ idSymInfNone : ; { idSymInfNone : ;
idSymInfGlobalOnly:; idSymInfGlobalOnly:;
idSymInfGlobalLocal:if P^.ParamValueBool(SM) then AddSwitch('L+');} idSymInfGlobalLocal:if P^.ParamValueBool(SM) then AddSwitch('L+');}