projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
062c0fa
)
[project @ 2005-11-25 13:06:25 by simonmar]
author
simonmar
<unknown>
Fri, 25 Nov 2005 13:06:25 +0000
(13:06 +0000)
committer
simonmar
<unknown>
Fri, 25 Nov 2005 13:06:25 +0000
(13:06 +0000)
define wb() and xchg() for non-SMP versions of the RTS
ghc/includes/SMP.h
patch
|
blob
|
history
diff --git
a/ghc/includes/SMP.h
b/ghc/includes/SMP.h
index
d8f2aa1
..
88fc339
100644
(file)
--- a/
ghc/includes/SMP.h
+++ b/
ghc/includes/SMP.h
@@
-113,6
+113,18
@@
unlockClosure(StgClosure *p, StgInfoTable *info)
#endif
}
-#endif /* SMP */
+#else /* !SMP */
+
+#define wb() /* nothing */
+
+INLINE_HEADER StgWord
+xchg(StgPtr p, StgWord w)
+{
+ StgWord old = *p;
+ *p = w;
+ return old;
+}
+
+#endif /* !SMP */
#endif /* SMP_H */