summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-05-06 23:23:43 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-05-06 23:23:43 (GMT)
commit06da97fda1d8384b5700cf28a14998a15ca94c0a (patch)
treefd1214e57425a261961ede1e88d157afa4af3b78 /generic
parente35a33106d2918d82903fa94e973f42fd5f28a1d (diff)
downloadtcl-06da97fda1d8384b5700cf28a14998a15ca94c0a.zip
tcl-06da97fda1d8384b5700cf28a14998a15ca94c0a.tar.gz
tcl-06da97fda1d8384b5700cf28a14998a15ca94c0a.tar.bz2
Stop memory leak in io-29.34
Diffstat (limited to 'generic')
-rw-r--r--generic/tclIO.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c
index fc3722c..b2b4e5c 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -2525,6 +2525,7 @@ FlushChannel(
if (errorCode == EINTR) {
errorCode = 0;
+ ReleaseChannelBuffer(bufPtr);
continue;
}
@@ -2546,6 +2547,7 @@ FlushChannel(
UpdateInterest(chanPtr);
}
errorCode = 0;
+ ReleaseChannelBuffer(bufPtr);
break;
}