From f7dd138f63c9fd13dd650d6a22ed57ae96a04988 Mon Sep 17 00:00:00 2001 From: ocean Date: Fri, 22 Apr 2005 07:57:26 +0000 Subject: * 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/branches/ruby_1_8@8373 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 6 ++++++ ext/tcltklib/tcltklib.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 65cadfbb9b..007d3293a2 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +Fri Apr 22 16:41:50 2005 Hirokazu Yamamoto + + * ext/tk/tcltklib.c (ip_set_exc_message): fixed memory leak. + + * ext/tk/tcltklib.c: eTkCallbackReturn was not initialized. + Thu Apr 21 00:07:50 2005 Nobuyoshi Nakada * lib/mkmf.rb (create_makefile): support platforms have file separator diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 49667427f5..8b3de85b88 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); -- cgit v1.2.3