diff options
| author | Gabor Greif <ggreif@gmail.com> | 2013-02-25 23:03:23 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2013-02-26 10:30:35 +0100 |
| commit | b7ae3cd9273da044384de4a327a4a5d71190129e (patch) | |
| tree | fb18f2ccbf97eeedb6419ec9d342670db596a56f /includes/Cmm.h | |
| parent | 20b98f350d7b30118ca311117903fc039f6b85ce (diff) | |
| download | haskell-b7ae3cd9273da044384de4a327a4a5d71190129e.tar.gz | |
Only emit %write_barrier primitive for THREADED_RTS
Diffstat (limited to 'includes/Cmm.h')
| -rw-r--r-- | includes/Cmm.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/includes/Cmm.h b/includes/Cmm.h index 1505b1cb6a..ca8e51af78 100644 --- a/includes/Cmm.h +++ b/includes/Cmm.h @@ -1,6 +1,6 @@ /* ----------------------------------------------------------------------------- * - * (c) The University of Glasgow 2004-2012 + * (c) The University of Glasgow 2004-2013 * * This file is included at the top of all .cmm source files (and * *only* .cmm files). It defines a collection of useful macros for @@ -583,6 +583,12 @@ #define OVERWRITING_CLOSURE(c) /* nothing */ #endif +#ifdef THREADED_RTS +#define prim_write_barrier prim %write_barrier() +#else +#define prim_write_barrier /* nothing */ +#endif + /* ----------------------------------------------------------------------------- Ticky macros -------------------------------------------------------------------------- */ |