From 4654de90741db13c2f2eb75afa45237ae4e0f072 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby.or.jp>
Date: Thu, 26 Aug 2021 12:36:10 +0900
Subject: etc.c: keep full `float32` with `MRB_64BIT` and `MRB_USE_FLOAT32`.

---
 src/etc.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/src/etc.c b/src/etc.c
index 4e1e87836..d99a273ad 100644
--- a/src/etc.c
+++ b/src/etc.c
@@ -162,10 +162,11 @@ mrb_word_boxing_float_value(mrb_state *mrb, mrb_float f)
   v.p = mrb_obj_alloc(mrb, MRB_TT_FLOAT, mrb->float_class);
   v.fp->f = f;
   MRB_SET_FROZEN_FLAG(v.bp);
-#else
-#if defined(MRB_64BIT) && defined(MRB_USE_FLOAT32)
+#elif defined(MRB_64BIT) && defined(MRB_USE_FLOAT32)
   v.w = 0;
-#endif
+  v.f = f;
+  v.w = ((v.w<<2) & ~3) | 2;
+#else
   v.f = f;
   v.w = (v.w & ~3) | 2;
 #endif
@@ -180,6 +181,9 @@ mrb_word_boxing_value_float(mrb_value v)
   union mrb_value_ u;
   u.value = v;
   u.w = u.w & ~3;
+#if defined(MRB_64BIT) && defined(MRB_USE_FLOAT32)
+  u.w >>= 2;
+#endif
   return u.f;
 }
 #endif
-- 
cgit v1.2.3