X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FCapability.h;h=f13afe21174b13c82301de7f2b473801687f3700;hb=4753cf734c79ad196ef4411393a1516465302f71;hp=f8fb7beceb8e27ae41b454f2cb938ade94f8c548;hpb=01ccdeea34b4853750326126f3bff9b2bdfa9a32;p=ghc-hetmet.git diff --git a/rts/Capability.h b/rts/Capability.h index f8fb7be..f13afe2 100644 --- a/rts/Capability.h +++ b/rts/Capability.h @@ -162,6 +162,9 @@ extern Capability *capabilities; // extern Capability *last_free_capability; +// GC indicator, in scope for the scheduler +extern volatile StgWord waiting_for_gc; + // Acquires a capability at a return point. If *cap is non-NULL, then // this is taken as a preference for the Capability we wish to // acquire. @@ -238,7 +241,6 @@ void freeCapability (Capability *cap); // FOr the GC: void markSomeCapabilities (evac_fn evac, void *user, nat i0, nat delta); void markCapabilities (evac_fn evac, void *user); -void updateCapabilitiesPostGC (void); void traverseSparkQueues (evac_fn evac, void *user); /* -----------------------------------------------------------------------------