From 96c63c4443cae99de5e1a48a89d18791db441764 Mon Sep 17 00:00:00 2001
From: Pierre Muller <pierre@freepascal.org>
Date: Sat, 10 Dec 2022 19:59:05 +0000
Subject: [PATCH]  Fix fcmove instruction for external assemblers

---
 tests/test/units/cpu/tcpu1.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test/units/cpu/tcpu1.pp b/tests/test/units/cpu/tcpu1.pp
index 6c1a8cb217..d13d332062 100644
--- a/tests/test/units/cpu/tcpu1.pp
+++ b/tests/test/units/cpu/tcpu1.pp
@@ -12,7 +12,7 @@ begin
         cmove %eax,%eax
         fldz
         fldz
-        fcmove %st(1)
+        fcmove %st(1),%st(0)
         fstpl %st(0)
         fstpl %st(0)
       end;