Tcl Source Code

/*
 * initLock is used to serialize initialization and finalization
 * of Tcl.  It cannot use any dyamically allocated storage.
 */

static pthread_mutex_t initLock = PTHREAD_MUTEX_INITIALIZER;

/*
 * allocLock is used to serialize memory allocation.
 */

static pthread_mutex_t allocLock = PTHREAD_MUTEX_INITIALIZER; 
TCL_DECLARE_MUTEX(allocMutex)

/*
 * These are for the critical sections inside this file.
 */

#define MASTER_LOCK	pthread_mutex_lock(&masterLock)
#define MASTER_UNLOCK	pthread_mutex_unlock(&masterLock)

#endif /* TCL_THREADS */


/*
 *----------------------------------------------------------------------
 *
 * TclpMutexBootstrap --
 *
 *	This procedure gives out a pointer to a pre-allocated mutex.
 *	This is used by memory allocators for their own mutex.
 * 
 * Results:
 *	None.
 *
 * Side effects:
 *	None.
 *
 *----------------------------------------------------------------------
 */

Tcl_Mutex *
TclpMutexBootstrap()
{
#ifdef TCL_THREADS
    pthread_mutex_init(&allocLock, NULL);
    allocMutex = (Tcl_Mutex)&allocLock;
    return &allocMutex;
#else
    return NULL;
#endif
}

#ifdef TCL_THREADS

/*
 *----------------------------------------------------------------------
 *
 * TclpThreadCreate --