X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fruntime%2Fstorage%2FSMmark.lhc;h=b1a5aa218f16c881119f543b62b5da0e2d72c8b7;hp=72ea1d3f5c7c2d8ecc47dcc681359a88df211ab4;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee

diff --git a/ghc/runtime/storage/SMmark.lhc b/ghc/runtime/storage/SMmark.lhc
index 72ea1d3..b1a5aa2 100644
--- a/ghc/runtime/storage/SMmark.lhc
+++ b/ghc/runtime/storage/SMmark.lhc
@@ -1738,7 +1738,6 @@ STGFUN(_PRMarking_MarkNextGA)
 }
 
 #else
-#if 1 /* !defined(CONCURRENT) */ /* HWL */
 STGFUN(_PRMarking_MarkNextAStack)
 {
     FUNBEGIN;
@@ -1771,7 +1770,6 @@ STGFUN(_PRMarking_MarkNextBStack)
     JUMP_MARK;
     FUNEND;
 }
-#endif	/* !CONCURRENT */
 #endif	/* PAR */
 \end{code}