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

* fix MovapXComisX2ComisX2 optimization

Browse Source
This commit is contained in:
florian 2022-03-10 22:30:29 +01:00
parent 9e631db928
commit 68bc5da3a2
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/x86/aoptx86.pas
View File

@ -2097,11 +2097,10 @@ unit aoptx86;
)
) and not(OpsEqual(taicpu(hp1).oper[1]^,taicpu(hp1).oper[0]^)) then
{ change
movapX reg,reg2
addsX/subsX/... reg3, reg2
movapX reg2,reg
movapX reg,reg1
vcomisX reg1,reg1
to
addsX/subsX/... reg3,reg
vcomisX reg,reg
}
begin
TransferUsedRegs(TmpUsedRegs);
@ -2112,9 +2111,9 @@ unit aoptx86;
debug_op2str(taicpu(p).opcode)+' '+
debug_op2str(taicpu(hp1).opcode)+') done',p);
if OpsEqual(taicpu(p).oper[1]^,taicpu(hp1).oper[0]^) then
taicpu(hp1).loadoper(0, taicpu(p).oper[1]^);
taicpu(hp1).loadoper(0, taicpu(p).oper[0]^);
if OpsEqual(taicpu(p).oper[1]^,taicpu(hp1).oper[1]^) then
taicpu(hp1).loadoper(1, taicpu(p).oper[1]^);
taicpu(hp1).loadoper(1, taicpu(p).oper[0]^);
RemoveCurrentP(p, nil);
result:=true;
exit;