diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-04-30 12:03:28 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-04-30 12:03:28 +0100 |
| commit | 470bedbbe60db2b9cc85dccafb6e06d9a841419d (patch) | |
| tree | b34816048053d26f8bb6ad46cbd238e505c969f7 /includes/stg/SMP.h | |
| parent | d1bffa693adfa48ef65240bb3c097f5f5f77868e (diff) | |
| download | haskell-470bedbbe60db2b9cc85dccafb6e06d9a841419d.tar.gz | |
Don't expose the cas definition to .hc files
This is more pleasant than having the C generator check whether the
function it's calling is cas, and not generate a prototype if so.
Diffstat (limited to 'includes/stg/SMP.h')
| -rw-r--r-- | includes/stg/SMP.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/includes/stg/SMP.h b/includes/stg/SMP.h index f1b0422009..52fd6f1bc6 100644 --- a/includes/stg/SMP.h +++ b/includes/stg/SMP.h @@ -306,6 +306,7 @@ load_load_barrier(void) { #define store_load_barrier() /* nothing */ #define load_load_barrier() /* nothing */ +#if !IN_STG_CODE || IN_STGCRUN INLINE_HEADER StgWord xchg(StgPtr p, StgWord w) { @@ -337,6 +338,7 @@ atomic_dec(StgVolatilePtr p) { return --(*p); } +#endif #define VOLATILE_LOAD(p) ((StgWord)*((StgWord*)(p))) |