Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Workaround for [414d10346b]: tcl 8.5.15/8.6.1(threaded build) hangs in exec on HP-UX |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
6ba84ab753e255993e14f54740753263 |
| User & Date: | jan.nijtmans 2013-10-29 08:17:19 |
References
|
2013-11-11
| ||
| 12:18 | • Pending ticket [414d10346b]: tcl 8.5.15/8.6.1(threaded build) hangs in exec on HP-UX plus 5 other changes artifact: e56ef8bfb7 user: jan.nijtmans | |
Context
|
2013-10-31
| ||
| 11:44 | Windows dll's should be executable. check-in: e81e8058f8 user: jan.nijtmans tags: trunk | |
|
2013-10-29
| ||
| 20:08 | merge trunk check-in: e73a6a8458 user: dkf tags: dkf-bytecode-8.6-main | |
| 13:25 | merge trunk check-in: e494959ae2 user: jan.nijtmans tags: novem | |
| 08:17 | Workaround for [414d10346b]: tcl 8.5.15/8.6.1(threaded build) hangs in exec on HP-UX check-in: 6ba84ab753 user: jan.nijtmans tags: trunk | |
| 08:15 | Workaround for [414d10346b]: tcl 8.5.15/8.6.1(threaded build) hangs in exec on HP-UX check-in: d7c93731e2 user: jan.nijtmans tags: core-8-5-branch | |
|
2013-10-28
| ||
| 10:57 | Don't fix eol-style for Makefile.in in "make dist", if the file system is case-insensitive/case-pres... check-in: ee8c73bbd4 user: jan.nijtmans tags: trunk | |
Changes
Changes to unix/tclUnixNotfy.c.
| ︙ | ︙ | |||
190 191 192 193 194 195 196 | /* * Static routines defined in this file. */ #ifdef TCL_THREADS static void NotifierThreadProc(ClientData clientData); | | | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 | /* * Static routines defined in this file. */ #ifdef TCL_THREADS static void NotifierThreadProc(ClientData clientData); #if defined(HAVE_PTHREAD_ATFORK) && !defined(__APPLE__) && !defined(__hpux) static int atForkInit = 0; static void AtForkPrepare(void); static void AtForkParent(void); static void AtForkChild(void); #endif /* HAVE_PTHREAD_ATFORK */ #endif /* TCL_THREADS */ static int FileHandlerEventProc(Tcl_Event *evPtr, int flags); |
| ︙ | ︙ | |||
286 287 288 289 290 291 292 | tsdPtr->eventReady = 0; /* * Start the Notifier thread if necessary. */ Tcl_MutexLock(¬ifierMutex); | | | 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 |
tsdPtr->eventReady = 0;
/*
* Start the Notifier thread if necessary.
*/
Tcl_MutexLock(¬ifierMutex);
#if defined(HAVE_PTHREAD_ATFORK) && !defined(__APPLE__) && !defined(__hpux)
/*
* Install pthread_atfork handlers to reinitialize the notifier in the
* child of a fork.
*/
if (!atForkInit) {
int result = pthread_atfork(AtForkPrepare, AtForkParent, AtForkChild);
|
| ︙ | ︙ | |||
1309 1310 1311 1312 1313 1314 1315 |
triggerPipe = -1;
Tcl_ConditionNotify(¬ifierCV);
Tcl_MutexUnlock(¬ifierMutex);
TclpThreadExit(0);
}
| | | 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 |
triggerPipe = -1;
Tcl_ConditionNotify(¬ifierCV);
Tcl_MutexUnlock(¬ifierMutex);
TclpThreadExit(0);
}
#if defined(HAVE_PTHREAD_ATFORK) && !defined(__APPLE__) && !defined(__hpux)
/*
*----------------------------------------------------------------------
*
* AtForkPrepare --
*
* Lock the notifier in preparation for a fork.
*
|
| ︙ | ︙ |
Changes to unix/tclUnixTest.c.
| ︙ | ︙ | |||
562 563 564 565 566 567 568 |
}
pid = fork();
if (pid == -1) {
Tcl_AppendResult(interp,
"Cannot fork", NULL);
return TCL_ERROR;
}
| < | > < | 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 |
}
pid = fork();
if (pid == -1) {
Tcl_AppendResult(interp,
"Cannot fork", NULL);
return TCL_ERROR;
}
/* Only needed when pthread_atfork is not present,
* should not hurt otherwise. */
if (pid==0) {
Tcl_InitNotifier();
}
Tcl_SetObjResult(interp, Tcl_NewIntObj(pid));
return TCL_OK;
}
/*
*----------------------------------------------------------------------
*
|
| ︙ | ︙ |