-#if 0
-
-# if defined(GRAN)
-/* ToDo: Use a parallel ticky macro for this */
-# define COUNT_SPARK(node) { (CurrentTSO->gran.globalsparks)++; sparksCreated++; }
-# elif defined(PAR)
-# define COUNT_SPARK(node) { (CurrentTSO->par.globalsparks)++; sparksCreated++; }
-# endif
-
-/*
- Note that we must bump the required thread count NOW, rather
- than when the thread is actually created.
-
- forkzh not needed any more; see ghc/rts/PrimOps.hc
-*/
-#define forkzh(r,liveness,node) \
-{ \
- extern nat context_switch; \
- while (pending_sparks_tl[REQUIRED_POOL] == pending_sparks_lim[REQUIRED_POOL]) \
- DO_YIELD((liveness << 1) | 1); \
- if (closure_SHOULD_SPARK((StgClosure *)node)) { \
- *pending_sparks_tl[REQUIRED_POOL]++ = (P_)(node); \
- } else { \
- sparksIgnored++; \
- } \
- context_switch = 1; \
-}
-
-// old version of par (previously used in GUM
-
-#define parzh(r,node) \
-{ \
- extern nat context_switch; \
- COUNT_SPARK(node); \
- if (closure_SHOULD_SPARK((StgClosure *)node) && \
- pending_sparks_tl[ADVISORY_POOL] < pending_sparks_lim[ADVISORY_POOL]) {\
- *pending_sparks_tl[ADVISORY_POOL]++ = (StgClosure *)(node); \
- } else { \
- sparksIgnored++; \
- } \
- r = context_switch = 1; \
-}
-#endif /* 0 */
-