diff options
| author | dgp@users.sourceforge.net <dgp> | 2014-07-21 14:26:56 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2014-07-21 14:26:56 (GMT) |
| commit | 8cf524ed39b3c9c494d4499e68c5efec32d9d475 (patch) | |
| tree | f3d14fca69034c380e03469b8584ec6eb888a348 | |
| parent | d00b7c6e25d54a695c2ef0b4748821d52782e184 (diff) | |
| download | tcl-8cf524ed39b3c9c494d4499e68c5efec32d9d475.zip tcl-8cf524ed39b3c9c494d4499e68c5efec32d9d475.tar.gz tcl-8cf524ed39b3c9c494d4499e68c5efec32d9d475.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 */ |