summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixNotfy.c
diff options
context:
space:
mode:
authordgp@users.sourceforge.net <dgp>2014-07-21 14:26:56 (GMT)
committerdgp@users.sourceforge.net <dgp>2014-07-21 14:26:56 (GMT)
commit8cf524ed39b3c9c494d4499e68c5efec32d9d475 (patch)
treef3d14fca69034c380e03469b8584ec6eb888a348 /unix/tclUnixNotfy.c
parentd00b7c6e25d54a695c2ef0b4748821d52782e184 (diff)
downloadtcl-8cf524ed39b3c9c494d4499e68c5efec32d9d475.zip
tcl-8cf524ed39b3c9c494d4499e68c5efec32d9d475.tar.gz
tcl-8cf524ed39b3c9c494d4499e68c5efec32d9d475.tar.bz2
[e6477e1b0f] Plug memleak in AtForkChild() detected in iocmd-11.4.
Diffstat (limited to 'unix/tclUnixNotfy.c')
-rw-r--r--unix/tclUnixNotfy.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclUnixNotfy.c b/unix/tclUnixNotfy.c
index b234667..b2bea45 100644
--- a/unix/tclUnixNotfy.c
+++ b/unix/tclUnixNotfy.c
@@ -311,6 +311,7 @@ Tcl_InitNotifier(void)
* pipe to the original notifier thread
*/
if (notifierCount > 0 && processIDInitialized != getpid()) {
+ Tcl_ConditionFinalize(&notifierCV);
notifierCount = 0;
processIDInitialized = 0;
close(triggerPipe);
@@ -1375,8 +1376,7 @@ AtForkParent(void)
static void
AtForkChild(void)
{
- notifierMutex = NULL;
- notifierCV = NULL;
+ Tcl_MutexFinalize(&notifierMutex);
Tcl_InitNotifier();
}
#endif /* HAVE_PTHREAD_ATFORK */