summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--generic/regc_nfa.c1
-rw-r--r--generic/regcomp.c3
-rw-r--r--unix/tclUnixNotfy.c93
3 files changed, 49 insertions, 48 deletions
diff --git a/generic/regc_nfa.c b/generic/regc_nfa.c
index 1f0583e..9361d34 100644
--- a/generic/regc_nfa.c
+++ b/generic/regc_nfa.c
@@ -49,6 +49,7 @@ newnfa(
nfa = (struct nfa *) MALLOC(sizeof(struct nfa));
if (nfa == NULL) {
+ ERR(REG_ESPACE);
return NULL;
}
diff --git a/generic/regcomp.c b/generic/regcomp.c
index 7ca4346..4f0c139 100644
--- a/generic/regcomp.c
+++ b/generic/regcomp.c
@@ -982,6 +982,7 @@ parseqatom(
NOERR();
assert(v->nextvalue > 0);
atom = subre(v, 'b', BACKR, lp, rp);
+ NOERR();
subno = v->nextvalue;
atom->subno = subno;
EMPTYARC(lp, rp); /* temporarily, so there's something */
@@ -1129,6 +1130,7 @@ parseqatom(
*/
t = subre(v, '.', COMBINE(qprefer, atom->flags), lp, rp);
+ NOERR();
t->left = atom;
atomp = &t->left;
@@ -1142,6 +1144,7 @@ parseqatom(
assert(top->op == '=' && top->left == NULL && top->right == NULL);
top->left = subre(v, '=', top->flags, top->begin, lp);
+ NOERR();
top->op = '.';
top->right = t;
diff --git a/unix/tclUnixNotfy.c b/unix/tclUnixNotfy.c
index 075b849..398e13a 100644
--- a/unix/tclUnixNotfy.c
+++ b/unix/tclUnixNotfy.c
@@ -120,6 +120,7 @@ static Tcl_ThreadDataKey dataKey;
*
* You must hold the notifierMutex lock before accessing this variable.
*/
+
static int notifierCount = 0;
/*
@@ -167,6 +168,7 @@ static int notifierThreadRunning = 0;
* initializing the triggerPipe and right before the notifier thread
* terminates.
*/
+
static pthread_cond_t notifierCV = PTHREAD_COND_INITIALIZER;
/*
@@ -258,7 +260,6 @@ extern unsigned char __stdcall TranslateMessage(const MSG *);
static DWORD __stdcall NotifierProc(void *hwnd, unsigned int message,
void *wParam, void *lParam);
#endif /* TCL_THREADS && __CYGWIN__ */
-
#if TCL_THREADS
/*
@@ -327,6 +328,7 @@ Tcl_InitNotifier(void)
return tclNotifierHooks.initNotifierProc();
} else {
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
+
#ifdef TCL_THREADS
tsdPtr->eventReady = 0;
@@ -341,25 +343,25 @@ Tcl_InitNotifier(void)
#endif
pthread_mutex_lock(&notifierInitMutex);
-
-# if defined(HAVE_PTHREAD_ATFORK) && !defined(__APPLE__) && !defined(__hpux)
+#if defined(HAVE_PTHREAD_ATFORK) && !defined(__APPLE__) && !defined(__hpux)
/*
- * Register pthread_atfork handlers once per process
+ * Install pthread_atfork handlers to clean up the notifier in the
+ * child of a fork.
*/
+
if (!atForkInit) {
int result = pthread_atfork(AtForkPrepare, AtForkParent, AtForkChild);
- fprintf(stderr, "==== calling pthread_atfork()\n");
if (result) {
Tcl_Panic("Tcl_InitNotifier: pthread_atfork failed");
}
atForkInit = 1;
}
-# endif /* HAVE_PTHREAD_ATFORK */
+#endif /* HAVE_PTHREAD_ATFORK */
notifierCount++;
- pthread_mutex_unlock(&notifierInitMutex);
+ pthread_mutex_unlock(&notifierInitMutex);
#endif /* TCL_THREADS */
return tsdPtr;
@@ -395,6 +397,9 @@ Tcl_FinalizeNotifier(
#ifdef TCL_THREADS
ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
+ pthread_mutex_lock(&notifierInitMutex);
+ notifierCount--;
+
/*
* Check if FinializeNotifier was called without a prior InitNotifier
* in this thread.
@@ -403,9 +408,6 @@ Tcl_FinalizeNotifier(
assert(tsdPtr->waitCVinitialized == 1);
#endif
- pthread_mutex_lock(&notifierInitMutex);
- notifierCount--;
-
/*
* If this is the last thread to use the notifier, close the notifier
* pipe and wait for the background thread to terminate.
@@ -414,24 +416,24 @@ Tcl_FinalizeNotifier(
if (notifierCount == 0) {
if (triggerPipe != -1) {
- if (write(triggerPipe, "q", 1) != 1) {
+ if (write(triggerPipe, "q", 1) != 1) {
Tcl_Panic("Tcl_FinalizeNotifier: %s",
"unable to write q to triggerPipe");
- }
- close(triggerPipe);
- while(triggerPipe != -1) {
- pthread_cond_wait(&notifierCV, &notifierMutex);
- }
- if (notifierThreadRunning) {
- int result = pthread_join((pthread_t) notifierThread, NULL);
+ }
+ close(triggerPipe);
+ while(triggerPipe != -1) {
+ pthread_cond_wait(&notifierCV, &notifierMutex);
+ }
+ if (notifierThreadRunning) {
+ int result = pthread_join((pthread_t) notifierThread, NULL);
if (result) {
- Tcl_Panic("Tcl_FinalizeNotifier: unable to join notifier "
- "thread");
- }
+ Tcl_Panic("Tcl_FinalizeNotifier: unable to join notifier "
+ "thread");
+ }
notifierThreadRunning = 0;
- }
- }
+ }
+ }
}
/*
@@ -444,8 +446,7 @@ Tcl_FinalizeNotifier(
pthread_cond_destroy(&tsdPtr->waitCV);
#endif /* __CYGWIN__ */
- pthread_mutex_unlock(&notifierInitMutex);
-
+ pthread_mutex_unlock(&notifierInitMutex);
#endif /* TCL_THREADS */
}
}
@@ -480,16 +481,15 @@ Tcl_AlertNotifier(
#ifdef TCL_THREADS
ThreadSpecificData *tsdPtr = clientData;
- pthread_mutex_lock(&notifierMutex);
+ pthread_mutex_lock(&notifierMutex);
tsdPtr->eventReady = 1;
-# ifdef __CYGWIN__
+# ifdef __CYGWIN__
PostMessageW(tsdPtr->hwnd, 1024, 0, 0);
-# else
+# else
pthread_cond_broadcast(&tsdPtr->waitCV);
-# endif /* __CYGWIN__ */
-
- pthread_mutex_unlock(&notifierMutex);
+# endif /* __CYGWIN__ */
+ pthread_mutex_unlock(&notifierMutex);
#endif /* TCL_THREADS */
}
}
@@ -549,7 +549,6 @@ Tcl_ServiceModeHook(
int mode) /* Either TCL_SERVICE_ALL, or
* TCL_SERVICE_NONE. */
{
- fprintf(stderr, "==== Tcl_ServiceModeHook mode %d\n", mode);
if (tclNotifierHooks.serviceModeHookProc) {
tclNotifierHooks.serviceModeHookProc(mode);
return;
@@ -600,7 +599,6 @@ Tcl_CreateFileHandler(
#ifndef __CYGWIN__
assert(tsdPtr->waitCVinitialized == 1);
#endif
-
for (filePtr = tsdPtr->firstFileHandlerPtr; filePtr != NULL;
filePtr = filePtr->nextPtr) {
if (filePtr->fd == fd) {
@@ -791,7 +789,8 @@ FileHandlerEventProc(
assert(tsdPtr->waitCVinitialized == 1);
#endif
- for (filePtr = tsdPtr->firstFileHandlerPtr; filePtr != NULL; filePtr = filePtr->nextPtr) {
+ for (filePtr = tsdPtr->firstFileHandlerPtr; filePtr != NULL;
+ filePtr = filePtr->nextPtr) {
if (filePtr->fd != fileEvPtr->fd) {
continue;
}
@@ -964,7 +963,7 @@ Tcl_WaitForEvent(
}
#endif /* __CYGWIN */
- pthread_mutex_lock(&notifierInitMutex);
+ pthread_mutex_lock(&notifierInitMutex);
if (timePtr != NULL && timePtr->sec == 0 && (timePtr->usec == 0
#if defined(__APPLE__) && defined(__LP64__)
@@ -1137,7 +1136,7 @@ Tcl_WaitForEvent(
filePtr->readyMask = mask;
}
#ifdef TCL_THREADS
- pthread_mutex_unlock(&notifierInitMutex);
+ pthread_mutex_unlock(&notifierInitMutex);
#endif /* TCL_THREADS */
return 0;
}
@@ -1209,12 +1208,13 @@ NotifierThreadProc(
* Install the write end of the pipe into the global variable.
*/
+ pthread_mutex_lock(&notifierMutex);
+ triggerPipe = fds[1];
+
/*
* Signal any threads that are waiting.
*/
- pthread_mutex_lock(&notifierMutex);
- triggerPipe = fds[1];
pthread_cond_broadcast(&notifierCV);
pthread_mutex_unlock(&notifierMutex);
@@ -1232,8 +1232,7 @@ NotifierThreadProc(
* notifiers.
*/
- pthread_mutex_lock(&notifierMutex);
-
+ pthread_mutex_lock(&notifierMutex);
timePtr = NULL;
for (tsdPtr = waitingListPtr; tsdPtr; tsdPtr = tsdPtr->nextPtr) {
for (i = tsdPtr->numFdBits-1; i >= 0; --i) {
@@ -1260,7 +1259,7 @@ NotifierThreadProc(
timePtr = &poll;
}
}
- pthread_mutex_unlock(&notifierMutex);
+ pthread_mutex_unlock(&notifierMutex);
/*
* Set up the select mask to include the receive pipe.
@@ -1270,6 +1269,7 @@ NotifierThreadProc(
numFdBits = receivePipe + 1;
}
FD_SET(receivePipe, &readableMask);
+
if (select(numFdBits, &readableMask, &writableMask, &exceptionMask,
timePtr) == -1) {
/*
@@ -1283,8 +1283,7 @@ NotifierThreadProc(
* Alert any threads that are waiting on a ready file descriptor.
*/
- pthread_mutex_lock(&notifierMutex);
-
+ pthread_mutex_lock(&notifierMutex);
for (tsdPtr = waitingListPtr; tsdPtr; tsdPtr = tsdPtr->nextPtr) {
found = 0;
@@ -1335,13 +1334,14 @@ NotifierThreadProc(
#endif /* __CYGWIN__ */
}
}
- pthread_mutex_unlock(&notifierMutex);
+ pthread_mutex_unlock(&notifierMutex);
/*
* Consume the next byte from the notifier pipe if the pipe was
* readable. Note that there may be multiple bytes pending, but to
* avoid a race condition we only read one at a time.
*/
+
if (FD_ISSET(receivePipe, &readableMask)) {
i = read(receivePipe, buf, 1);
@@ -1361,10 +1361,8 @@ NotifierThreadProc(
* Clean up the read end of the pipe and signal any threads waiting on
* termination of the notifier thread.
*/
-fprintf(stderr, "=== Stopping Notifier Thread\n");
close(receivePipe);
-
pthread_mutex_lock(&notifierMutex);
triggerPipe = -1;
pthread_cond_broadcast(&notifierCV);
@@ -1421,7 +1419,6 @@ AtForkParent(void)
pthread_mutex_unlock(&notifierInitMutex);
#endif
}
-
/*
*----------------------------------------------------------------------
@@ -1443,7 +1440,7 @@ static void
AtForkChild(void)
{
if (notifierThreadRunning == 1) {
- pthread_cond_destroy(&notifierCV);
+ pthread_cond_destroy(&notifierCV);
}
#if RESET_ATFORK_MUTEX == 0
pthread_mutex_unlock(&notifierInitMutex);
generated by cgit v0.12 at 2024-11-18 05:12:02 (GMT)