#include "db_config.h"
#ifndef lint
static const char revid[] = "$Id: mut_tas.c,v 1.2 2004/03/30 01:23:45 jtownsen Exp $";
#endif
#ifndef NO_SYSTEM_INCLUDES
#include <sys/types.h>
#include <stdlib.h>
#include <string.h>
#endif
#define LOAD_ACTUAL_MUTEX_CODE
#include "db_int.h"
int
__db_tas_mutex_init(dbenv, mutexp, flags)
DB_ENV *dbenv;
DB_MUTEX *mutexp;
u_int32_t flags;
{
u_int32_t save;
DB_ASSERT(((db_alignp_t)mutexp & (MUTEX_ALIGN - 1)) == 0);
save = F_ISSET(mutexp, MUTEX_MPOOL);
memset(mutexp, 0, sizeof(*mutexp));
F_SET(mutexp, save);
if (LF_ISSET(MUTEX_THREAD) || F_ISSET(dbenv, DB_ENV_PRIVATE)) {
if (!F_ISSET(dbenv, DB_ENV_THREAD)) {
F_SET(mutexp, MUTEX_IGNORE);
return (0);
}
}
if (LF_ISSET(MUTEX_LOGICAL_LOCK))
F_SET(mutexp, MUTEX_LOGICAL_LOCK);
if (MUTEX_INIT(&mutexp->tas))
return (__os_get_errno());
#ifdef HAVE_MUTEX_SYSTEM_RESOURCES
mutexp->reg_off = INVALID_ROFF;
#endif
F_SET(mutexp, MUTEX_INITED);
return (0);
}
int
__db_tas_mutex_lock(dbenv, mutexp)
DB_ENV *dbenv;
DB_MUTEX *mutexp;
{
u_int32_t nspins;
u_long ms, max_ms;
if (F_ISSET(dbenv, DB_ENV_NOLOCKING) || F_ISSET(mutexp, MUTEX_IGNORE))
return (0);
ms = 1;
max_ms = F_ISSET(mutexp, MUTEX_LOGICAL_LOCK) ? 10 : 25;
loop:
for (nspins = dbenv->tas_spins; nspins > 0; --nspins) {
#ifdef HAVE_MUTEX_HPPA_MSEM_INIT
relock:
#endif
#ifdef HAVE_MUTEX_S390_CC_ASSEMBLY
tsl_t zero = 0;
#endif
if (!MUTEX_SET(&mutexp->tas)) {
#ifdef MUTEX_PAUSE
MUTEX_PAUSE
#endif
continue;
}
#ifdef HAVE_MUTEX_HPPA_MSEM_INIT
if (mutexp->locked != 0) {
__os_id(&mutexp->locked);
goto relock;
}
#endif
#ifdef DIAGNOSTIC
if (mutexp->locked != 0)
__db_err(dbenv,
"__db_tas_mutex_lock: ERROR: lock currently in use: ID: %lu",
(u_long)mutexp->locked);
#endif
#if defined(DIAGNOSTIC) || defined(HAVE_MUTEX_HPPA_MSEM_INIT)
__os_id(&mutexp->locked);
#endif
if (ms == 1)
++mutexp->mutex_set_nowait;
else
++mutexp->mutex_set_wait;
return (0);
}
__os_yield(NULL, ms * USEC_PER_MS);
if ((ms <<= 1) > max_ms)
ms = max_ms;
goto loop;
}
int
__db_tas_mutex_unlock(dbenv, mutexp)
DB_ENV *dbenv;
DB_MUTEX *mutexp;
{
if (F_ISSET(dbenv, DB_ENV_NOLOCKING) || F_ISSET(mutexp, MUTEX_IGNORE))
return (0);
#ifdef DIAGNOSTIC
if (!mutexp->locked)
__db_err(dbenv,
"__db_tas_mutex_unlock: ERROR: lock already unlocked");
#endif
#if defined(DIAGNOSTIC) || defined(HAVE_MUTEX_HPPA_MSEM_INIT)
mutexp->locked = 0;
#endif
MUTEX_UNSET(&mutexp->tas);
return (0);
}
int
__db_tas_mutex_destroy(mutexp)
DB_MUTEX *mutexp;
{
if (F_ISSET(mutexp, MUTEX_IGNORE))
return (0);
MUTEX_DESTROY(&mutexp->tas);
return (0);
}