summaryrefslogtreecommitdiffstats
path: root/unix/tclUnixNotfy.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-07-21 14:26:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-07-21 14:26:56 (GMT)
commit4a913825d6e04adfddffb4f70cd7d35ae6b92efb (patch)
treef3d14fca69034c380e03469b8584ec6eb888a348 /unix/tclUnixNotfy.c
parenteacbc736d923a9b9b77f628876dac58ad34dfd10 (diff)
downloadtcl-4a913825d6e04adfddffb4f70cd7d35ae6b92efb.zip
tcl-4a913825d6e04adfddffb4f70cd7d35ae6b92efb.tar.gz
tcl-4a913825d6e04adfddffb4f70cd7d35ae6b92efb.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 */