Owen Anderson | 3c1eaa0 | 2009-05-20 18:26:15 +0000 | [diff] [blame] | 1 | //===-- Atomic.cpp - Atomic Operations --------------------------*- C++ -*-===// |
| 2 | // |
| 3 | // The LLVM Compiler Infrastructure |
| 4 | // |
| 5 | // This file is distributed under the University of Illinois Open Source |
| 6 | // License. See LICENSE.TXT for details. |
| 7 | // |
| 8 | //===----------------------------------------------------------------------===// |
| 9 | // |
| 10 | // This header file implements atomic operations. |
| 11 | // |
| 12 | //===----------------------------------------------------------------------===// |
| 13 | |
| 14 | #include "llvm/System/Atomic.h" |
| 15 | #include "llvm/Config/config.h" |
| 16 | |
| 17 | using namespace llvm; |
| 18 | |
| 19 | #if defined(_MSC_VER) |
| 20 | #include <windows.h> |
Owen Anderson | d8cf403 | 2009-06-02 17:35:55 +0000 | [diff] [blame] | 21 | #undef MemoryFence |
Owen Anderson | 3c1eaa0 | 2009-05-20 18:26:15 +0000 | [diff] [blame] | 22 | #endif |
| 23 | |
| 24 | void sys::MemoryFence() { |
| 25 | #if LLVM_MULTITHREADED==0 |
| 26 | return; |
| 27 | #else |
| 28 | # if defined(__GNUC__) |
| 29 | __sync_synchronize(); |
| 30 | # elif defined(_MSC_VER) |
| 31 | MemoryBarrier(); |
| 32 | # else |
| 33 | # error No memory fence implementation for your platform! |
| 34 | # endif |
| 35 | #endif |
| 36 | } |
| 37 | |
| 38 | sys::cas_flag sys::CompareAndSwap(volatile sys::cas_flag* ptr, |
Owen Anderson | 2aa783b | 2009-05-20 19:06:49 +0000 | [diff] [blame] | 39 | sys::cas_flag new_value, |
| 40 | sys::cas_flag old_value) { |
Owen Anderson | 3c1eaa0 | 2009-05-20 18:26:15 +0000 | [diff] [blame] | 41 | #if LLVM_MULTITHREADED==0 |
Owen Anderson | 41583b9 | 2009-05-20 19:01:50 +0000 | [diff] [blame] | 42 | sys::cas_flag result = *ptr; |
| 43 | if (result == old_value) |
| 44 | *ptr = new_value; |
Owen Anderson | 3c1eaa0 | 2009-05-20 18:26:15 +0000 | [diff] [blame] | 45 | return result; |
| 46 | #elif defined(__GNUC__) |
| 47 | return __sync_val_compare_and_swap(ptr, old_value, new_value); |
| 48 | #elif defined(_MSC_VER) |
Owen Anderson | 2aa783b | 2009-05-20 19:06:49 +0000 | [diff] [blame] | 49 | return InterlockedCompareExchange(ptr, new_value, old_value); |
Owen Anderson | 3c1eaa0 | 2009-05-20 18:26:15 +0000 | [diff] [blame] | 50 | #else |
| 51 | # error No compare-and-swap implementation for your platform! |
| 52 | #endif |
Duncan Sands | 05a8c87 | 2009-06-03 11:54:28 +0000 | [diff] [blame] | 53 | } |
Owen Anderson | 9a3df67 | 2009-06-17 00:13:00 +0000 | [diff] [blame] | 54 | |
Owen Anderson | efdbfc4 | 2009-06-17 00:28:49 +0000 | [diff] [blame] | 55 | sys::cas_flag sys::AtomicIncrement(volatile sys::cas_flag* ptr) { |
Owen Anderson | 9a3df67 | 2009-06-17 00:13:00 +0000 | [diff] [blame] | 56 | #if LLVM_MULTITHREADED==0 |
| 57 | ++(*ptr); |
| 58 | return *ptr; |
| 59 | #elif defined(__GNUC__) |
| 60 | return __sync_add_and_fetch(ptr, 1); |
| 61 | #elif defined(_MSC_VER) |
Owen Anderson | b9c2f58 | 2009-06-19 18:37:50 +0000 | [diff] [blame^] | 62 | return InterlockedIncrement(ptr); |
Owen Anderson | 9a3df67 | 2009-06-17 00:13:00 +0000 | [diff] [blame] | 63 | #else |
| 64 | # error No atomic increment implementation for your platform! |
| 65 | #endif |
| 66 | } |
| 67 | |
Owen Anderson | efdbfc4 | 2009-06-17 00:28:49 +0000 | [diff] [blame] | 68 | sys::cas_flag sys::AtomicDecrement(volatile sys::cas_flag* ptr) { |
Owen Anderson | 9a3df67 | 2009-06-17 00:13:00 +0000 | [diff] [blame] | 69 | #if LLVM_MULTITHREADED==0 |
| 70 | --(*ptr); |
| 71 | return *ptr; |
| 72 | #elif defined(__GNUC__) |
| 73 | return __sync_sub_and_fetch(ptr, 1); |
| 74 | #elif defined(_MSC_VER) |
Owen Anderson | b9c2f58 | 2009-06-19 18:37:50 +0000 | [diff] [blame^] | 75 | return InterlockedDecrement(ptr); |
Owen Anderson | 9a3df67 | 2009-06-17 00:13:00 +0000 | [diff] [blame] | 76 | #else |
| 77 | # error No atomic decrement implementation for your platform! |
| 78 | #endif |
| 79 | } |
| 80 | |
| 81 | |