2011-11-02 00:00:46 -04:00
|
|
|
#define FACTOR_FORCE_INLINE __forceinline
|
|
|
|
|
2011-10-31 23:51:53 -04:00
|
|
|
namespace factor {
|
2013-05-11 21:43:04 -04:00
|
|
|
namespace atomic {
|
|
|
|
__forceinline static bool cas(volatile cell* ptr, cell old_val, cell new_val) {
|
|
|
|
return InterlockedCompareExchange64(reinterpret_cast<volatile LONG64*>(ptr),
|
|
|
|
(LONG64) old_val, (LONG64) new_val) ==
|
|
|
|
(LONG64) old_val;
|
|
|
|
}
|
|
|
|
__forceinline static bool cas(volatile fixnum* ptr, fixnum old_val,
|
|
|
|
fixnum new_val) {
|
|
|
|
return InterlockedCompareExchange64(reinterpret_cast<volatile LONG64*>(ptr),
|
|
|
|
(LONG64) old_val, (LONG64) new_val) ==
|
|
|
|
(LONG64) old_val;
|
|
|
|
}
|
2011-10-31 23:51:53 -04:00
|
|
|
|
2013-05-11 21:43:04 -04:00
|
|
|
__forceinline static cell fetch_add(volatile cell* ptr, cell val) {
|
|
|
|
return (cell) InterlockedExchangeAdd64(
|
|
|
|
reinterpret_cast<volatile LONG64*>(ptr), (LONG64) val);
|
|
|
|
}
|
|
|
|
__forceinline static fixnum fetch_add(volatile fixnum* ptr, fixnum val) {
|
|
|
|
return (fixnum) InterlockedExchangeAdd64(
|
|
|
|
reinterpret_cast<volatile LONG64*>(ptr), (LONG64) val);
|
|
|
|
}
|
2011-10-31 23:51:53 -04:00
|
|
|
|
2013-05-11 21:43:04 -04:00
|
|
|
__forceinline static cell fetch_subtract(volatile cell* ptr, cell val) {
|
|
|
|
return (cell) InterlockedExchangeAdd64(
|
|
|
|
reinterpret_cast<volatile LONG64*>(ptr), -(LONG64) val);
|
|
|
|
}
|
|
|
|
__forceinline static fixnum fetch_subtract(volatile fixnum* ptr, fixnum val) {
|
|
|
|
return (fixnum) InterlockedExchangeAdd64(
|
|
|
|
reinterpret_cast<volatile LONG64*>(ptr), -(LONG64) val);
|
|
|
|
}
|
2011-10-31 23:51:53 -04:00
|
|
|
|
2013-05-11 21:43:04 -04:00
|
|
|
__forceinline static void fence() { MemoryBarrier(); }
|
|
|
|
}
|
2011-10-31 23:51:53 -04:00
|
|
|
}
|
|
|
|
|
2011-11-02 00:00:46 -04:00
|
|
|
#include "atomic.hpp"
|