diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-07-15 15:10:32 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-07-15 15:10:32 (GMT) |
| commit | 4ffdf4da872be48f7a569d7935e1103d289862c8 (patch) | |
| tree | 825fb55b271c5b6adbf12b7fd2cecfb55310c2b4 /generic/tclZlib.c | |
| parent | 74c682e063b59beb1cb50c18b6bad2d48973256c (diff) | |
| download | tcl-4ffdf4da872be48f7a569d7935e1103d289862c8.zip tcl-4ffdf4da872be48f7a569d7935e1103d289862c8.tar.gz tcl-4ffdf4da872be48f7a569d7935e1103d289862c8.tar.bz2 | |
[726349fab8] Stop leaking compression dictionary on zlib xform channel close.
Diffstat (limited to 'generic/tclZlib.c')
| -rw-r--r-- | generic/tclZlib.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclZlib.c b/generic/tclZlib.c index 4ccda3b..06e18fe 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -2910,6 +2910,10 @@ ZlibTransformClose( * Release all memory. */ + if (cd->compDictObj) { + Tcl_DecrRefCount(cd->compDictObj); + cd->compDictObj = NULL; + } Tcl_DStringFree(&cd->decompressed); if (cd->inBuffer) { |