+ASMInfoSwitches AsmOutputSwitches

This commit is contained in:
pierre 2000-03-07 21:17:29 +00:00
parent 71d00830cf
commit de32721a58

View File

@ -130,6 +130,8 @@ var
OptimizingGoalSwitches, OptimizingGoalSwitches,
ProcessorSwitches, ProcessorSwitches,
AsmReaderSwitches, AsmReaderSwitches,
AsmInfoSwitches,
AsmOutputSwitches,
TargetSwitches, TargetSwitches,
ConditionalSwitches, ConditionalSwitches,
MemorySwitches, MemorySwitches,
@ -600,6 +602,8 @@ begin
OptimizingGoalSwitches^.WriteItemsCfg; OptimizingGoalSwitches^.WriteItemsCfg;
ProcessorSwitches^.WriteItemsCfg; ProcessorSwitches^.WriteItemsCfg;
AsmReaderSwitches^.WriteItemsCfg; AsmReaderSwitches^.WriteItemsCfg;
AsmInfoSwitches^.WriteItemsCfg;
AsmOutputSwitches^.WriteItemsCfg;
DirectorySwitches^.WriteItemsCfg; DirectorySwitches^.WriteItemsCfg;
MemorySwitches^.WriteItemsCfg; MemorySwitches^.WriteItemsCfg;
ConditionalSwitches^.WriteItemsCfg; ConditionalSwitches^.WriteItemsCfg;
@ -645,27 +649,29 @@ begin
res:=false; res:=false;
Delete(s,1,2); Delete(s,1,2);
case c of case c of
'd' : res:=ConditionalSwitches^.ReadItemsCfg(s); 'a' : res:=AsmInfoSwitches^.ReadItemsCfg(s);
'X' : res:=LibLinkerSwitches^.ReadItemsCfg(s); 'A' : res:=AsmOutputSwitches^.ReadItemsCfg(s);
'g' : res:=DebugInfoSwitches^.ReadItemsCfg(s); 'b' : res:=BrowserSwitches^.ReadItemsCfg(s);
'p' : res:=ProfileInfoSwitches^.ReadItemsCfg(s);
'S' : res:=SyntaxSwitches^.ReadItemsCfg(s);
'F' : res:=DirectorySwitches^.ReadItemsCfg(s);
'T' : res:=TargetSwitches^.ReadItemsCfg(s);
'R' : res:=AsmReaderSwitches^.ReadItemsCfg(s);
'C' : begin 'C' : begin
res:=CodegenSwitches^.ReadItemsCfg(s); res:=CodegenSwitches^.ReadItemsCfg(s);
if not res then if not res then
res:=MemorySwitches^.ReadItemsCfg(s); res:=MemorySwitches^.ReadItemsCfg(s);
end; end;
'v' : res:=VerboseSwitches^.ReadItemsCfg(s); 'd' : res:=ConditionalSwitches^.ReadItemsCfg(s);
'F' : res:=DirectorySwitches^.ReadItemsCfg(s);
'g' : res:=DebugInfoSwitches^.ReadItemsCfg(s);
'O' : begin 'O' : begin
res:=true; res:=true;
if not OptimizationSwitches^.ReadItemsCfg(s) then if not OptimizationSwitches^.ReadItemsCfg(s) then
if not ProcessorSwitches^.ReadItemsCfg(s) then if not ProcessorSwitches^.ReadItemsCfg(s) then
res:=OptimizingGoalSwitches^.ReadItemsCfg(s); res:=OptimizingGoalSwitches^.ReadItemsCfg(s);
end; end;
'b' : res:=BrowserSwitches^.ReadItemsCfg(s); 'p' : res:=ProfileInfoSwitches^.ReadItemsCfg(s);
'R' : res:=AsmReaderSwitches^.ReadItemsCfg(s);
'S' : res:=SyntaxSwitches^.ReadItemsCfg(s);
'T' : res:=TargetSwitches^.ReadItemsCfg(s);
'v' : res:=VerboseSwitches^.ReadItemsCfg(s);
'X' : res:=LibLinkerSwitches^.ReadItemsCfg(s);
end; end;
{ keep all others as a string } { keep all others as a string }
if not res then if not res then
@ -791,6 +797,25 @@ begin
AddSelectItem('~A~T&T style assembler','att'); AddSelectItem('~A~T&T style assembler','att');
AddSelectItem('Int~e~l style assembler','intel'); AddSelectItem('Int~e~l style assembler','intel');
end; end;
New(AsmInfoSwitches,InitSelect('a'));
with AsmInfoSwitches^ do
begin
AddBooleanItem('~L~ist source','l');
AddBooleanItem('list ~r~egister allocation','r');
AddBooleanItem('list ~t~emp allocation','t');
end;
New(AsmOutputSwitches,InitSelect('A'));
with AsmOutputSwitches^ do
begin
AddSelectItem('Use GNU ~a~s','as');
AddSelectItem('Use NASM ~c~off','nasmcoff');
AddSelectItem('Use NASM ~e~lf','nasmelf');
AddSelectItem('Use NASM ~o~bj','nasmobj');
AddSelectItem('Use ~M~ASM','masm');
AddSelectItem('Use ~T~ASM','tasm');
AddSelectItem('Use ~c~off','coff');
AddSelectItem('Use ~p~ecoff','pecoff');
end;
New(BrowserSwitches,InitSelect('b')); New(BrowserSwitches,InitSelect('b'));
with BrowserSwitches^ do with BrowserSwitches^ do
begin begin
@ -936,7 +961,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.17 2000-02-04 14:34:47 pierre Revision 1.18 2000-03-07 21:17:29 pierre
+ASMInfoSwitches AsmOutputSwitches
Revision 1.17 2000/02/04 14:34:47 pierre
readme.txt readme.txt
Revision 1.16 2000/02/04 00:05:20 pierre Revision 1.16 2000/02/04 00:05:20 pierre