spinlock.h

Go to the documentation of this file.

/*
 * Asterisk -- An open source telephony toolkit.
 *
 * Copyright (C) 2014, Fairview 5 Engineering, LLC
 *
 * George Joseph <[email protected]>
 *
 * See http://www.asterisk.org for more information about
 * the Asterisk project. Please do not directly contact
 * any of the maintainers of this project for assistance;
 * the project provides a web site, mailing lists and IRC
 * channels for your use.
 *
 * This program is free software, distributed under the terms of
 * the GNU General Public License Version 2. See the LICENSE file
 * at the top of the source tree.
 */

/*! \file
 * \brief Spin Locks.
 *
 * In some atomic operation circumstances the __atomic calls are not quite
 * flexible enough but a full fledged mutex or rwlock is too expensive.
 *
 * Spin locks should be used only for protecting short blocks of critical
 * code such as simple compares and assignments. Operations that may block,
 * hold a lock, or cause the thread to give up it's timeslice should NEVER
 * be attempted in a spin lock.
 *
 * Because spinlocks must be as lightweight as possible, there are no
 * recursion or deadlock checks.
 *
 */

#ifndef _ASTERISK_SPINLOCK_H
#define _ASTERISK_SPINLOCK_H

#include <pthread.h>
#include "asterisk/compiler.h"

/*!
 * \brief Spinlock Implementation Types
 *
 * Not all implementations will be available on all platforms.
 *
 */
enum ast_spinlock_type {
 AST_SPINLOCK_TYPE_GCC_ATOMICS,
 AST_SPINLOCK_TYPE_GAS_X86,
 AST_SPINLOCK_TYPE_GAS_ARM,
 AST_SPINLOCK_TYPE_GAS_SPARC,
 AST_SPINLOCK_TYPE_OSX_ATOMICS,
 AST_SPINLOCK_TYPE_PTHREAD_SPINLOCK,
 AST_SPINLOCK_TYPE_PTHREAD_MUTEX,
};

/*!
 * \brief Implementation using GCC Atomics
 *
 * Specifically, __sync_lock_test_and_set is used to atomically
 * set/unset the lock variable.
 *
 * Most recent gcc implementations support this method and it's performance
 * is equal to or better than the assembly implementations hence it is the
 * most preferred implementation on all platforms.
 *
 */
#ifdef HAVE_GCC_ATOMICS
#define AST_SPINLOCK_TYPE AST_SPINLOCK_TYPE_GCC_ATOMICS
#define AST_SPINLOCK_TYPE_LABEL "gcc_atomics"
typedef volatile unsigned int ast_spinlock_t;

static force_inline int ast_spinlock_init(ast_spinlock_t *lock)
{
 *lock = 0;
 return 0;
}

static force_inline int ast_spinlock_lock(ast_spinlock_t *lock)
{
 while (__sync_lock_test_and_set(lock, 1)) {
 while(*lock) {
 }
 }
 return 0;
}

static force_inline int ast_spinlock_trylock(ast_spinlock_t *lock)
{
 return __sync_lock_test_and_set(lock, 1);
}

static force_inline int ast_spinlock_unlock(ast_spinlock_t *lock)
{
 __sync_lock_release(lock);
 return 0;
}

static force_inline int ast_spinlock_destroy(ast_spinlock_t *lock)
{
 return 0;
}
#endif

/*!
 * \brief Implementation using x86 Assembly
 *
 * For x86 implementations that don't support gcc atomics,
 * this is the next best method.
 *
 */
#if (defined(__x86_64__) || defined(__i386__)) && !defined(AST_SPINLOCK_TYPE)
#define AST_SPINLOCK_TYPE AST_SPINLOCK_TYPE_GAS_X86
#define AST_SPINLOCK_TYPE_LABEL "gas_x86"
typedef volatile unsigned int ast_spinlock_t;

static force_inline int ast_spinlock_init(ast_spinlock_t *lock)
{
 *lock = 0;
 return 0;
}

static force_inline int x86chgl(ast_spinlock_t *p, unsigned int v)
{
 __asm __volatile (
 " xchg %0, %1 ;"
 : "+r" (v), "=m" (*p)
 : "m" (*p)
 );

 return (v);
}

static force_inline int ast_spinlock_lock(ast_spinlock_t *lock)
{
 while (x86chgl(lock, 1)) {
 while(*lock) {
 }
 }
 return 0;
}

static force_inline int ast_spinlock_trylock(ast_spinlock_t *lock)
{
 return x86chgl(lock, 1);
}

static force_inline int ast_spinlock_unlock(ast_spinlock_t *lock)
{
 x86chgl(lock, 0);
 return 0;
}

static force_inline int ast_spinlock_destroy(ast_spinlock_t *lock)
{
 return 0;
}
#endif

/*!
 * \brief Implementation using ARM Assembly
 *
 * For ARM implementations that don't support gcc atomics,
 * this is the next best method.
 *
 */
#if defined(__arm__) && !defined(AST_SPINLOCK_TYPE)
#define AST_SPINLOCK_TYPE AST_SPINLOCK_TYPE_GAS_ARM
#define AST_SPINLOCK_TYPE_LABEL "gas_arm"
typedef volatile unsigned int ast_spinlock_t;

static force_inline int ast_spinlock_init(ast_spinlock_t *lock)
{
 *lock = 0;
 return 0;
}

static force_inline int ast_spinlock_lock(ast_spinlock_t *lock)
{
 unsigned int tmp;

 __asm __volatile (
 "1: ldrex %[tmp], %[lock];"
 " teq %[tmp], #0;"
#if defined __ARM_ARCH && __ARM_ARCH >= 7
 " wfene;"
#endif
 " strexeq %[tmp], %[c1], %[lock];"
 " teqeq %[tmp], #0;"
 " bne 1b;"
 : [tmp] "=&r" (tmp)
 : [lock] "m" (*lock) [c1] "r" (1)
 : "cc"
 );

 return tmp;
}

static force_inline int ast_spinlock_trylock(ast_spinlock_t *lock)
{
 unsigned int tmp;

 __asm __volatile (
 " ldrex %[tmp], %[lock];"
 " teq %[tmp], #0;"
#if defined __ARM_ARCH && __ARM_ARCH >= 7
 " wfene;"
#endif
 " strexeq %[tmp], %[c1], %[lock];"
 : [tmp] "=&r" (tmp)
 : [lock] "m" (*lock) [c1] "r" (1)
 : "cc"
 );

 return tmp;
}

static force_inline int ast_spinlock_unlock(ast_spinlock_t *lock)
{
 __asm __volatile (
 " dmb;"
 " str %[c0], %[lock];"
#if defined __ARM_ARCH && __ARM_ARCH >= 7
 " dsb;"
 " sev;"
#endif
 :
 : [lock] "m" (*lock) [c0] "r" (0)
 : "cc"
 );

 return 0;
}

static force_inline int ast_spinlock_destroy(ast_spinlock_t *lock)
{
 return 0;
}
#endif

/*!
 * \brief Implementation using Sparc Assembly
 *
 * For Sparc implementations that don't support gcc atomics,
 * this is the next best method.
 *
 */
#if defined(__sparc__) && !defined(AST_SPINLOCK_TYPE)
#define AST_SPINLOCK_TYPE AST_SPINLOCK_TYPE_GAS_SPARC
#define AST_SPINLOCK_TYPE_LABEL "gas_sparc"
typedef volatile unsigned char ast_spinlock_t;

static force_inline int ast_spinlock_init(ast_spinlock_t *lock)
{
 *lock = 0;
 return 0;
}

static force_inline int ast_spinlock_lock(ast_spinlock_t *lock)
{
 unsigned char tmp;

 __asm__ __volatile__(
 "1: ldstub %[lock], %[tmp]\n"
 " brnz,pn %[tmp], 2f\n"
 " nop\n"
 " .subsection 2\n"
 "2: ldub %[lock], %[tmp]\n"
 " brnz,pt %[tmp], 2b\n"
 " nop\n"
 " ba,a,pt %%xcc, 1b\n"
 " .previous"
 : [tmp] "=&r" (tmp)
 : [lock] "m" (*lock)
 : "memory"
 );

 return 0;
}

static force_inline int ast_spinlock_trylock(ast_spinlock_t *lock)
{
 unsigned long result = 1;

 __asm__ __volatile__(
 " ldstub %[lock], %[result]\n"
 : [result] "=&r" (result)
 : [lock] "m" (*lock)
 : "memory", "cc"
 );

 return (result != 0);
}

static force_inline int ast_spinlock_unlock(ast_spinlock_t *lock)
{
 __asm__ __volatile__(
 " stb %%g0, %[lock]"
 :
 : [lock] "m" (*lock)
 : "memory", "cc"
 );

 return 0;
}

static force_inline int ast_spinlock_destroy(ast_spinlock_t *lock)
{
 return 0;
}
#endif

/*!
 * \brief Implementation using pthread_spinlock
 *
 * pthread_spinlocks are not supported on all platforms
 * but if for some reason none of the previous implementations are
 * available, it can be used with reasonable performance.
 *
 */
#if defined (HAVE_PTHREAD_SPINLOCK) && !defined(AST_SPINLOCK_TYPE)
#define AST_SPINLOCK_TYPE AST_SPINLOCK_TYPE_PTHREAD_SPINLOCK
#define AST_SPINLOCK_TYPE_LABEL "pthread_spinlock"
typedef pthread_spinlock_t ast_spinlock_t;

static force_inline int ast_spinlock_init(ast_spinlock_t *lock)
{
 return pthread_spin_init(lock, PTHREAD_PROCESS_PRIVATE);
}

static force_inline int ast_spinlock_lock(ast_spinlock_t *lock)
{
 return pthread_spin_lock(lock);
}

static force_inline int ast_spinlock_trylock(ast_spinlock_t *lock)
{
 return pthread_spin_trylock(lock);
}

static force_inline int ast_spinlock_unlock(ast_spinlock_t *lock)
{
 return pthread_spin_unlock(lock);
}

static force_inline int ast_spinlock_destroy(ast_spinlock_t *lock)
{
 return pthread_spin_destroy(lock);
}
#endif

/*!
 * \brief Implementation using OSX Atomics
 *
 * The Darwin/Mac OSX platform has its own atomics
 * implementation but it uses more kernel time than
 * GCC atomics and x86 assembly. It is included
 * as an unlikely fallback.
 *
 */
#if defined(HAVE_OSX_ATOMICS) && !defined(AST_SPINLOCK_TYPE)
#include <libkern/OSAtomic.h>
#define AST_SPINLOCK_TYPE AST_SPINLOCK_TYPE_OSX_ATOMICS
#define AST_SPINLOCK_TYPE_LABEL "osx_atomics"
typedef OSSpinLock ast_spinlock_t;

static force_inline int ast_spinlock_init(ast_spinlock_t *lock)
{
 *lock = OS_SPINLOCK_INIT;
 return 0;
}

static force_inline int ast_spinlock_lock(ast_spinlock_t *lock)
{
 OSSpinLockLock(lock);
 return 0;
}

static force_inline int ast_spinlock_trylock(ast_spinlock_t *lock)
{
 return !OSSpinLockTry(lock);
}

static force_inline int ast_spinlock_unlock(ast_spinlock_t *lock)
{
 OSSpinLockUnlock(lock);
 return 0;
}

static force_inline int ast_spinlock_destroy(ast_spinlock_t *lock)
{
 return 0;
}
#endif

/*!
 * \brief Implementation using pthread_mutex
 *
 * pthread_mutex is supported on all platforms but
 * it is also the worst performing. It is included
 * as an unlikely fallback.
 *
 */
#if !defined(AST_SPINLOCK_TYPE)
#define AST_SPINLOCK_TYPE AST_SPINLOCK_TYPE_PTHREAD_MUTEX
#define AST_SPINLOCK_TYPE_LABEL "pthread_mutex"
typedef pthread_mutex_t ast_spinlock_t;

static force_inline int ast_spinlock_init(ast_spinlock_t *lock)
{
 pthread_mutex_init(lock, NULL);
 return 0;
}

static force_inline int ast_spinlock_lock(ast_spinlock_t *lock)
{
 return pthread_mutex_lock(lock);
}

static force_inline int ast_spinlock_trylock(ast_spinlock_t *lock)
{
 return pthread_mutex_trylock(lock);
}

static force_inline int ast_spinlock_unlock(ast_spinlock_t *lock)
{
 return pthread_mutex_unlock(lock);
}

static force_inline int ast_spinlock_destroy(ast_spinlock_t *lock)
{
 return pthread_mutex_destroy(lock);
}
#endif

#if !defined(AST_SPINLOCK_TYPE)
#error "No spinlock implementation could be found."
#endif

/* Prototypes are declared here to insure that each implementation provides
 * the same API and to act as placeholders for the documentation.
 */

/*!
 * \brief Initialize a spin lock
 * \param lock Address of the lock
 * \retval 0 Success
 * \retval other Failure
 */
static force_inline int ast_spinlock_init(ast_spinlock_t *lock);

/*!
 * \brief Lock a spin lock
 * \param lock Address of the lock
 * \retval 0 Success
 * \retval other Failure
 */
static force_inline int ast_spinlock_lock(ast_spinlock_t *lock);

/*!
 * \brief Try to lock a spin lock
 *
 * Attempt to gain a lock. Return immediately
 * regardless of result.
 *
 * \param lock Address of the lock
 * \retval 0 Success
 * \retval other Lock was not obtained
 */
static force_inline int ast_spinlock_trylock(ast_spinlock_t *lock);

/*!
 * \brief Unlock a spin lock
 * \param lock Address of the lock
 * \retval 0 Success
 * \retval other Failure
 */
static force_inline int ast_spinlock_unlock(ast_spinlock_t *lock);

/*!
 * \brief Destroy a spin lock
 * \param lock Address of the lock
 * \retval 0 Success
 * \retval other Failure
 */
static force_inline int ast_spinlock_destroy(ast_spinlock_t *lock);

#endif /* _ASTERISK_SPINLOCK_H */