factor/vm/atomic-gcc.hpp

#define FACTOR_FORCE_INLINE __attribute__((always_inline)) inline
namespace factor {
namespace atomic {
__attribute__((always_inline)) inline static bool cas(volatile cell* ptr,
                                                      cell old_val,
                                                      cell new_val) {
  return __sync_bool_compare_and_swap(ptr, old_val, new_val);
}
__attribute__((always_inline)) inline static bool cas(volatile fixnum* ptr,
                                                      fixnum old_val,
                                                      fixnum new_val) {
  return __sync_bool_compare_and_swap(ptr, old_val, new_val);
}

__attribute__((always_inline)) inline static cell fetch_add(volatile cell* ptr,
                                                            cell val) {
  return __sync_fetch_and_add(ptr, val);
}
__attribute__((always_inline)) inline static fixnum fetch_add(
    volatile fixnum* ptr, fixnum val) {
  return __sync_fetch_and_add(ptr, val);
}

__attribute__((always_inline)) inline static cell fetch_subtract(
    volatile cell* ptr, cell val) {
  return __sync_fetch_and_sub(ptr, val);
}
__attribute__((always_inline)) inline static fixnum fetch_subtract(
    volatile fixnum* ptr, fixnum val) {
  return __sync_fetch_and_sub(ptr, val);
}

__attribute__((always_inline)) inline static void fence() {
  __sync_synchronize();
}
}
}

#include "atomic.hpp"