From 43e0d94425533d4a7a74d2bfac3ec566e119337a Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Sun, 5 Mar 2023 13:33:52 -0500
Subject: [PATCH] comp/c/vm/i386: make :compiletest compile better code

---
 fs/comp/c/vm/i386.fs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/fs/comp/c/vm/i386.fs b/fs/comp/c/vm/i386.fs
index be2f816..d621530 100644
--- a/fs/comp/c/vm/i386.fs
+++ b/fs/comp/c/vm/i386.fs
@@ -57,8 +57,7 @@ struct+[ VMOp
       abort"  can't :compile location" endcase ;
   : :compilesz bi :compile | :typesz! ;
   : :compiletest
-    dup :compilesz over loc VM_REGISTER = if
-    over :compile else -1 i) then test, drop ;
+    bi :compilesz | loc VM_REGISTER = if dup test, else 0 i) cmp, then ;
 
   \ Force current operand to be copied to a register
   : _ regallot tuck r) ( rid self dst ) over :compilesz ?movzx, to arg ;
-- 
2.34.7