summaryrefslogtreecommitdiff
path: root/ext/date
diff options
context:
space:
mode:
authortadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2011-12-19 17:16:48 +0000
committertadf <tadf@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2011-12-19 17:16:48 +0000
commit305cd3fb00629cb2a7d77daa7a9dc91d75cf5c34 (patch)
tree0b66d38fff6e502620155b8c490652591e7227ae /ext/date
parent8457bea9ab5394cb43f4d5019ccb8836675366ad (diff)
* ext/date/date_core.c: [ruby-dev:45008].
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@34072 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/date')
-rw-r--r--ext/date/date_core.c21
1 files changed, 17 insertions, 4 deletions
diff --git a/ext/date/date_core.c b/ext/date/date_core.c
index ad9bc29a86..98c05b810d 100644
--- a/ext/date/date_core.c
+++ b/ext/date/date_core.c
@@ -39,6 +39,7 @@ static double positive_inf, negative_inf;
#define f_truncate(x) rb_funcall(x, rb_intern("truncate"), 0)
#define f_round(x) rb_funcall(x, rb_intern("round"), 0)
+#define f_to_i(x) rb_funcall(x, rb_intern("to_i"), 0)
#define f_to_r(x) rb_funcall(x, rb_intern("to_r"), 0)
#define f_to_s(x) rb_funcall(x, rb_intern("to_s"), 0)
#define f_inspect(x) rb_funcall(x, rb_intern("inspect"), 0)
@@ -3094,13 +3095,25 @@ wholenum_p(VALUE x)
return 0;
}
+inline static int
+wholenum(VALUE x)
+{
+ if (FIXNUM_P(x))
+ return x;
+ switch (TYPE(x)) {
+ case T_BIGNUM:
+ return x;
+ }
+ return f_to_i(x);
+}
+
inline static VALUE
d_trunc(VALUE d, VALUE *fr)
{
VALUE rd;
if (wholenum_p(d)) {
- rd = d;
+ rd = wholenum(d);
*fr = INT2FIX(0);
} else {
rd = f_idiv(d, INT2FIX(1));
@@ -3118,7 +3131,7 @@ h_trunc(VALUE h, VALUE *fr)
VALUE rh;
if (wholenum_p(h)) {
- rh = h;
+ rh = wholenum(h);
*fr = INT2FIX(0);
} else {
rh = f_idiv(h, INT2FIX(1));
@@ -3134,7 +3147,7 @@ min_trunc(VALUE min, VALUE *fr)
VALUE rmin;
if (wholenum_p(min)) {
- rmin = min;
+ rmin = wholenum(min);
*fr = INT2FIX(0);
} else {
rmin = f_idiv(min, INT2FIX(1));
@@ -3150,7 +3163,7 @@ s_trunc(VALUE s, VALUE *fr)
VALUE rs;
if (wholenum_p(s)) {
- rs = s;
+ rs = wholenum(s);
*fr = INT2FIX(0);
} else {
rs = f_idiv(s, INT2FIX(1));