mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 22:09:32 +02:00
+ASMInfoSwitches AsmOutputSwitches
This commit is contained in:
parent
71d00830cf
commit
de32721a58
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user