From 87ef6aeb02b75f71138a0b3a74db00e5a366efed Mon Sep 17 00:00:00 2001
From: Takeshi Watanabe <takechi101010@gmail.com>
Date: Tue, 17 Apr 2018 22:58:33 +0900
Subject: Fallback to float when caompiled binary with 64bit compiler.

closes #3997.
---
 src/load.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/load.c')

diff --git a/src/load.c b/src/load.c
index 58427424d..3a6ce7cca 100644
--- a/src/load.c
+++ b/src/load.c
@@ -126,9 +126,10 @@ read_irep_record_1(mrb_state *mrb, const uint8_t *bin, size_t *len, uint8_t flag
       }
       src += pool_data_len;
       switch (tt) { /* pool data */
-      case IREP_TT_FIXNUM:
-        irep->pool[i] = mrb_str_to_inum(mrb, s, 10, FALSE);
-        break;
+      case IREP_TT_FIXNUM: {
+        mrb_value num = mrb_str_to_inum(mrb, s, 10, FALSE);
+        irep->pool[i] = mrb_float_p(num)? mrb_float_pool(mrb, mrb_float(num)) : num;
+      } break;
 
 #ifndef MRB_WITHOUT_FLOAT
       case IREP_TT_FLOAT:
-- 
cgit v1.2.3