paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 20:29:33 +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

8
compiler/armgen/aoptarm.pas
View File

@ -511,7 +511,7 @@ Implementation
{ This MOV is exactly the same as the first one.
Since none of the registers have changed value
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
{ Don't let hp1 become a dangling pointer }
@ -554,7 +554,7 @@ Implementation
then
begin
{ 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
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
{$endif AARCH64}
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;
AllocRegBetween(taicpu(p).oper[1]^.reg, p, next_hp, UsedRegs);
@ -593,7 +593,7 @@ Implementation
RegInUsedRegs(taicpu(p).oper[0]^.reg, UsedRegs) and
not RegUsedAfterInstruction(taicpu(p).oper[0]^.reg, next_hp, TmpUsedRegs) then
begin
DebugMsg('Peephole Optimization: RedundantMovProcess 2c done', p);
DebugMsg(SPeepholeOptimization + 'RedundantMovProcess 2c done', p);
RemoveCurrentP(p);
Result := True;
Exit;