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 | d19b7190cbf9b1827e5999bfd67a9aa73b74478a (patch) | |
| tree | f3d14fca69034c380e03469b8584ec6eb888a348 /unix/tclUnixNotfy.c | |
| parent | 97d610fbfe735b336f5c6a17f94497a429970792 (diff) | |
| download | tcl-d19b7190cbf9b1827e5999bfd67a9aa73b74478a.zip tcl-d19b7190cbf9b1827e5999bfd67a9aa73b74478a.tar.gz tcl-d19b7190cbf9b1827e5999bfd67a9aa73b74478a.tar.bz2 | |
[e6477e1b0f] Plug memleak in AtForkChild() detected in iocmd-11.4.
Diffstat (limited to 'unix/tclUnixNotfy.c')
| -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 */ |