summaryrefslogtreecommitdiff
path: root/ext
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
commita7473661024891abf422f8ffa0ea84022b154304 (patch)
tree10b799e2c4229a920584098d88e07c339c0b5b7d /ext
parentdbbfbc5a21dec443bd0234f89d739129cff4d0a5 (diff)
* ext/tk/tcltklib.c (ip_set_exc_message): fixed memory leak.
* ext/tk/tcltklib.c: eTkCallbackReturn was not initialized. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8373 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'ext')
-rw-r--r--ext/tk/tcltklib.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 49667427f5..8b3de85b88 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/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);