src/atomic/SDL_spinlock.c
author Shawn Walker <binarycrusader@gmail.com>
Sat, 05 Jul 2014 16:11:23 -0700
changeset 8979 1e283b7a1580
parent 8583 fb2933ca805f
child 8991 13b0df1793e8
permissions -rw-r--r--
2620 solaris port missing atomics if not using gcc
slouken@8582
     1
/*
slouken@8582
     2
  Simple DirectMedia Layer
slouken@8149
     3
  Copyright (C) 1997-2014 Sam Lantinga <slouken@libsdl.org>
slouken@8582
     4
slouken@8582
     5
  This software is provided 'as-is', without any express or implied
slouken@8582
     6
  warranty.  In no event will the authors be held liable for any damages
slouken@8582
     7
  arising from the use of this software.
slouken@8582
     8
slouken@8582
     9
  Permission is granted to anyone to use this software for any purpose,
slouken@8582
    10
  including commercial applications, and to alter it and redistribute it
slouken@8582
    11
  freely, subject to the following restrictions:
slouken@8582
    12
slouken@8582
    13
  1. The origin of this software must not be misrepresented; you must not
slouken@8582
    14
     claim that you wrote the original software. If you use this software
slouken@8582
    15
     in a product, an acknowledgment in the product documentation would be
slouken@8582
    16
     appreciated but is not required.
slouken@8582
    17
  2. Altered source versions must be plainly marked as such, and must not be
slouken@8582
    18
     misrepresented as being the original software.
slouken@8582
    19
  3. This notice may not be removed or altered from any source distribution.
slouken@8582
    20
*/
icculus@8093
    21
#include "../SDL_internal.h"
slouken@8582
    22
slouken@8582
    23
#if defined(__WIN32__) || defined(__WINRT__)
slouken@8582
    24
#include "../core/windows/SDL_windows.h"
slouken@8582
    25
#endif
slouken@8582
    26
slouken@8582
    27
#include "SDL_atomic.h"
slouken@8582
    28
#include "SDL_mutex.h"
slouken@8582
    29
#include "SDL_timer.h"
slouken@8582
    30
binarycrusader@8979
    31
#if !defined(HAVE_GCC_ATOMICS) && defined(__SOLARIS__)
binarycrusader@8979
    32
#include <atomic.h>
binarycrusader@8979
    33
#endif
slouken@8582
    34
slouken@8582
    35
/* This function is where all the magic happens... */
slouken@8582
    36
SDL_bool
slouken@8582
    37
SDL_AtomicTryLock(SDL_SpinLock *lock)
slouken@8582
    38
{
slouken@8582
    39
#if SDL_ATOMIC_DISABLED
slouken@8582
    40
    /* Terrible terrible damage */
slouken@8582
    41
    static SDL_mutex *_spinlock_mutex;
slouken@8582
    42
slouken@8582
    43
    if (!_spinlock_mutex) {
slouken@8582
    44
        /* Race condition on first lock... */
slouken@8582
    45
        _spinlock_mutex = SDL_CreateMutex();
slouken@8582
    46
    }
slouken@8582
    47
    SDL_LockMutex(_spinlock_mutex);
slouken@8582
    48
    if (*lock == 0) {
slouken@8582
    49
        *lock = 1;
slouken@8582
    50
        SDL_UnlockMutex(_spinlock_mutex);
slouken@8582
    51
        return SDL_TRUE;
slouken@8582
    52
    } else {
slouken@8582
    53
        SDL_UnlockMutex(_spinlock_mutex);
slouken@8582
    54
        return SDL_FALSE;
slouken@8582
    55
    }
slouken@8582
    56
slouken@8582
    57
#elif defined(_MSC_VER)
slouken@8582
    58
    SDL_COMPILE_TIME_ASSERT(locksize, sizeof(*lock) == sizeof(long));
slouken@8582
    59
    return (InterlockedExchange((long*)lock, 1) == 0);
slouken@8582
    60
slouken@8582
    61
#elif HAVE_GCC_ATOMICS || HAVE_GCC_SYNC_LOCK_TEST_AND_SET
slouken@8582
    62
    return (__sync_lock_test_and_set(lock, 1) == 0);
slouken@8582
    63
slouken@8582
    64
#elif defined(__GNUC__) && defined(__arm__) && \
slouken@8582
    65
        (defined(__ARM_ARCH_4__) || defined(__ARM_ARCH_4T__) || \
slouken@8582
    66
         defined(__ARM_ARCH_5__) || defined(__ARM_ARCH_5TE__) || \
slouken@8582
    67
         defined(__ARM_ARCH_5TEJ__))
slouken@8582
    68
    int result;
slouken@8582
    69
    __asm__ __volatile__ (
slouken@8582
    70
        "swp %0, %1, [%2]\n"
slouken@8582
    71
        : "=&r,&r" (result) : "r,0" (1), "r,r" (lock) : "memory");
slouken@8582
    72
    return (result == 0);
slouken@8582
    73
slouken@8582
    74
#elif defined(__GNUC__) && defined(__arm__)
slouken@8582
    75
    int result;
slouken@8582
    76
    __asm__ __volatile__ (
slouken@8582
    77
        "ldrex %0, [%2]\nteq   %0, #0\nstrexeq %0, %1, [%2]"
slouken@8582
    78
        : "=&r" (result) : "r" (1), "r" (lock) : "cc", "memory");
slouken@8582
    79
    return (result == 0);
slouken@8582
    80
slouken@8582
    81
#elif defined(__GNUC__) && (defined(__i386__) || defined(__x86_64__))
slouken@8582
    82
    int result;
slouken@8582
    83
    __asm__ __volatile__(
slouken@8582
    84
        "lock ; xchgl %0, (%1)\n"
slouken@8582
    85
        : "=r" (result) : "r" (lock), "0" (1) : "cc", "memory");
slouken@8582
    86
    return (result == 0);
slouken@8582
    87
slouken@8582
    88
#elif defined(__MACOSX__) || defined(__IPHONEOS__)
slouken@8582
    89
    /* Maybe used for PowerPC, but the Intel asm or gcc atomics are favored. */
slouken@8582
    90
    return OSAtomicCompareAndSwap32Barrier(0, 1, lock);
slouken@8582
    91
slouken@8582
    92
#elif HAVE_PTHREAD_SPINLOCK
slouken@8582
    93
    /* pthread instructions */
slouken@8582
    94
    return (pthread_spin_trylock(lock) == 0);
slouken@8582
    95
binarycrusader@8979
    96
#elif defined(__SOLARIS__) && defined(_LP64)
binarycrusader@8979
    97
    /* Used for Solaris with non-gcc compilers. */
binarycrusader@8979
    98
    return (SDL_bool) ((int) atomic_cas_64((volatile uint64_t*)lock, 0, 1) == 0);
binarycrusader@8979
    99
binarycrusader@8979
   100
#elif defined(__SOLARIS__) && !defined(_LP64)
binarycrusader@8979
   101
    /* Used for Solaris with non-gcc compilers. */
binarycrusader@8979
   102
    return (SDL_bool) ((int) atomic_cas_32((volatile uint32_t*)lock, 0, 1) == 0);
binarycrusader@8979
   103
slouken@8582
   104
#else
slouken@8582
   105
#error Please implement for your platform.
slouken@8582
   106
    return SDL_FALSE;
slouken@8582
   107
#endif
slouken@8582
   108
}
slouken@8582
   109
slouken@8582
   110
void
slouken@8582
   111
SDL_AtomicLock(SDL_SpinLock *lock)
slouken@8582
   112
{
slouken@8582
   113
    /* FIXME: Should we have an eventual timeout? */
slouken@8582
   114
    while (!SDL_AtomicTryLock(lock)) {
slouken@8582
   115
        SDL_Delay(0);
slouken@8582
   116
    }
slouken@8582
   117
}
slouken@8582
   118
slouken@8582
   119
void
slouken@8582
   120
SDL_AtomicUnlock(SDL_SpinLock *lock)
slouken@8582
   121
{
slouken@8582
   122
#if defined(_MSC_VER)
slouken@8582
   123
    _ReadWriteBarrier();
slouken@8582
   124
    *lock = 0;
slouken@8582
   125
slouken@8582
   126
#elif HAVE_GCC_ATOMICS || HAVE_GCC_SYNC_LOCK_TEST_AND_SET
slouken@8582
   127
    __sync_lock_release(lock);
slouken@8582
   128
slouken@8582
   129
#elif HAVE_PTHREAD_SPINLOCK
slouken@8582
   130
    pthread_spin_unlock(lock);
slouken@8582
   131
binarycrusader@8979
   132
#elif defined(__SOLARIS__)
binarycrusader@8979
   133
    /* Used for Solaris when not using gcc. */
binarycrusader@8979
   134
    *lock = 0;
binarycrusader@8979
   135
    membar_producer();
binarycrusader@8979
   136
slouken@8582
   137
#else
slouken@8582
   138
    *lock = 0;
slouken@8582
   139
#endif
slouken@8582
   140
}
slouken@8582
   141
slouken@8582
   142
/* vi: set ts=4 sw=4 expandtab: */