X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2Fstg%2FSMP.h;fp=includes%2Fstg%2FSMP.h;h=52fd6f1bc69b99dfc39c168e3e2d55451fb57cfe;hb=470bedbbe60db2b9cc85dccafb6e06d9a841419d;hp=f1b04220094a146371cffdac4989c9fc9cff5d55;hpb=d1bffa693adfa48ef65240bb3c097f5f5f77868e;p=ghc-hetmet.git

diff --git a/includes/stg/SMP.h b/includes/stg/SMP.h
index f1b0422..52fd6f1 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)))