From 0fee6e1ee98725e117e04b33440af395ea8e0491 Mon Sep 17 00:00:00 2001 From: "Yukihiro \"Matz\" Matsumoto" Date: Sat, 28 Apr 2018 15:15:28 +0900 Subject: Fix broken support of `MRB_WITHOUT_FLOAT`; fix #4015 --- src/load.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'src/load.c') 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: -- cgit v1.2.3