From 7dba8bcd19b8468987a7fe4fcd8743c5f834a33e Mon Sep 17 00:00:00 2001 From: matz Date: Fri, 11 May 2001 05:24:59 +0000 Subject: * bignum.c (bigdivrem): access boundary bug. * marshal.c (w_object): prohibit dumping out singleton classes. * object.c (rb_mod_to_s): distinguish singleton classes. * variable.c (rb_class2name): it's ok to reveal NilClass, TrueClass, FalseClass. * eval.c (rb_yield_0): preserve and restore ruby_cref as well. * eval.c (is_defined): core dumped during instance_eval for special constants. * eval.c (rb_eval): ditto. git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@1389 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/tcltklib/tcltklib.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ext') diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index cec025bb7..6c95b42b3 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -372,9 +372,9 @@ ip_invoke_real(argc, argv, obj) /* object interface */ ov = (Tcl_Obj **)ALLOCA_N(Tcl_Obj *, argc+1); for (i = 0; i < argc; ++i) { - VALUE v = argv[i]; + v = argv[i]; s = StringValuePtr(v); - ov[i] = Tcl_NewStringObj(s, RSTRING(s)->len); + ov[i] = Tcl_NewStringObj(s, RSTRING(v)->len); Tcl_IncrRefCount(ov[i]); } ov[argc] = (Tcl_Obj *)NULL; -- cgit