[project @ 2005-11-25 13:06:25 by simonmar]

[ghc-hetmet.git] / ghc / includes / SMP.h

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 */