#include "Task.h"
#include "Sparks.h"
+BEGIN_RTS_PRIVATE
+
struct Capability_ {
// State required by the STG virtual machine when running Haskell
// code. During STG execution, the BaseReg register always points
bdescr **mut_lists;
bdescr **saved_mut_lists; // tmp use during GC
+ // block for allocating pinned objects into
+ bdescr *pinned_object_block;
+
// Context switch flag. We used to have one global flag, now one
// per capability. Locks required : none (conflicts are harmless)
int context_switch;
cap->context_switch = 1;
}
+END_RTS_PRIVATE
+
#endif /* CAPABILITY_H */