paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-07 17:26:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* a64: Updated debug messages to follow standard.

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-05-16 06:28:23 +01:00 committed by FPK
parent d6ff4ed967
commit 06cbb6edc7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/armgen/aoptarm.pas
View File

@ -511,7 +511,7 @@ Implementation
{ This MOV is exactly the same as the first one. { This MOV is exactly the same as the first one.
Since none of the registers have changed value Since none of the registers have changed value
at this point, we can remove it. } at this point, we can remove it. }
DebugMsg('Peephole Optimization: RedundantMovProcess 3a done', next_hp); DebugMsg(SPeepholeOptimization + 'RedundantMovProcess 3a done', next_hp);
if (next_hp = hp1) then if (next_hp = hp1) then
{ Don't let hp1 become a dangling pointer } { Don't let hp1 become a dangling pointer }
@ -554,7 +554,7 @@ Implementation
then then
begin begin
{ Instruction will become mov r1,r1 } { Instruction will become mov r1,r1 }
DebugMsg('Peephole Optimization: Mov2None 2 done', next_hp); DebugMsg(SPeepholeOptimization + 'Mov2None 2 done', next_hp);
{ Allocate r1 between the instructions; not doing { Allocate r1 between the instructions; not doing
so may cause problems when removing superfluous so may cause problems when removing superfluous
@ -577,7 +577,7 @@ Implementation
if not MatchOperand(taicpu(next_hp).oper[0]^, taicpu(p).oper[1]^.reg) then if not MatchOperand(taicpu(next_hp).oper[0]^, taicpu(p).oper[1]^.reg) then
{$endif AARCH64} {$endif AARCH64}
begin begin
DebugMsg('Peephole Optimization: ' + std_regname(taicpu(p).oper[0]^.reg) + ' = ' + std_regname(taicpu(p).oper[1]^.reg) + ' (MovMov2Mov 2)', next_hp); DebugMsg(SPeepholeOptimization + std_regname(taicpu(p).oper[0]^.reg) + ' = ' + std_regname(taicpu(p).oper[1]^.reg) + ' (MovMov2Mov 2)', next_hp);
taicpu(next_hp).oper[1]^.reg := taicpu(p).oper[1]^.reg; taicpu(next_hp).oper[1]^.reg := taicpu(p).oper[1]^.reg;
AllocRegBetween(taicpu(p).oper[1]^.reg, p, next_hp, UsedRegs); AllocRegBetween(taicpu(p).oper[1]^.reg, p, next_hp, UsedRegs);
@ -593,7 +593,7 @@ Implementation
RegInUsedRegs(taicpu(p).oper[0]^.reg, UsedRegs) and RegInUsedRegs(taicpu(p).oper[0]^.reg, UsedRegs) and
not RegUsedAfterInstruction(taicpu(p).oper[0]^.reg, next_hp, TmpUsedRegs) then not RegUsedAfterInstruction(taicpu(p).oper[0]^.reg, next_hp, TmpUsedRegs) then
begin begin
DebugMsg('Peephole Optimization: RedundantMovProcess 2c done', p); DebugMsg(SPeepholeOptimization + 'RedundantMovProcess 2c done', p);
RemoveCurrentP(p); RemoveCurrentP(p);
Result := True; Result := True;
Exit; Exit;