diff options
author | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-04-22 07:57:26 +0000 |
---|---|---|
committer | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-04-22 07:57:26 +0000 |
commit | a7473661024891abf422f8ffa0ea84022b154304 (patch) | |
tree | 10b799e2c4229a920584098d88e07c339c0b5b7d | |
parent | dbbfbc5a21dec443bd0234f89d739129cff4d0a5 (diff) | |
download | ruby-a7473661024891abf422f8ffa0ea84022b154304.tar.gz |
* 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
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | ext/tk/tcltklib.c | 3 |
2 files changed, 8 insertions, 1 deletions
@@ -1,3 +1,9 @@ +Fri Apr 22 16:55:35 2005 Hirokazu Yamamoto <ocean@m2.ccsnet.ne.jp> + + * ext/tk/tcltklib.c (ip_set_exc_message): fixed memory leak. + + * ext/tk/tcltklib.c: eTkCallbackReturn was not initialized. + Thu Apr 21 06:45:28 2005 Nobuyoshi Nakada <nobu@ruby-lang.org> * ruby.c (ruby_incpush_expand, proc_options): expand relative path 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); |