Fix broken support of `MRB_WITHOUT_FLOAT`; fix #4015

3 files changed, 12 insertions, 2 deletions

diff --git a/src/enum.c b/src/enum.c
index 94103e35e..ea05777b3 100644
--- a/src/enum.c
+++ b/src/enum.c
@@ -20,9 +20,11 @@ enum_update_hash(mrb_state *mrb, mrb_value self)
   if (mrb_fixnum_p(item_hash)) {
     hv = mrb_fixnum(item_hash);
   }
+#ifndef MRB_WITHOUT_FLOAT
   else if (mrb_float_p(item_hash)) {
     hv = (mrb_int)mrb_float(item_hash);
   }
+#endif
   else {
     mrb_raise(mrb, E_TYPE_ERROR, "can't calculate hash");
   }
diff --git a/src/load.c b/src/load.c
index 3a6ce7cca..ddf3cdfbf 100644
--- a/src/load.c
+++ b/src/load.c
@@ -128,8 +128,13 @@ read_irep_record_1(mrb_state *mrb, const uint8_t *bin, size_t *len, uint8_t flag
       switch (tt) { /* pool data */
       case IREP_TT_FIXNUM: {
         mrb_value num = mrb_str_to_inum(mrb, s, 10, FALSE);
+#ifdef MRB_WITHOUT_FLOAT
+        irep->pool[i] = num;
+#else
         irep->pool[i] = mrb_float_p(num)? mrb_float_pool(mrb, mrb_float(num)) : num;
-      } break;
+#endif
+        }
+        break;
 
 #ifndef MRB_WITHOUT_FLOAT
       case IREP_TT_FLOAT:
diff --git a/src/string.c b/src/string.c
index 8ebd11b6c..e4bfd034c 100644
--- a/src/string.c
+++ b/src/string.c
@@ -2167,10 +2167,13 @@ mrb_str_len_to_inum(mrb_state *mrb, const char *str, mrb_int len, mrb_int base,
     n *= base;
     n += c;
     if (n > (uint64_t)MRB_INT_MAX + (sign ? 0 : 1)) {
+#ifndef MRB_WITHOUT_FLOAT
       if (base == 10) {
         return mrb_float_value(mrb, mrb_str_to_dbl(mrb, mrb_str_new(mrb, str, len), badcheck));
       }
-      else {
+      else
+#endif
+      {
         mrb_raisef(mrb, E_ARGUMENT_ERROR, "string (%S) too big for integer",
                    mrb_str_new(mrb, str, pend-str));
       }