diff options
| author | dgp <dgp@users.sourceforge.net> | 2014-07-21 14:26:56 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2014-07-21 14:26:56 (GMT) |
| commit | 4a913825d6e04adfddffb4f70cd7d35ae6b92efb (patch) | |
| tree | f3d14fca69034c380e03469b8584ec6eb888a348 | |
| parent | eacbc736d923a9b9b77f628876dac58ad34dfd10 (diff) | |
| download | tcl-4a913825d6e04adfddffb4f70cd7d35ae6b92efb.zip tcl-4a913825d6e04adfddffb4f70cd7d35ae6b92efb.tar.gz tcl-4a913825d6e04adfddffb4f70cd7d35ae6b92efb.tar.bz2 | |
[e6477e1b0f] Plug memleak in AtForkChild() detected in iocmd-11.4.
| -rw-r--r-- | unix/tclUnixNotfy.c | 4 |
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(¬ifierCV); notifierCount = 0; processIDInitialized = 0; close(triggerPipe); @@ -1375,8 +1376,7 @@ AtForkParent(void) static void AtForkChild(void) { - notifierMutex = NULL; - notifierCV = NULL; + Tcl_MutexFinalize(¬ifierMutex); Tcl_InitNotifier(); } #endif /* HAVE_PTHREAD_ATFORK */ |