Loading...
--- Libc/Libc-262/pthreads/pthread_mutex.c
+++ /dev/null
@@ -1,597 +0,0 @@
-/*
- * Copyright 1996 1995 by Open Software Foundation, Inc. 1997 1996 1995 1994 1993 1992 1991
- * All Rights Reserved
- *
- * Permission to use, copy, modify, and distribute this software and
- * its documentation for any purpose and without fee is hereby granted,
- * provided that the above copyright notice appears in all copies and
- * that both the copyright notice and this permission notice appear in
- * supporting documentation.
- *
- * OSF DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE
- * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
- * FOR A PARTICULAR PURPOSE.
- *
- * IN NO EVENT SHALL OSF BE LIABLE FOR ANY SPECIAL, INDIRECT, OR
- * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
- * LOSS OF USE, DATA OR PROFITS, WHETHER IN ACTION OF CONTRACT,
- * NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
- * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
- *
- */
-/*
- * MkLinux
- */
-
-/*
- * POSIX Pthread Library
- * -- Mutex variable support
- */
-
-#include "pthread_internals.h"
-
-/*
- * Destroy a mutex variable.
- */
-int
-pthread_mutex_destroy(pthread_mutex_t *mutex)
-{
- if (mutex->sig != _PTHREAD_MUTEX_SIG)
- return (EINVAL);
- if ((mutex->owner != (pthread_t)NULL) ||
- (mutex->busy != (pthread_cond_t *)NULL))
- return (EBUSY);
- mutex->sig = _PTHREAD_NO_SIG;
- return (ESUCCESS);
-}
-
-/*
- * Initialize a mutex variable, possibly with additional attributes.
- */
-int
-pthread_mutex_init(pthread_mutex_t *mutex, const pthread_mutexattr_t *attr)
-{
- LOCK_INIT(mutex->lock);
- mutex->sig = _PTHREAD_MUTEX_SIG;
- if (attr)
- {
- if (attr->sig != _PTHREAD_MUTEX_ATTR_SIG)
- return (EINVAL);
- mutex->prioceiling = attr->prioceiling;
- mutex->protocol = attr->protocol;
- mutex->type = attr->type;
- if ((mutex->type == PTHREAD_MUTEX_DEFAULT) || (mutex->type == PTHREAD_MUTEX_NORMAL))
- mutex->def = 1;
- else
- mutex->def = 0;
- } else {
- mutex->prioceiling = _PTHREAD_DEFAULT_PRIOCEILING;
- mutex->protocol = _PTHREAD_DEFAULT_PROTOCOL;
- mutex->type = PTHREAD_MUTEX_DEFAULT;
- mutex->def = 1;
- }
- mutex->lock_count = 0;
- mutex->owner = (pthread_t)NULL;
- mutex->next = (pthread_mutex_t *)NULL;
- mutex->prev = (pthread_mutex_t *)NULL;
- mutex->busy = (pthread_cond_t *)NULL;
- mutex->waiters = 0;
- mutex->cond_lock = 0;
- mutex->sem = MACH_PORT_NULL;
- return (ESUCCESS);
-}
-
-/*
- * Manage a list of mutex variables owned by a thread
- */
-#if defined(DEBUG)
-static void
-_pthread_mutex_add(pthread_mutex_t *mutex, pthread_t self)
-{
- pthread_mutex_t *m;
- if (self != (pthread_t)0) {
- if ((m = self->mutexes) != (pthread_mutex_t *)NULL)
- { /* Add to list */
- m->prev = mutex;
- }
- mutex->next = m;
- mutex->prev = (pthread_mutex_t *)NULL;
- self->mutexes = mutex;
- }
-}
-
-static void
-_pthread_mutex_remove(pthread_mutex_t *mutex, pthread_t self)
-{
- pthread_mutex_t *n, *prev;
- if ((n = mutex->next) != (pthread_mutex_t *)NULL)
- {
- n->prev = mutex->prev;
- }
- if ((prev = mutex->prev) != (pthread_mutex_t *)NULL)
- {
- prev->next = mutex->next;
- } else
- { /* This is the first in the list */
- if (self != (pthread_t)0) {
- self->mutexes = n;
- }
- }
-}
-#endif
-
-/*
- * Lock a mutex.
- * TODO: Priority inheritance stuff
- */
-int
-pthread_mutex_lock(pthread_mutex_t *mutex)
-{
- kern_return_t kern_res;
- pthread_t self;
- int slowpath;
-
- if (mutex->sig == _PTHREAD_MUTEX_SIG_init)
- {
- int res;
- if (res = pthread_mutex_init(mutex, NULL))
- return (res);
- }
- if (mutex->sig != _PTHREAD_MUTEX_SIG)
- return (EINVAL); /* Not a mutex variable */
-
-#if !defined(DEBUG)
- if (mutex->def) {
- slowpath = 0;
- self = (pthread_t)0x12141968;
- } else
-#endif /* DEBUG */
- {
- slowpath = 1;
- self = pthread_self();
- }
-
- LOCK(mutex->lock);
-
- if (mutex->waiters || (mutex->owner != (pthread_t)NULL))
- {
- if(slowpath && (mutex->owner == self)) {
- if(mutex->type == PTHREAD_MUTEX_ERRORCHECK ) {
- UNLOCK(mutex->lock);
- return(EDEADLK);
- } else if (mutex->type == PTHREAD_MUTEX_RECURSIVE ) {
- if (mutex->lock_count >= USHRT_MAX){
- UNLOCK(mutex->lock);
- return(EAGAIN);
- }
- mutex->lock_count++;
- UNLOCK(mutex->lock);
- return(ESUCCESS);
- }
- }
- mutex->waiters++;
- if (mutex->sem == MACH_PORT_NULL) {
- mutex->sem = new_sem_from_pool();
- }
- UNLOCK(mutex->lock);
- do {
- PTHREAD_MACH_CALL(semaphore_wait(mutex->sem), kern_res);
- } while (kern_res == KERN_ABORTED);
- LOCK(mutex->lock);
- mutex->waiters--;
- if (mutex->waiters == 0) {
- restore_sem_to_pool(mutex->sem);
- mutex->sem = MACH_PORT_NULL;
- }
- if (mutex->cond_lock) {
- mutex->cond_lock = 0;
- }
- }
-#if defined(DEBUG)
- _pthread_mutex_add(mutex, self);
-#endif
- mutex->owner = self;
- if (slowpath && (mutex->type == PTHREAD_MUTEX_RECURSIVE))
- mutex->lock_count = 1;
- UNLOCK(mutex->lock);
- return (ESUCCESS);
-}
-
-/*
- * Attempt to lock a mutex, but don't block if this isn't possible.
- */
-int
-pthread_mutex_trylock(pthread_mutex_t *mutex)
-{
- kern_return_t kern_res;
- pthread_t self;
- int slowpath;
-
- if (mutex->sig == _PTHREAD_MUTEX_SIG_init)
- {
- int res;
- if (res = pthread_mutex_init(mutex, NULL))
- return (res);
- }
- if (mutex->sig != _PTHREAD_MUTEX_SIG)
- return (EINVAL); /* Not a mutex variable */
-
-#if !defined(DEBUG)
- if (mutex->def) {
- slowpath = 0;
- self = (pthread_t)0x12141968;
- } else
-#endif /* DEBUG */
- {
- slowpath = 1;
- self = pthread_self();
- }
-
- if (!TRY_LOCK(mutex->lock)) {
- return (EBUSY);
- }
-
- if(slowpath && (mutex->owner == self) && (mutex->type == PTHREAD_MUTEX_RECURSIVE )) {
- if (mutex->lock_count >= USHRT_MAX) {
- UNLOCK(mutex->lock);
- return(EAGAIN);
- }
- mutex->lock_count++;
- UNLOCK(mutex->lock);
- return(ESUCCESS);
- }
-
- if (mutex->waiters ||
- ((mutex->owner != (pthread_t)NULL) && (mutex->cond_lock == 0)))
- {
- UNLOCK(mutex->lock);
- return (EBUSY);
- } else {
-#if defined(DEBUG)
- _pthread_mutex_add(mutex, self);
-#endif
- mutex->owner = (pthread_t)self;
- if (mutex->cond_lock) {
- PTHREAD_MACH_CALL(semaphore_wait(mutex->sem), kern_res);
- mutex->cond_lock = 0;
- restore_sem_to_pool(mutex->sem);
- mutex->sem = MACH_PORT_NULL;
- }
- if (slowpath && (mutex->type == PTHREAD_MUTEX_RECURSIVE))
- mutex->lock_count = 1;
- UNLOCK(mutex->lock);
- return (ESUCCESS);
- }
-}
-
-/*
- * Unlock a mutex.
- * TODO: Priority inheritance stuff
- */
-int
-pthread_mutex_unlock(pthread_mutex_t *mutex)
-{
- kern_return_t kern_res;
- int waiters;
- pthread_t self;
- int slowpath;
-
- if (mutex->sig == _PTHREAD_MUTEX_SIG_init)
- {
- int res;
- if (res = pthread_mutex_init(mutex, NULL))
- return (res);
- }
- if (mutex->sig != _PTHREAD_MUTEX_SIG)
- return (EINVAL); /* Not a mutex variable */
-
-#if !defined(DEBUG)
- if (mutex->def) {
- slowpath = 0;
- self = (pthread_t)0x12141968;
- } else
-#endif /* DEBUG */
- {
- slowpath = 1;
- self = pthread_self();
- }
-
- LOCK(mutex->lock);
-
-#if defined(DEBUG)
- if (mutex->owner != self)
-#else
- if (slowpath
- && ((mutex->type == PTHREAD_MUTEX_ERRORCHECK )
- || (mutex->type == PTHREAD_MUTEX_RECURSIVE ))
- && (mutex->owner != self))
-#endif /* DEBUG */
- {
- UNLOCK(mutex->lock);
-#if defined(DEBUG)
- abort();
-#endif
- return(EPERM);
- }
-
- if (slowpath && (mutex->type == PTHREAD_MUTEX_RECURSIVE) && --mutex->lock_count) {
- UNLOCK(mutex->lock);
- return (ESUCCESS);
-
- } else {
-#if defined(DEBUG)
- _pthread_mutex_remove(mutex, mutex->owner);
-#endif /* DEBUG */
- waiters = mutex->waiters;
- mutex->owner = (pthread_t)NULL;
- UNLOCK(mutex->lock);
- if (waiters)
- {
- PTHREAD_MACH_CALL(semaphore_signal(mutex->sem), kern_res);
- }
- return (ESUCCESS);
-
- }
-}
-
-/*
- * Fetch the priority ceiling value from a mutex variable.
- * Note: written as a 'helper' function to hide implementation details.
- */
-int
-pthread_mutex_getprioceiling(const pthread_mutex_t *mutex,
- int *prioceiling)
-{
- if (mutex->sig == _PTHREAD_MUTEX_SIG)
- {
- *prioceiling = mutex->prioceiling;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-
-/*
- * Set the priority ceiling for a mutex.
- * Note: written as a 'helper' function to hide implementation details.
- */
-int
-pthread_mutex_setprioceiling(pthread_mutex_t *mutex,
- int prioceiling,
- int *old_prioceiling)
-{
- if (mutex->sig == _PTHREAD_MUTEX_SIG)
- {
- if ((prioceiling >= -999) ||
- (prioceiling <= 999))
- {
- *old_prioceiling = mutex->prioceiling;
- mutex->prioceiling = prioceiling;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Invalid parameter */
- }
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-
-/*
- * Destroy a mutex attribute structure.
- */
-int
-pthread_mutexattr_destroy(pthread_mutexattr_t *attr)
-{
- attr->sig = _PTHREAD_NO_SIG; /* Uninitialized */
- return (ESUCCESS);
-}
-
-/*
- * Get the priority ceiling value from a mutex attribute structure.
- * Note: written as a 'helper' function to hide implementation details.
- */
-int
-pthread_mutexattr_getprioceiling(const pthread_mutexattr_t *attr,
- int *prioceiling)
-{
- if (attr->sig == _PTHREAD_MUTEX_ATTR_SIG)
- {
- *prioceiling = attr->prioceiling;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-
-/*
- * Get the mutex 'protocol' value from a mutex attribute structure.
- * Note: written as a 'helper' function to hide implementation details.
- */
-int
-pthread_mutexattr_getprotocol(const pthread_mutexattr_t *attr,
- int *protocol)
-{
- if (attr->sig == _PTHREAD_MUTEX_ATTR_SIG)
- {
- *protocol = attr->protocol;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-/*
- * Get the mutex 'type' value from a mutex attribute structure.
- * Note: written as a 'helper' function to hide implementation details.
- */
-int
-pthread_mutexattr_gettype(const pthread_mutexattr_t *attr,
- int *type)
-{
- if (attr->sig == _PTHREAD_MUTEX_ATTR_SIG)
- {
- *type = attr->type;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-
-/*
- *
- */
-int
-pthread_mutexattr_getpshared(const pthread_mutexattr_t *attr, int *pshared)
-{
- if (attr->sig == _PTHREAD_MUTEX_ATTR_SIG)
- {
- *pshared = (int)PTHREAD_PROCESS_PRIVATE;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-
-/*
- * Initialize a mutex attribute structure to system defaults.
- */
-int
-pthread_mutexattr_init(pthread_mutexattr_t *attr)
-{
- attr->prioceiling = _PTHREAD_DEFAULT_PRIOCEILING;
- attr->protocol = _PTHREAD_DEFAULT_PROTOCOL;
- attr->type = PTHREAD_MUTEX_DEFAULT;
- attr->sig = _PTHREAD_MUTEX_ATTR_SIG;
- return (ESUCCESS);
-}
-
-/*
- * Set the priority ceiling value in a mutex attribute structure.
- * Note: written as a 'helper' function to hide implementation details.
- */
-int
-pthread_mutexattr_setprioceiling(pthread_mutexattr_t *attr,
- int prioceiling)
-{
- if (attr->sig == _PTHREAD_MUTEX_ATTR_SIG)
- {
- if ((prioceiling >= -999) ||
- (prioceiling <= 999))
- {
- attr->prioceiling = prioceiling;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Invalid parameter */
- }
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-
-/*
- * Set the mutex 'protocol' value in a mutex attribute structure.
- * Note: written as a 'helper' function to hide implementation details.
- */
-int
-pthread_mutexattr_setprotocol(pthread_mutexattr_t *attr,
- int protocol)
-{
- if (attr->sig == _PTHREAD_MUTEX_ATTR_SIG)
- {
- if ((protocol == PTHREAD_PRIO_NONE) ||
- (protocol == PTHREAD_PRIO_INHERIT) ||
- (protocol == PTHREAD_PRIO_PROTECT))
- {
- attr->protocol = protocol;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Invalid parameter */
- }
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-/*
- * Set the mutex 'type' value in a mutex attribute structure.
- * Note: written as a 'helper' function to hide implementation details.
- */
-int
-pthread_mutexattr_settype(pthread_mutexattr_t *attr,
- int type)
-{
- if (attr->sig == _PTHREAD_MUTEX_ATTR_SIG)
- {
- if ((type == PTHREAD_MUTEX_NORMAL) ||
- (type == PTHREAD_MUTEX_ERRORCHECK) ||
- (type == PTHREAD_MUTEX_RECURSIVE) ||
- (type == PTHREAD_MUTEX_DEFAULT))
- {
- attr->type = type;
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Invalid parameter */
- }
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-
-/*
- *
- */
-int
-pthread_mutexattr_setpshared(pthread_mutexattr_t *attr, int pshared)
-{
- if (attr->sig == _PTHREAD_MUTEX_ATTR_SIG)
- {
- if (pshared == PTHREAD_PROCESS_PRIVATE)
- {
- /* attr->pshared = protocol; */
- return (ESUCCESS);
- } else
- {
- return (EINVAL); /* Invalid parameter */
- }
- } else
- {
- return (EINVAL); /* Not an initialized 'attribute' structure */
- }
-}
-
-int mutex_try_lock(int *x) {
- return _spin_lock_try((pthread_lock_t *)x);
-}
-
-void mutex_wait_lock(int *x) {
- for (;;) {
- if( _spin_lock_try((pthread_lock_t *)x)) {
- return;
- }
- swtch_pri(0);
- }
-}
-
-void
-cthread_yield(void)
-{
- sched_yield();
-}
-
-void
-pthread_yield_np (void)
-{
- sched_yield();
-}
-