EXTFUN(_PRMarking_MarkNextGA);
EXTDATA(_PRMarking_MarkNextGA_closure);
#else
-# if 1 /* !defined(GRAN) */ /* HWL */
EXTFUN(_PRMarking_MarkNextAStack);
EXTFUN(_PRMarking_MarkNextBStack);
EXTDATA(_PRMarking_MarkNextAStack_closure);
EXTDATA(_PRMarking_MarkNextBStack_closure);
-# endif
#endif /* not parallel */
P_ sm_roots_end;
} while (!found && MRoot != NULL);
DEBUG_STRING("Marking Sparks (GRAN):");
- /* ToDo: Check this code */
for(proc = 0; proc < RTSflags.GranFlags.proc; ++proc) {
for(pool = 0; pool < SPARK_POOLS; pool++) {
MRoot = (P_) PendingSparksHd[proc][pool];
miniInterpret((StgFunPtr) _startMarkWorld);
}
#else
-# if 1 /* !defined(GRAN) */ /* HWL */
/* Note: no *external* stacks in parallel/concurrent world */
DEBUG_STRING("Marking A Stack:");
MStack = (P_) _PRMarking_MarkNextBStack_closure;
miniInterpret((StgFunPtr)_startMarkWorld);
}
-# endif /* ! CONCURRENT */
#endif /* PAR */
DEBUG_STRING("Marking & Updating CAFs:");