From 710f6252548f4a0eaf16a7b0d4d973a50e4520c0 Mon Sep 17 00:00:00 2001
From: Masaki Muranaka <monaka@monami-ya.jp>
Date: Fri, 29 Mar 2013 21:48:18 +0900
Subject: Remove mrb_flt2big() as there is no bignum in the core.  Add new API
 mrb_flo_to_fixnum(). You can replace mrb_flt2big() to mrb_flo_to_fixnum()
 with few modifications.

---
 src/numeric.c | 30 ++++++++++++++++--------------
 1 file changed, 16 insertions(+), 14 deletions(-)

(limited to 'src/numeric.c')

diff --git a/src/numeric.c b/src/numeric.c
index 084243291..02a18c130 100644
--- a/src/numeric.c
+++ b/src/numeric.c
@@ -1175,25 +1175,27 @@ fix_to_f(mrb_state *mrb, mrb_value num)
  *     FloatDomainError: Infinity
  */
 /* ------------------------------------------------------------------------*/
-static mrb_int
-flt2big(mrb_state *mrb, mrb_float d)
+mrb_value
+mrb_flo_to_fixnum(mrb_state *mrb, mrb_value x)
 {
   mrb_int z;
 
-  if (isinf(d)) {
-    mrb_raise(mrb, E_FLOATDOMAIN_ERROR, d < 0 ? "-Infinity" : "Infinity");
-  }
-  if (isnan(d)) {
-    mrb_raise(mrb, E_FLOATDOMAIN_ERROR, "NaN");
+  if (mrb_float_p(x)) {
+     mrb_raise(mrb, E_TYPE_ERROR, "non float value");
+     z = 0; /* not reached. just supress warnings. */
   }
-  z = (mrb_int)d;
-  return z;
-}
+  else {
+    mrb_float d = mrb_float(x);
 
-mrb_value
-mrb_flt2big(mrb_state *mrb, mrb_float d)
-{
-  return mrb_fixnum_value(flt2big(mrb, d));
+    if (isinf(d)) {
+      mrb_raise(mrb, E_FLOATDOMAIN_ERROR, d < 0 ? "-Infinity" : "Infinity");
+    }
+    if (isnan(d)) {
+      mrb_raise(mrb, E_FLOATDOMAIN_ERROR, "NaN");
+    }
+    z = (mrb_int)d;
+  }
+  return mrb_fixnum_value(z);
 }
 
 mrb_value
-- 
cgit v1.2.3


From f82ae7653a53946fa14ed7a334b686265dc63dd3 Mon Sep 17 00:00:00 2001
From: Masaki Muranaka <monaka@monami-ya.jp>
Date: Fri, 29 Mar 2013 21:56:41 +0900
Subject: Change the second argument of mrb_flo_to_str().  Export
 mrb_flo_to_str() as API.

---
 include/mruby/numeric.h |  2 ++
 src/numeric.c           | 12 +++++++++---
 2 files changed, 11 insertions(+), 3 deletions(-)

(limited to 'src/numeric.c')

diff --git a/include/mruby/numeric.h b/include/mruby/numeric.h
index 6d90fbad7..615fdfe57 100644
--- a/include/mruby/numeric.h
+++ b/include/mruby/numeric.h
@@ -16,6 +16,8 @@ extern "C" {
 #define FIXABLE(f) (POSFIXABLE(f) && NEGFIXABLE(f))
 
 mrb_value mrb_flo_to_fixnum(mrb_state *mrb, mrb_value val);
+mrb_value mrb_flo_to_str(mrb_state *mrb, mrb_value flo, int max_digit);
+
 mrb_value mrb_fix2str(mrb_state *mrb, mrb_value x, int base);
 
 mrb_value mrb_fixnum_plus(mrb_state *mrb, mrb_value x, mrb_value y);
diff --git a/src/numeric.c b/src/numeric.c
index 02a18c130..c24e84958 100644
--- a/src/numeric.c
+++ b/src/numeric.c
@@ -163,13 +163,19 @@ num_abs(mrb_state *mrb, mrb_value num)
  */
 
 mrb_value
-mrb_flo_to_str(mrb_state *mrb, mrb_float n, int max_digit)
+mrb_flo_to_str(mrb_state *mrb, mrb_value flo, int max_digit)
 {
   mrb_value result;
+  mrb_float n;
 
   if (max_digit > 40) {
     mrb_raise(mrb, E_RANGE_ERROR, "Too large max_digit.");
   }
+  else if (!mrb_float_p(flo)) {
+    mrb_raise(mrb, E_TYPE_ERROR, "non float value");
+  }
+
+  n = mrb_float(flo);
 
   if (isnan(n)) {
     result = mrb_str_new(mrb, "NaN", 3);
@@ -270,9 +276,9 @@ static mrb_value
 flo_to_s(mrb_state *mrb, mrb_value flt)
 {
 #ifdef MRB_USE_FLOAT
-  return mrb_flo_to_str(mrb, mrb_float(flt), 7);
+  return mrb_flo_to_str(mrb, flt, 7);
 #else
-  return mrb_flo_to_str(mrb, mrb_float(flt), 14);
+  return mrb_flo_to_str(mrb, flt, 14);
 #endif
 }
 
-- 
cgit v1.2.3


From c260ef894e5dde74caa2baf8d381292c08c6cff1 Mon Sep 17 00:00:00 2001
From: Masaki Muranaka <monaka@monami-ya.jp>
Date: Fri, 29 Mar 2013 22:14:11 +0900
Subject: Rename mrb_fix2str() to mrb_fixnum_to_str(). This is for naming
 consistency.

---
 include/mruby/numeric.h             | 2 +-
 mrbgems/mruby-sprintf/src/sprintf.c | 2 +-
 src/codegen.c                       | 2 +-
 src/dump.c                          | 4 ++--
 src/numeric.c                       | 4 ++--
 src/string.c                        | 4 ++--
 6 files changed, 9 insertions(+), 9 deletions(-)

(limited to 'src/numeric.c')

diff --git a/include/mruby/numeric.h b/include/mruby/numeric.h
index c1daf43d9..871e78d56 100644
--- a/include/mruby/numeric.h
+++ b/include/mruby/numeric.h
@@ -20,7 +20,7 @@ extern "C" {
 mrb_value mrb_flo_to_fixnum(mrb_state *mrb, mrb_value val);
 mrb_value mrb_flo_to_str(mrb_state *mrb, mrb_value flo, int max_digit);
 
-mrb_value mrb_fix2str(mrb_state *mrb, mrb_value x, int base);
+mrb_value mrb_fixnum_to_str(mrb_state *mrb, mrb_value x, int base);
 
 mrb_value mrb_fixnum_plus(mrb_state *mrb, mrb_value x, mrb_value y);
 mrb_value mrb_fixnum_minus(mrb_state *mrb, mrb_value x, mrb_value y);
diff --git a/mrbgems/mruby-sprintf/src/sprintf.c b/mrbgems/mruby-sprintf/src/sprintf.c
index 82a4d7ab4..fed730c74 100644
--- a/mrbgems/mruby-sprintf/src/sprintf.c
+++ b/mrbgems/mruby-sprintf/src/sprintf.c
@@ -843,7 +843,7 @@ retry:
             dots = 1;
           }
           else {
-            val = mrb_fix2str(mrb, mrb_fixnum_value(v), base);
+            val = mrb_fixnum_to_str(mrb, mrb_fixnum_value(v), base);
           }
           v = mrb_fixnum(mrb_str_to_inum(mrb, val, 10, 0/*Qfalse*/));
         }
diff --git a/src/codegen.c b/src/codegen.c
index e5b1802a1..b8909e809 100644
--- a/src/codegen.c
+++ b/src/codegen.c
@@ -1868,7 +1868,7 @@ codegen(codegen_scope *s, node *tree, int val)
       mrb_value str = mrb_str_buf_new(mrb, 4);
 
       mrb_str_buf_cat(mrb, str, "$", 1);
-      mrb_str_buf_append(mrb, str, mrb_fix2str(mrb, fix, 10));
+      mrb_str_buf_append(mrb, str, mrb_fixnum_to_str(mrb, fix, 10));
       sym = new_sym(s, mrb_intern_str(mrb, str));
       genop(s, MKOP_ABx(OP_GETGLOBAL, cursp(), sym));
       push();
diff --git a/src/dump.c b/src/dump.c
index 578a22202..a1f568a60 100644
--- a/src/dump.c
+++ b/src/dump.c
@@ -80,7 +80,7 @@ get_pool_block_size(mrb_state *mrb, mrb_irep *irep)
 
     switch (mrb_type(irep->pool[pool_no])) {
     case MRB_TT_FIXNUM:
-      str = mrb_fix2str(mrb, irep->pool[pool_no], 10);
+      str = mrb_fixnum_to_str(mrb, irep->pool[pool_no], 10);
       size += RSTRING_LEN(str);
       break;
 
@@ -123,7 +123,7 @@ write_pool_block(mrb_state *mrb, mrb_irep *irep, uint8_t *buf)
 
     switch (mrb_type(irep->pool[pool_no])) {
     case MRB_TT_FIXNUM:
-      str = mrb_fix2str(mrb, irep->pool[pool_no], 10);
+      str = mrb_fixnum_to_str(mrb, irep->pool[pool_no], 10);
       char_ptr = RSTRING_PTR(str);
       len = RSTRING_LEN(str);
       break;
diff --git a/src/numeric.c b/src/numeric.c
index c24e84958..e026cc359 100644
--- a/src/numeric.c
+++ b/src/numeric.c
@@ -1284,7 +1284,7 @@ fix_minus(mrb_state *mrb, mrb_value self)
 
 
 mrb_value
-mrb_fix2str(mrb_state *mrb, mrb_value x, int base)
+mrb_fixnum_to_str(mrb_state *mrb, mrb_value x, int base)
 {
   char buf[sizeof(mrb_int)*CHAR_BIT+1];
   char *b = buf + sizeof buf;
@@ -1332,7 +1332,7 @@ fix_to_s(mrb_state *mrb, mrb_value self)
   mrb_int base = 10;
 
   mrb_get_args(mrb, "|i", &base);
-  return mrb_fix2str(mrb, self, base);
+  return mrb_fixnum_to_str(mrb, self, base);
 }
 
 /* 15.2.9.3.6  */
diff --git a/src/string.c b/src/string.c
index 5b6a44abd..c4074a64f 100644
--- a/src/string.c
+++ b/src/string.c
@@ -2537,7 +2537,7 @@ mrb_str_dump(mrb_state *mrb, mrb_value str)
         const char *ptr;
         int len;
         chr = mrb_fixnum_value(c & 0xff);
-        octstr = mrb_fix2str(mrb, chr, 8);
+        octstr = mrb_fixnum_to_str(mrb, chr, 8);
         ptr = mrb_str_body(octstr, &len);
         memcpy(q, "\\000", 4);
         memcpy(q + 4 - len, ptr, len);
@@ -2629,7 +2629,7 @@ mrb_str_inspect(mrb_state *mrb, mrb_value str)
         const char *ptr;
         int len;
         chr = mrb_fixnum_value(c & 0xff);
-        octstr = mrb_fix2str(mrb, chr, 8);
+        octstr = mrb_fixnum_to_str(mrb, chr, 8);
         ptr = mrb_str_body(octstr, &len);
         memcpy(buf, "\\000", 4);
         memcpy(buf + 4 - len, ptr, len);
-- 
cgit v1.2.3