Copy mrb_float values from pool when MRB_WORD_BOXING; ref #3396

1 files changed, 8 insertions, 0 deletions

diff --git a/src/vm.c b/src/vm.c
index 8c91ae1e7..9684dabfd 100644
--- a/src/vm.c
+++ b/src/vm.c
@@ -859,7 +859,15 @@ RETRY_TRY_BLOCK:
 
     CASE(OP_LOADL) {
       /* A Bx   R(A) := Pool(Bx) */
+#ifdef MRB_WORD_BOXING
+      mrb_value val = pool[GETARG_Bx(i)];
+      if (mrb_float_p(val)) {
+        val = mrb_float_value(mrb, mrb_float(val));
+      }
+      regs[GETARG_A(i)] = val;
+#else
       regs[GETARG_A(i)] = pool[GETARG_Bx(i)];
+#endif
       NEXT;
     }