From 2f99f3b41a4ad5a4efafb0b71784bd05b99d9bba Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 22 Jan 1998 10:07:53 +0000
Subject: use STR2CSTR

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

(limited to 'object.c')

diff --git a/object.c b/object.c
index faf6983526..be551bd82a 100644
--- a/object.c
+++ b/object.c
@@ -721,6 +721,15 @@ f_string(obj, arg)
     return rb_funcall(arg, rb_intern("to_s"), 0);
 }
 
+char*
+str2cstr(str)
+    VALUE str;
+{
+    if (NIL_P(str)) return NULL;
+    Check_Type(str, T_STRING);
+    return RSTRING(str)->ptr;
+}
+
 VALUE
 rb_String(val)
     VALUE val;
-- 
cgit v1.2.3