paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 03:37:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ change reg2str array use

Browse Source
This commit is contained in:
carl 2002-04-15 18:55:39 +00:00
parent 95ccf81518
commit 095ad35f3b
2 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/aoptcs.pas
View File

@ -288,7 +288,7 @@ Begin
Begin
RegsLoadedForRef := RegsLoadedForRef + [Base];
{$ifdef csdebug}
Writeln(gas_reg2str[base], ' added');
Writeln(std_reg2str[base], ' added');
{$endif csdebug}
end;
{$Ifdef RefsHaveIndexReg}
@ -299,7 +299,7 @@ Begin
Begin
RegsLoadedForRef := RegsLoadedForRef + [Index];
{$ifdef csdebug}
Writeln(gas_reg2str[index], ' added');
Writeln(std_reg2str[index], ' added');
{$endif csdebug}
end;
{$endif RefsHaveIndexReg}
@ -315,7 +315,7 @@ Begin
RegsLoadedForRef := RegsLoadedForRef -
[RegMaxSize(PInstr(NewP)^.oper[LoadDst].reg)];
{$ifdef csdebug}
Writeln(gas_reg2str[RegMaxSize(PInstr(NewP)^.oper[1].reg)], ' removed');
Writeln(std_reg2str[RegMaxSize(PInstr(NewP)^.oper[1].reg)], ' removed');
{$endif csdebug}
end;
InstructionsEquivalent :=
@ -554,7 +554,7 @@ Begin
TmpState := PPaiProp(hp3^.OptInfo)^.Regs[reg].WState;
{$ifdef csdebug}
hp5 := new(pai_asm_comment,init(strpnew('WState for '+
gas_reg2str[reg]+': '+tostr(tmpstate))));
std_reg2str[reg]+': '+tostr(tmpstate))));
InsertLLItem(hp3, pai(hp3^.next), hp5);
{$endif csdebug}
PPaiProp(hp3^.OptInfo)^.Regs[reg] :=
@ -570,7 +570,7 @@ Begin
(PPaiProp(hp3^.OptInfo)^.GetWState(Reg) = TmpState) Do
{$ifdef csdebug}
begin
hp5 := new(pai_asm_comment,init(strpnew('WState for '+gas_reg2str[reg]+': '+
hp5 := new(pai_asm_comment,init(strpnew('WState for '+std_reg2str[reg]+': '+
tostr(PPaiProp(hp3^.OptInfo)^.GetWState(reg)))));
InsertLLItem(hp3, pai(hp3^.next), hp5);
{$endif csdebug}
@ -585,7 +585,7 @@ Begin
{ instructions in the sequence that modify reg }
Begin
{$ifdef csdebug}
Writeln('Got there for ',gas_reg2str[reg]);
Writeln('Got there for ',std_reg2str[reg]);
{$endif csdebug}
hp3 := Current;
For Cnt := 1 to Cnt2 Do
@ -695,8 +695,8 @@ Begin
If (RegCounter in RegInfo.RegsLoadedForRef) Then
Begin
hp5 := new(pai_asm_comment,init(strpnew(
'New: '+gas_reg2str[RegCounter]+', Old: '+
gas_reg2str[RegInfo.New2OldReg[RegCounter]])));
'New: '+std_reg2str[RegCounter]+', Old: '+
std_reg2str[RegInfo.New2OldReg[RegCounter]])));
InsertLLItem(AsmL, Pai(Current^.previous), Current, hp5);
End;
{$EndIf CSDebug}
@ -850,7 +850,10 @@ End.
{
$Log$
Revision 1.2 2002-04-14 16:49:30 carl
Revision 1.3 2002-04-15 18:55:39 carl
+ change reg2str array use
Revision 1.2 2002/04/14 16:49:30 carl
+ att_reg2str -> gas_reg2str
Revision 1.1 2001/08/26 13:36:35 florian

7
compiler/aoptda.pas
View File

@ -131,7 +131,7 @@ Begin
End
End;
{$ifdef StateDebug}
hp := new(pai_asm_comment,init(strpnew(gas_reg2str[TmpReg]+': '+tostr(CurProp^.Regs[TmpReg].WState))));
hp := new(pai_asm_comment,init(strpnew(std_reg2str[TmpReg]+': '+tostr(CurProp^.Regs[TmpReg].WState))));
InsertLLItem(AsmL, p, p^.next, hp);
{$endif StateDebug}
@ -177,7 +177,10 @@ End.
{
$Log$
Revision 1.2 2002-04-14 16:49:30 carl
Revision 1.3 2002-04-15 18:55:40 carl
+ change reg2str array use
Revision 1.2 2002/04/14 16:49:30 carl
+ att_reg2str -> gas_reg2str
Revision 1.1 2001/08/26 13:36:35 florian