duskos

commit 43e0d94425533d4a7a74d2bfac3ec566e119337a
parent 7b0f7288f9459a4b43a47beb5e4df6d378dcbcb6
Author: Virgil Dupras <hsoft@hardcoded.net>
Date:   Sun,  5 Mar 2023 13:33:52 -0500

comp/c/vm/i386: make :compiletest compile better code

Diffstat:
M
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
@@ -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 ;