Put brackets around ipv6 addresses in `inet6 present`

[factor.git] / vm / atomic.hpp

diff --git a/vm/atomic.hpp b/vm/atomic.hpp
index a8b27237207f0c1db7a19f16aa14930aee2403a9..081b3b54019211192d85ab931c3e5afa205ee9b8 100644 (file)
--- a/vm/atomic.hpp
+++ b/vm/atomic.hpp
@@ -1,5 +1,9 @@
 namespace factor {
 namespace atomic {
+FACTOR_FORCE_INLINE static bool load(volatile bool* ptr) {
+  atomic::fence();
+  return *ptr;
+}
 FACTOR_FORCE_INLINE static cell load(volatile cell* ptr) {
   atomic::fence();
   return *ptr;
@@ -10,6 +14,11 @@ FACTOR_FORCE_INLINE static fixnum load(volatile fixnum* ptr) {
   return *ptr;
 }
 
+FACTOR_FORCE_INLINE static void store(volatile bool* ptr, bool val) {
+  *ptr = val;
+  atomic::fence();
+}
+
 FACTOR_FORCE_INLINE static void store(volatile cell* ptr, cell val) {
   *ptr = val;
   atomic::fence();