From ad004644893b2f867521c3f215753cf8c04ea887 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 29 Dec 2008 13:40:33 +0000
Subject: * pack.c (pack_pack): template f should not accept non float  
 values.  [ruby-dev:37656]

* object.c (rb_to_float): new function to type check floats.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@21179 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 object.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'object.c')

diff --git a/object.c b/object.c
index 4f2fcb6def..889a0c6d21 100644
--- a/object.c
+++ b/object.c
@@ -2267,6 +2267,21 @@ rb_f_float(VALUE obj, VALUE arg)
     return rb_Float(arg);
 }
 
+VALUE
+rb_to_float(VALUE val)
+{
+    VALUE v;
+
+    if (TYPE(val) == T_FLOAT) return val;
+    v = convert_type(val, "Float", "to_f", Qtrue);
+    if (TYPE(v) != T_FLOAT) {
+	const char *cname = rb_obj_classname(val);
+	rb_raise(rb_eTypeError, "can't convert %s to Float (%s#to_f gives %s)",
+		 cname, cname, rb_obj_classname(v));
+    }
+    return v;
+}
+
 double
 rb_num2dbl(VALUE val)
 {
-- 
cgit v1.2.3