diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-15 15:10:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-15 15:10:32 (GMT) |
| commit | 19e38811559271a3d6c390847ee1f8a206d65a50 (patch) | |
| tree | 825fb55b271c5b6adbf12b7fd2cecfb55310c2b4 /generic/tclZlib.c | |
| parent | 74d71bafde63ca49cecadc990df7b3a2d7797849 (diff) | |
| download | tcl-19e38811559271a3d6c390847ee1f8a206d65a50.zip tcl-19e38811559271a3d6c390847ee1f8a206d65a50.tar.gz tcl-19e38811559271a3d6c390847ee1f8a206d65a50.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) { |