Tcl Source Code

Check-in [a6cc71ba6d]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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.

1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
....
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
 *
 *----------------------------------------------------------------------
 */

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 */







|
|







 







|
|







1354
1355
1356
1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
....
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391
1392
1393
 *
 *----------------------------------------------------------------------
 */

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 */