From 6cc391dfa13640cb6297e84de772cc06343beb01 Mon Sep 17 00:00:00 2001
From: "J. Gareth \"Curious Kit\" Moreton" <gareth@moreton-family.com>
Date: Thu, 2 May 2024 23:46:20 +0100
Subject: [PATCH]   * x86: Improved "Test2Bt" peephole optimisation

---
 compiler/x86/aoptx86.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/x86/aoptx86.pas b/compiler/x86/aoptx86.pas
index 457db9a84a..ad93f7c763 100644
--- a/compiler/x86/aoptx86.pas
+++ b/compiler/x86/aoptx86.pas
@@ -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;