:art: Fix float logical imm opcode

diff --git a/src/vm/vm.c b/src/vm/vm.c
index 31c23a392122d04e91aa59b4feb57dd7a3026fa3..37546c5eb8d0cf9a6a1b6a5220628e9ee6525342 100644 (file)
--- a/src/vm/vm.c
+++ b/src/vm/vm.c
@@ -336,7 +336,7 @@ ANN static VM_Shred init_fork_shred(const VM_Shred shred, const VM_Code code,
 
 #define FLOAT_IMM_LOGICAL(op) \
   reg -= SZ_FLOAT - SZ_INT;\
-  *(m_uint *)(reg - SZ_INT) = *(m_float*)(reg-SZ_INT) op FVAL; DISPATCH();
+  *(m_uint *)(reg - SZ_INT) = *(m_float*)(reg-SZ_INT+SZ_FLOAT) op FVAL; DISPATCH();
 
 #define SELF(t, sz, op)                                                        \
   *(t *)(reg - sz) = op * (t *)(reg - sz);                                     \