Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix for [d4e464ae48]: tcl 8.5.15/8.6.1 breaks python make check on darwin |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-5-branch |
Files: | files | file ages | folders |
SHA1: |
a546b99dac7c9aa824fe31c0f75b2e8f |
User & Date: | jan.nijtmans 2013-10-07 14:23:00 |
Context
2013-10-09
| ||
21:57 | Update to Unicode 6.3 tables check-in: fc0b5887e3 user: jan.nijtmans tags: core-8-5-branch | |
2013-10-07
| ||
14:25 | Fix for [d4e464ae48]: tcl 8.5.15/8.6.1 breaks python make check on darwin check-in: 09eb125484 user: jan.nijtmans tags: trunk | |
14:23 | Fix for [d4e464ae48]: tcl 8.5.15/8.6.1 breaks python make check on darwin check-in: a546b99dac user: jan.nijtmans tags: core-8-5-branch | |
2013-10-06
| ||
19:27 | First attempt to fix bug [d4e464ae48]: tcl 8.5.15/8.61 breaks python make check on darwin Closed-Leaf check-in: 4b277b8c24 user: jan.nijtmans tags: bug-d4e464ae48 | |
2013-10-05
| ||
16:22 | Advance to tzdata2013g check-in: 0bce3cbeeb user: kbk tags: core-8-5-branch | |
Changes
Changes to unix/tclUnixNotfy.c.
︙ | ︙ | |||
198 199 200 201 202 203 204 | /* * Static routines defined in this file. */ #ifdef TCL_THREADS static void NotifierThreadProc(ClientData clientData); | | | 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 | /* * Static routines defined in this file. */ #ifdef TCL_THREADS static void NotifierThreadProc(ClientData clientData); #if defined(HAVE_PTHREAD_ATFORK) && !defined(__APPLE__) 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); |
︙ | ︙ | |||
278 279 280 281 282 283 284 | tsdPtr->eventReady = 0; /* * Start the Notifier thread if necessary. */ Tcl_MutexLock(¬ifierMutex); | | | | 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 | tsdPtr->eventReady = 0; /* * Start the Notifier thread if necessary. */ Tcl_MutexLock(¬ifierMutex); #if defined(HAVE_PTHREAD_ATFORK) && !defined(__APPLE__) /* * Install pthread_atfork handlers to reinitialize the notifier in the * child of a fork. */ if (!atForkInit) { int result = pthread_atfork(AtForkPrepare, AtForkParent, AtForkChild); if (result) { Tcl_Panic("Tcl_InitNotifier: pthread_atfork failed"); } atForkInit = 1; } #endif /* HAVE_PTHREAD_ATFORK */ /* * Check if my process id changed, e.g. I was forked * In this case, restart the notifier thread and close the * pipe to the original notifier thread */ if (notifierCount > 0 && processIDInitialized != getpid()) { notifierCount = 0; |
︙ | ︙ | |||
1269 1270 1271 1272 1273 1274 1275 | triggerPipe = -1; Tcl_ConditionNotify(¬ifierCV); Tcl_MutexUnlock(¬ifierMutex); TclpThreadExit (0); } | | | 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 | triggerPipe = -1; Tcl_ConditionNotify(¬ifierCV); Tcl_MutexUnlock(¬ifierMutex); TclpThreadExit (0); } #if defined(HAVE_PTHREAD_ATFORK) && !defined(__APPLE__) /* *---------------------------------------------------------------------- * * AtForkPrepare -- * * Lock the notifier in preparation for a fork. * |
︙ | ︙ |
Changes to unix/tclUnixTest.c.
︙ | ︙ | |||
570 571 572 573 574 575 576 | } pid = fork(); if (pid == -1) { Tcl_AppendResult(interp, "Cannot fork", NULL); return TCL_ERROR; } | | | | 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 | } pid = fork(); if (pid == -1) { Tcl_AppendResult(interp, "Cannot fork", NULL); return TCL_ERROR; } #if !defined(HAVE_PTHREAD_ATFORK) /* Only needed when pthread_atfork is not present. */ if (pid==0) { Tcl_InitNotifier(); } #endif Tcl_SetObjResult(interp, Tcl_NewIntObj(pid)); return TCL_OK; } |
︙ | ︙ |