Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | First pass at repairing the broken -eventmark management. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dgp-eventmark |
| Files: | files | file ages | folders |
| SHA1: |
0fea2d083e55fda35751ee00829aa03e |
| User & Date: | dgp 2015-03-26 16:48:20 |
Context
|
2015-03-26
| ||
| 17:26 | Make sure any new [thread::configure -eventmark] setting actually has an effect on blocks that are currently active. Leaf check-in: 55e837cbfc user: dgp tags: dgp-eventmark | |
| 16:48 | First pass at repairing the broken -eventmark management. check-in: 0fea2d083e user: dgp tags: dgp-eventmark | |
|
2015-03-06
| ||
| 19:13 | Update `make dist` target for the configure.in rename. check-in: 7c8c5bd4e1 user: dgp tags: trunk, thread-2-7-2 | |
Changes
Changes to generic/threadCmd.c.
| ︙ | ︙ | |||
2833 2834 2835 2836 2837 2838 2839 |
*/
while (canrun) {
/*
* About to service another event.
* Wake-up eventual sleepers.
| < > | 2833 2834 2835 2836 2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2847 2848 2849 2850 2851 2852 2853 2854 |
*/
while (canrun) {
/*
* About to service another event.
* Wake-up eventual sleepers.
if (tsdPtr->maxEventsCount) {
Tcl_MutexLock(&threadMutex);
tsdPtr->eventsPending--;
Tcl_ConditionNotify(&tsdPtr->doOneEvent);
Tcl_MutexUnlock(&threadMutex);
}
*/
/*
* Attempt to process one event, blocking forever until an
* event is actually received. The event processed may cause
* a script in progress to be canceled or exceed its limit;
* therefore, check for these conditions if we are able to
* (i.e. we are running in a high enough version of Tcl).
|
| ︙ | ︙ | |||
3208 3209 3210 3211 3212 3213 3214 3215 3216 3217 3218 3219 3220 3221 |
tsdPtr->flags |= THREAD_FLAGS_INERROR;
if (tsdPtr->refCount == 0) {
tsdPtr->flags |= THREAD_FLAGS_STOPPED;
}
}
Tcl_MutexUnlock(&threadMutex);
}
return 1;
}
/*
*----------------------------------------------------------------------
*
| > > > > > > > | 3208 3209 3210 3211 3212 3213 3214 3215 3216 3217 3218 3219 3220 3221 3222 3223 3224 3225 3226 3227 3228 |
tsdPtr->flags |= THREAD_FLAGS_INERROR;
if (tsdPtr->refCount == 0) {
tsdPtr->flags |= THREAD_FLAGS_STOPPED;
}
}
Tcl_MutexUnlock(&threadMutex);
}
if (tsdPtr->maxEventsCount) {
Tcl_MutexLock(&threadMutex);
tsdPtr->eventsPending--;
Tcl_ConditionNotify(&tsdPtr->doOneEvent);
Tcl_MutexUnlock(&threadMutex);
}
return 1;
}
/*
*----------------------------------------------------------------------
*
|
| ︙ | ︙ |