Tcl Source Code: Check-in [a6cc71ba6d]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	Fix typo in previous check-in.
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| experimental
Files:	files \| file ages \| folders
SHA1:	a6cc71ba6d23a4446cd3520bc23b451351c2d3a4
User & Date:	mistachkin 2015-05-27 22:34:53

Context

2015-05-28
00:53		Make sure the necessary mutexes are in a well-known state across calls to fork(). check-in: e061e813c3 user: mistachkin tags: bug-57945b574a
2015-05-27
22:34		Fix typo in previous check-in. Closed-Leaf check-in: a6cc71ba6d user: mistachkin tags: experimental
22:29		Make sure the master and mutex locks are in a well-known state across the fork() call. check-in: c69cf62a8e user: mistachkin tags: experimental

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to unix/tclUnixNotfy.c.

 *
 *----------------------------------------------------------------------
 */

static void
AtForkParent(void)
{
    TclpMutexLock();
    TclpMasterLock();
    Tcl_MutexUnlock(&notifierMutex);
}
 
/*
 *----------------------------------------------------------------------
 *
 * AtForkChild --
................................................................................
 *
 *----------------------------------------------------------------------
 */

static void
AtForkChild(void)
{
    TclpMutexLock();
    TclpMasterLock();
    Tcl_MutexUnlockAndFinalize(&notifierMutex);
    Tcl_InitNotifier();
}
#endif /* HAVE_PTHREAD_ATFORK */

#endif /* TCL_THREADS */

 *
 *----------------------------------------------------------------------
 */

static void
AtForkParent(void)
{
    TclpMutexUnlock();
    TclpMasterUnlock();
    Tcl_MutexUnlock(&notifierMutex);
}
 
/*
 *----------------------------------------------------------------------
 *
 * AtForkChild --
................................................................................
 *
 *----------------------------------------------------------------------
 */

static void
AtForkChild(void)
{
    TclpMutexUnlock();
    TclpMasterUnlock();
    Tcl_MutexUnlockAndFinalize(&notifierMutex);
    Tcl_InitNotifier();
}
#endif /* HAVE_PTHREAD_ATFORK */

#endif /* TCL_THREADS */