#include "Task.h"
#include "Sparks.h"
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
struct Capability_ {
// State required by the STG virtual machine when running Haskell
// For the GC:
void markSomeCapabilities (evac_fn evac, void *user, nat i0, nat delta,
- rtsBool prune_sparks);
+ rtsBool no_mark_sparks);
void markCapabilities (evac_fn evac, void *user);
void traverseSparkQueues (evac_fn evac, void *user);
#endif
-END_RTS_PRIVATE
+#include "EndPrivate.h"
#endif /* CAPABILITY_H */