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

* TX86AsmOptimizer.OptPass1MOVXX takes care of volatility

Browse Source
This commit is contained in:
florian 2021-10-23 23:40:09 +02:00
parent 7f1050464a
commit 4610980f2e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/x86/aoptx86.pas
View File

@ -4126,14 +4126,16 @@ unit aoptx86;
DebugMsg(SPeepholeOptimization + 'MovXXMovXX2Nop 1 done',p);
RemoveInstruction(hp1);
RemoveCurrentp(p); { p will now be equal to the instruction that follows what was hp1 }
Result:=true;
exit;
end
else
else if (taicpu(hp1).oper[1]^.typ<>top_ref) or (not(vol_write in taicpu(hp1).oper[1]^.ref^.volatility)) then
begin
DebugMsg(SPeepholeOptimization + 'MovXXMovXX2MoVXX 1 done',p);
RemoveInstruction(hp1);
Result:=true;
exit;
end;
Result:=true;
exit;
end
end;
end;