projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
merge GHC HEAD
[ghc-hetmet.git]
/
includes
/
stg
/
SMP.h
diff --git
a/includes/stg/SMP.h
b/includes/stg/SMP.h
index
f1b0422
..
52fd6f1
100644
(file)
--- 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)))