X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fparallel%2FWSDeque.c;h=acecb85e5f8fe8fe0360652c0ec037f8b8669a76;hb=ff93deac2a5c02111bcc4cf5a3c87aefe4d6dc6c;hp=ced6c95ec61fbe6e8396843907cc4d5d91886f7d;hpb=902b277cd6ae9a37f84967cdec6335af4c29575e;p=ghc-hetmet.git diff --git a/rts/parallel/WSDeque.c b/rts/parallel/WSDeque.c index ced6c95..acecb85 100644 --- a/rts/parallel/WSDeque.c +++ b/rts/parallel/WSDeque.c @@ -43,8 +43,6 @@ #include "WSDeque.h" #include "SMP.h" // for cas -#if defined(THREADED_RTS) - #define CASTOP(addr,old,new) ((old) == cas(((StgPtr)addr),(old),(new))) /* ----------------------------------------------------------------------------- @@ -285,5 +283,3 @@ pushWSDeque (WSDeque* q, void * elem) ASSERT_WSDEQUE_INVARIANTS(q); return rtsTrue; } - -#endif