diff options
Diffstat (limited to 'unix/tclUnixNotfy.c')
-rw-r--r-- | unix/tclUnixNotfy.c | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/unix/tclUnixNotfy.c b/unix/tclUnixNotfy.c index 5862156..3104504 100644 --- a/unix/tclUnixNotfy.c +++ b/unix/tclUnixNotfy.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixNotfy.c,v 1.1.2.6 1998/12/12 01:37:04 lfb Exp $ + * RCS: @(#) $Id: tclUnixNotfy.c,v 1.1.2.6.2.1 1999/03/09 02:37:19 stanton Exp $ */ #include "tclInt.h" @@ -216,7 +216,7 @@ Tcl_InitNotifier() */ while (triggerPipe < 0) { - TclpConditionWait(¬ifierCV, ¬ifierMutex, NULL); + Tcl_ConditionWait(¬ifierCV, ¬ifierMutex, NULL); } Tcl_MutexUnlock(¬ifierMutex); @@ -262,7 +262,7 @@ Tcl_FinalizeNotifier(clientData) panic("Tcl_FinalizeNotifier: notifier pipe not initialized"); } close(triggerPipe); - TclpConditionWait(¬ifierCV, ¬ifierMutex, NULL); + Tcl_ConditionWait(¬ifierCV, ¬ifierMutex, NULL); } /* @@ -304,7 +304,7 @@ Tcl_AlertNotifier(clientData) ThreadSpecificData *tsdPtr = (ThreadSpecificData *) clientData; Tcl_MutexLock(¬ifierMutex); tsdPtr->eventReady = 1; - TclpConditionNotify(&tsdPtr->waitCV); + Tcl_ConditionNotify(&tsdPtr->waitCV); Tcl_MutexUnlock(¬ifierMutex); #endif } @@ -604,7 +604,6 @@ Tcl_WaitForEvent(timePtr) struct timeval timeout, *timeoutPtr; int bit, index, mask; #ifdef TCL_THREADS - Tcl_Time polltime; int waitForFiles; #else int numFound; @@ -682,7 +681,7 @@ Tcl_WaitForEvent(timePtr) memset((VOID *) tsdPtr->readyMasks, 0, 3*MASK_SIZE*sizeof(fd_mask)); if (!tsdPtr->eventReady) { - TclpConditionWait(&tsdPtr->waitCV, ¬ifierMutex, timePtr); + Tcl_ConditionWait(&tsdPtr->waitCV, ¬ifierMutex, timePtr); } tsdPtr->eventReady = 0; @@ -838,7 +837,7 @@ NotifierThreadProc(clientData) * Signal any threads that are waiting. */ - TclpConditionNotify(¬ifierCV); + Tcl_ConditionNotify(¬ifierCV); Tcl_MutexUnlock(¬ifierMutex); /* @@ -908,7 +907,7 @@ NotifierThreadProc(clientData) } if (found || (tsdPtr->pollState & POLL_DONE)) { tsdPtr->eventReady = 1; - TclpConditionNotify(&tsdPtr->waitCV); + Tcl_ConditionNotify(&tsdPtr->waitCV); if (tsdPtr->onList) { /* * Remove the ThreadSpecificData structure of this thread @@ -957,7 +956,7 @@ NotifierThreadProc(clientData) close(receivePipe); Tcl_MutexLock(¬ifierMutex); triggerPipe = -1; - TclpConditionNotify(¬ifierCV); + Tcl_ConditionNotify(¬ifierCV); Tcl_MutexUnlock(¬ifierMutex); } #endif |