paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 05:59:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Debug message

Browse Source
This commit is contained in:
florian 2022-11-29 23:20:23 +01:00
parent 2c3b78682a
commit a1a2549cf1
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/x86/aoptx86.pas
View File

@ -23,7 +23,7 @@ unit aoptx86;
{$i fpcdefs.inc}
{ $define DEBUG_AOPTCPU}
{$define DEBUG_AOPTCPU}
{$ifdef EXTDEBUG}
{$define DEBUG_AOPTCPU}
@ -9451,6 +9451,8 @@ unit aoptx86;
smaller code, but won't account for x + y causing an overflow). [Kit]
}
DebugMsg(SPeepholeOptimization + 'MovMov*Shr2MovMov*Rcr', p);
if (getsupreg(taicpu(hp2).oper[1]^.reg) = getsupreg(taicpu(hp1).oper[1]^.reg)) then
{ Change first MOV command to have the same register as the final output }
taicpu(p).oper[1]^.reg := taicpu(hp1).oper[1]^.reg
@ -13692,6 +13694,7 @@ unit aoptx86;
- It is possible to set memory operands using this method, but this creates an even greater false dependency, so don't do this at all
}
taicpu(p).opcode := A_OR;
DebugMsg(SPeepholeOptimization + 'Mov-12Or-1',p);
Result := True;
end;
else