diff options
| author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2001-05-11 05:24:59 +0000 |
|---|---|---|
| committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2001-05-11 05:24:59 +0000 |
| commit | 7dba8bcd19b8468987a7fe4fcd8743c5f834a33e (patch) | |
| tree | 7e7a184bde865a5d67350923fbee84a5ea115f1e /ext/tcltklib | |
| parent | fef19a531b6695fab92927767c8c0af499f9a815 (diff) | |
| download | ruby-7dba8bcd19b8468987a7fe4fcd8743c5f834a33e.tar.gz ruby-7dba8bcd19b8468987a7fe4fcd8743c5f834a33e.tar.xz ruby-7dba8bcd19b8468987a7fe4fcd8743c5f834a33e.zip | |
* 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
Diffstat (limited to 'ext/tcltklib')
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 4 |
1 files changed, 2 insertions, 2 deletions
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; |