X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fparallel%2FWSDeque.c;fp=rts%2Fparallel%2FWSDeque.c;h=acecb85e5f8fe8fe0360652c0ec037f8b8669a76;hb=4e3542263207ae49963811aeb84927027e7bb61d;hp=ced6c95ec61fbe6e8396843907cc4d5d91886f7d;hpb=8fda9784f1eff82aa243073fd31b181080be3109;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