diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-22 10:18:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-22 10:18:06 (GMT) |
| commit | f1f10fb2a5773e4577cbf58b62acff8d77eb4eef (patch) | |
| tree | 69195bcfa188f4077eae88dda3f09bd1a67cd5f5 /generic/tclIORTrans.c | |
| parent | 812a702c5b6a08312fc0eac684a86fcb5a651e35 (diff) | |
| parent | 6b86c2f514ad7c263691443055ad1d0a94a9f4f9 (diff) | |
| download | tcl-f1f10fb2a5773e4577cbf58b62acff8d77eb4eef.zip tcl-f1f10fb2a5773e4577cbf58b62acff8d77eb4eef.tar.gz tcl-f1f10fb2a5773e4577cbf58b62acff8d77eb4eef.tar.bz2 | |
Merge to feature branch
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; } } |