diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-08-19 20:27:48 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-08-19 20:27:48 (GMT) |
| commit | 4103da1420f5dfa153204982e6c4812212f5f7a0 (patch) | |
| tree | 0162290298d31cb6757eed6bca89246a63e35a79 /generic/tclIORTrans.c | |
| parent | 3f77f74d380a1696d1c7cce78a8e16a34b09e824 (diff) | |
| download | tcl-4103da1420f5dfa153204982e6c4812212f5f7a0.zip tcl-4103da1420f5dfa153204982e6c4812212f5f7a0.tar.gz tcl-4103da1420f5dfa153204982e6c4812212f5f7a0.tar.bz2 | |
3393279, 3393280 ReflectClose(.) is missing Tcl_EventuallyFree() calls
at some of its exits.
Diffstat (limited to 'generic/tclIORTrans.c')
| -rw-r--r-- | generic/tclIORTrans.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index 272306b..4806690 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -940,6 +940,7 @@ ReflectClose( int errorCode; if (!TransformDrain(rtPtr, &errorCode)) { + Tcl_EventuallyFree (rtPtr, (Tcl_FreeProc *) FreeReflectedTransform); return errorCode; } } @@ -948,6 +949,7 @@ ReflectClose( int errorCode; if (!TransformFlush(rtPtr, &errorCode, FLUSH_WRITE)) { + Tcl_EventuallyFree (rtPtr, (Tcl_FreeProc *) FreeReflectedTransform); return errorCode; } } |