source: libcfa/src/bits/locks.hfa @ 8465b4d

//
// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// bits/locks.hfa -- Fast internal locks.
//
// Author           : Thierry Delisle
// Created On       : Tue Oct 31 15:14:38 2017
// Last Modified By : Peter A. Buhr
// Last Modified On : Tue Feb  4 13:03:19 2020
// Update Count     : 11
//

#pragma once

#include "bits/debug.hfa"
#include "bits/defs.hfa"
#include <assert.h>

#ifdef __cforall
        extern "C" {
                #include <pthread.h>
        }
#endif

// pause to prevent excess processor bus usage
#if defined( __sparc )
        #define Pause() __asm__ __volatile__ ( "rd %ccr,%g0" )
#elif defined( __i386 ) || defined( __x86_64 )
        #define Pause() __asm__ __volatile__ ( "pause" : : : )
#elif defined( __ARM_ARCH )
        #define Pause() __asm__ __volatile__ ( "nop" : : : )
#else
        #error unsupported architecture
#endif

struct __spinlock_t {
        // Wrap in struct to prevent false sharing with debug info
        volatile bool lock;
        #ifdef __CFA_DEBUG__
                // previous function to acquire the lock
                const char * prev_name;
                // previous thread to acquire the lock
                void* prev_thrd;
        #endif
};

#ifdef __cforall
        extern "C" {
                extern void disable_interrupts() OPTIONAL_THREAD;
                extern void enable_interrupts_noPoll() OPTIONAL_THREAD;

                #ifdef __CFA_DEBUG__
                        void __cfaabi_dbg_record_lock(__spinlock_t & this, const char prev_name[]);
                #else
                        #define __cfaabi_dbg_record_lock(x, y)
                #endif
        }

        static inline void ?{}( __spinlock_t & this ) {
                this.lock = 0;
        }

        // Lock the spinlock, return false if already acquired
        static inline bool try_lock  ( __spinlock_t & this __cfaabi_dbg_ctx_param2 ) {
                disable_interrupts();
                bool result = (this.lock == 0) && (__atomic_test_and_set( &this.lock, __ATOMIC_ACQUIRE ) == 0);
                if( result ) {
                        __cfaabi_dbg_record_lock( this, caller );
                } else {
                        enable_interrupts_noPoll();
                }
                return result;
        }

        // Lock the spinlock, spin if already acquired
        static inline void lock( __spinlock_t & this __cfaabi_dbg_ctx_param2 ) {
                #ifndef NOEXPBACK
                        enum { SPIN_START = 4, SPIN_END = 64 * 1024, };
                        unsigned int spin = SPIN_START;
                #endif

                disable_interrupts();
                for ( unsigned int i = 1;; i += 1 ) {
                        if ( (this.lock == 0) && (__atomic_test_and_set( &this.lock, __ATOMIC_ACQUIRE ) == 0) ) break;
                        #ifndef NOEXPBACK
                                // exponential spin
                                for ( volatile unsigned int s = 0; s < spin; s += 1 ) Pause();

                                // slowly increase by powers of 2
                                if ( i % 64 == 0 ) spin += spin;

                                // prevent overflow
                                if ( spin > SPIN_END ) spin = SPIN_START;
                        #else
                                Pause();
                        #endif
                }
                __cfaabi_dbg_record_lock( this, caller );
        }

        static inline void unlock( __spinlock_t & this ) {
                __atomic_clear( &this.lock, __ATOMIC_RELEASE );
                enable_interrupts_noPoll();
        }


        #ifdef __CFA_WITH_VERIFY__
                extern bool __cfaabi_dbg_in_kernel();
        #endif

        extern "C" {
                char * strerror(int);
        }
        #define CHECKED(x) { int err = x; if( err != 0 ) abort("KERNEL ERROR: Operation \"" #x "\" return error %d - %s\n", err, strerror(err)); }

        struct __bin_sem_t {
                pthread_mutex_t         lock;
                pthread_cond_t          cond;
                int                     val;
        };

        static inline void ?{}(__bin_sem_t & this) with( this ) {
                // Create the mutex with error checking
                pthread_mutexattr_t mattr;
                pthread_mutexattr_init( &mattr );
                pthread_mutexattr_settype( &mattr, PTHREAD_MUTEX_ERRORCHECK_NP);
                pthread_mutex_init(&lock, &mattr);

                pthread_cond_init (&cond, (const pthread_condattr_t *)0p);  // workaround trac#208: cast should not be required
                val = 0;
        }

        static inline void ^?{}(__bin_sem_t & this) with( this ) {
                CHECKED( pthread_mutex_destroy(&lock) );
                CHECKED( pthread_cond_destroy (&cond) );
        }

        static inline void wait(__bin_sem_t & this) with( this ) {
                verify(__cfaabi_dbg_in_kernel());
                CHECKED( pthread_mutex_lock(&lock) );
                        while(val < 1) {
                                pthread_cond_wait(&cond, &lock);
                        }
                        val -= 1;
                CHECKED( pthread_mutex_unlock(&lock) );
        }

        static inline bool post(__bin_sem_t & this) with( this ) {
                bool needs_signal = false;

                CHECKED( pthread_mutex_lock(&lock) );
                        if(val < 1) {
                                val += 1;
                                pthread_cond_signal(&cond);
                                needs_signal = true;
                        }
                CHECKED( pthread_mutex_unlock(&lock) );

                return needs_signal;
        }

        #undef CHECKED

        struct $thread;
        extern void park( __cfaabi_dbg_ctx_param );
        extern void unpark( struct $thread * this __cfaabi_dbg_ctx_param2 );
        static inline struct $thread * active_thread ();

        // Semaphore which only supports a single thread
        struct single_sem {
                struct $thread * volatile ptr;
        };

        static inline {
                void  ?{}(single_sem & this) {
                        this.ptr = 0p;
                }

                void ^?{}(single_sem & this) {}

                bool wait(single_sem & this) {
                        for() {
                                struct $thread * expected = this.ptr;
                                if(expected == 1p) {
                                        if(__atomic_compare_exchange_n(&this.ptr, &expected, 0p, false, __ATOMIC_SEQ_CST, __ATOMIC_SEQ_CST)) {
                                                return false;
                                        }
                                }
                                else {
                                        /* paranoid */ verify( expected == 0p );
                                        if(__atomic_compare_exchange_n(&this.ptr, &expected, active_thread(), false, __ATOMIC_SEQ_CST, __ATOMIC_SEQ_CST)) {
                                                park( __cfaabi_dbg_ctx );
                                                return true;
                                        }
                                }

                        }
                }

                bool post(single_sem & this) {
                        for() {
                                struct $thread * expected = this.ptr;
                                if(expected == 1p) return false;
                                if(expected == 0p) {
                                        if(__atomic_compare_exchange_n(&this.ptr, &expected, 1p, false, __ATOMIC_SEQ_CST, __ATOMIC_SEQ_CST)) {
                                                return false;
                                        }
                                }
                                else {
                                        if(__atomic_compare_exchange_n(&this.ptr, &expected, 0p, false, __ATOMIC_SEQ_CST, __ATOMIC_SEQ_CST)) {
                                                unpark( expected __cfaabi_dbg_ctx2 );
                                                return true;
                                        }
                                }
                        }
                }
        }
#endif