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

* fix (V)Cvtss2CvtSd(V)Cvtsd2ss2* optmizations for non-avx code, resolves #39416

Browse Source
This commit is contained in:
florian 2021-11-07 14:46:13 +01:00
parent c917639b91
commit 492d75483d
1 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/x86/aoptx86.pas
View File

@ -23,6 +23,8 @@ unit aoptx86;
{$i fpcdefs.inc} {$i fpcdefs.inc}
{ $define DEBUG_AOPTCPU}
{$ifdef EXTDEBUG} {$ifdef EXTDEBUG}
{$define DEBUG_AOPTCPU} {$define DEBUG_AOPTCPU}
{$endif EXTDEBUG} {$endif EXTDEBUG}
@ -6171,7 +6173,8 @@ unit aoptx86;
) )
) then ) then
begin begin
if getsupreg(taicpu(p).oper[0]^.reg)=getsupreg(taicpu(hp1).oper[2]^.reg) then if ((taicpu(p).opcode=A_CVTSS2SD) and (getsupreg(taicpu(p).oper[0]^.reg)=getsupreg(taicpu(hp1).oper[1]^.reg))) or
((taicpu(p).opcode=A_VCVTSS2SD) and (getsupreg(taicpu(p).oper[0]^.reg)=getsupreg(taicpu(hp1).oper[2]^.reg))) then
begin begin
DebugMsg(SPeepholeOptimization + '(V)Cvtss2CvtSd(V)Cvtsd2ss2Nop done',p); DebugMsg(SPeepholeOptimization + '(V)Cvtss2CvtSd(V)Cvtsd2ss2Nop done',p);
RemoveCurrentP(p); RemoveCurrentP(p);
@ -6180,9 +6183,17 @@ unit aoptx86;
else else
begin begin
DebugMsg(SPeepholeOptimization + '(V)Cvtss2CvtSd(V)Cvtsd2ss2Vmovaps done',p); DebugMsg(SPeepholeOptimization + '(V)Cvtss2CvtSd(V)Cvtsd2ss2Vmovaps done',p);
taicpu(p).loadreg(1,taicpu(hp1).oper[2]^.reg); if taicpu(hp1).opcode=A_VCVTSD2SS then
begin
taicpu(p).loadreg(1,taicpu(hp1).oper[1]^.reg);
taicpu(p).opcode:=A_MOVAPS;
end
else
begin
taicpu(p).loadreg(1,taicpu(hp1).oper[2]^.reg);
taicpu(p).opcode:=A_VMOVAPS;
end;
taicpu(p).ops:=2; taicpu(p).ops:=2;
taicpu(p).opcode:=A_VMOVAPS;
RemoveInstruction(hp1); RemoveInstruction(hp1);
end; end;
Result:=true; Result:=true;