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

* x86: Improved "Test2Bt" peephole optimisation

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2024-05-02 23:46:20 +01:00
parent b6da7a799a
commit 6cc391dfa1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/x86/aoptx86.pas
View File

@ -16870,7 +16870,8 @@ unit aoptx86;
case taicpu(hp1).condition of
C_None:
begin
if RegInUsedRegs(NR_DEFAULTFLAGS, TmpUsedRegs) then
if RegInUsedRegs(NR_DEFAULTFLAGS, TmpUsedRegs) and
not RegLoadedWithNewValue(NR_DEFAULTFLAGS, hp1) then
{ Something is not quite normal, so play safe and don't change }
IsValid := False;