summaryrefslogtreecommitdiffstats
path: root/ext/tcltklib/tcltklib.c
diff options
context:
space:
mode:
authorocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2005-04-22 07:57:26 +0000
committerocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2005-04-22 07:57:26 +0000
commit8586960ecc19788341196bb9def1ab11642addbe (patch)
treebf006f020ad8b9ba24e4ac64446e824769d3f81c /ext/tcltklib/tcltklib.c
parentd4eef4e39e422ec0e4e6dad923891feaf057c38d (diff)
downloadruby-8586960ecc19788341196bb9def1ab11642addbe.tar.gz
ruby-8586960ecc19788341196bb9def1ab11642addbe.tar.xz
ruby-8586960ecc19788341196bb9def1ab11642addbe.zip
* ext/tk/tcltklib.c (ip_set_exc_message): fixed memory leak.
* ext/tk/tcltklib.c: eTkCallbackReturn was not initialized. git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@8373 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext/tcltklib/tcltklib.c')
-rw-r--r--ext/tcltklib/tcltklib.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c
index 49667427f..8b3de85b8 100644
--- a/ext/tcltklib/tcltklib.c
+++ b/ext/tcltklib/tcltklib.c
@@ -1903,6 +1903,7 @@ ip_set_exc_message(interp, exc)
Tcl_AppendResult(interp, Tcl_DStringValue(&dstr), (char*)NULL);
DUMP2("error message:%s", Tcl_DStringValue(&dstr));
+ Tcl_DStringFree(&dstr);
free(buf);
#else /* TCL_VERSION <= 8.0 */
@@ -8383,7 +8384,7 @@ Init_tcltklib()
/* --------------------------------------------------------------- */
- eTkCallbackBreak = rb_define_class("TkCallbackReturn", rb_eStandardError);
+ eTkCallbackReturn = rb_define_class("TkCallbackReturn", rb_eStandardError);
eTkCallbackBreak = rb_define_class("TkCallbackBreak", rb_eStandardError);
eTkCallbackContinue = rb_define_class("TkCallbackContinue",
rb_eStandardError);