RTS tidyup sweep, first phase

[ghc-hetmet.git] / rts / WSDeque.c

diff --git a/rts/parallel/WSDeque.c b/rts/WSDeque.c
similarity index 99%
rename from rts/parallel/WSDeque.c
rename to rts/WSDeque.c
index acecb85..090a549 100644 (file)
--- a/rts/parallel/WSDeque.c
+++ b/rts/WSDeque.c
@@ -38,10 +38,11 @@
  * 
  * ---------------------------------------------------------------------------*/
 
+#include "PosixSource.h"
 #include "Rts.h"
+
 #include "RtsUtils.h"
 #include "WSDeque.h"
-#include "SMP.h" // for cas
 
 #define CASTOP(addr,old,new) ((old) == cas(((StgPtr)addr),(old),(new)))