1 files changed, 1 insertions(+), 2 deletions(-)

M 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 ;