Tcl Source Code

Check-in [a6cc71ba6d]
Login

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

Overview
Comment:Fix typo in previous check-in.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | experimental
Files: files | file ages | folders
SHA1: a6cc71ba6d23a4446cd3520bc23b451351c2d3a4
User & Date: mistachkin 2015-05-27 22:34:53.143
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
Unified Diff Ignore Whitespace Patch
Changes to unix/tclUnixNotfy.c.
1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
 *
 *----------------------------------------------------------------------
 */

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







|
|







1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
 *
 *----------------------------------------------------------------------
 */

static void
AtForkParent(void)
{
    TclpMutexUnlock();
    TclpMasterUnlock();
    Tcl_MutexUnlock(&notifierMutex);
}

/*
 *----------------------------------------------------------------------
 *
 * AtForkChild --
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
 *
 *----------------------------------------------------------------------
 */

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

#endif /* TCL_THREADS */








|
|







1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
 *
 *----------------------------------------------------------------------
 */

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

#endif /* TCL_THREADS */