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

* correctly set register size

Browse Source 
git-svn-id: trunk@45076 -
This commit is contained in:
florian 2020-04-25 19:35:28 +00:00
parent bb4557c5fe
commit 951f02d188
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/x86/aoptx86.pas
View File

@ -5232,6 +5232,12 @@ unit aoptx86;
if not(RegUsedAfterInstruction(taicpu(p).oper[1]^.reg,hp1,TmpUsedRegs)) then if not(RegUsedAfterInstruction(taicpu(p).oper[1]^.reg,hp1,TmpUsedRegs)) then
begin begin
DebugMsg(SPeepholeOptimization + 'MovxMov2Movx',p); DebugMsg(SPeepholeOptimization + 'MovxMov2Movx',p);
{$ifdef x86_64}
if (taicpu(p).opsize in [S_BL,S_WL]) and
(taicpu(hp1).opsize=S_Q) then
taicpu(p).loadreg(1,newreg(R_INTREGISTER,getsupreg(taicpu(hp1).oper[1]^.reg),R_SUBD))
else
{$endif x86_64}
taicpu(p).loadreg(1,taicpu(hp1).oper[1]^.reg); taicpu(p).loadreg(1,taicpu(hp1).oper[1]^.reg);
asml.remove(hp1); asml.remove(hp1);
hp1.Free; hp1.Free;