diff options
| author | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-06-16 06:23:47 +0000 |
|---|---|---|
| committer | ocean <ocean@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2005-06-16 06:23:47 +0000 |
| commit | e2bf2bdbcc5ecf0b8615c5b51aca79f180cbecbb (patch) | |
| tree | ce9b581e8451daa2d2826b89d95f7a7aae1bc5cb | |
| parent | 4ca1bb626d0612ce98e4d8eb99873a31b99c689a (diff) | |
| download | ruby-e2bf2bdbcc5ecf0b8615c5b51aca79f180cbecbb.tar.gz ruby-e2bf2bdbcc5ecf0b8615c5b51aca79f180cbecbb.tar.xz ruby-e2bf2bdbcc5ecf0b8615c5b51aca79f180cbecbb.zip | |
* ext/tcltklib/tcltklib.c (ip_rb_threadVwaitCommand): Tcl_Release was missing.
git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@8632 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
| -rw-r--r-- | ChangeLog | 4 | ||||
| -rw-r--r-- | ext/tcltklib/tcltklib.c | 3 |
2 files changed, 6 insertions, 1 deletions
@@ -1,3 +1,7 @@ +Thu Jun 16 15:06:55 2005 Hirokazu Yamamoto <ocean@m2.ccsnet.ne.jp> + + * ext/tcltklib/tcltklib.c (ip_rb_threadVwaitCommand): Tcl_Release was missing. + Thu Jun 16 13:34:48 2005 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp> * ext/tk/lib/tk.rb: add Tk.getMultiple{Open|Save}File() which return diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 58d65ec22..7651084b2 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -4,7 +4,7 @@ * Oct. 24, 1997 Y. Matsumoto */ -#define TCLTKLIB_RELEASE_DATE "2005-04-26" +#define TCLTKLIB_RELEASE_DATE "2005-06-16" #include "ruby.h" #include "rubysig.h" @@ -3930,6 +3930,7 @@ ip_rb_threadVwaitCommand(clientData, interp, objc, objv) rb_thread_critical = thr_crit_bup; if (ret != TCL_OK) { + Tcl_Release(param); Tcl_Free((char *)param); #if TCL_MAJOR_VERSION >= 8 |