X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FCapability.h;h=2a04e41e6ba69b11f07c36052de1d568e45377f2;hb=afd08a9c06ae4b15e33e26e5a2818801c7fee429;hp=f9ae89472153cc694a38a1a026528510d3fe8c20;hpb=7fe1172a74da728154d3d86729afdb59855406dd;p=ghc-hetmet.git

diff --git a/ghc/rts/Capability.h b/ghc/rts/Capability.h
index f9ae894..2a04e41 100644
--- a/ghc/rts/Capability.h
+++ b/ghc/rts/Capability.h
@@ -81,6 +81,12 @@ struct Capability_ {
     Task *returning_tasks_hd; // Singly-linked, with head/tail
     Task *returning_tasks_tl;
 #endif
+
+    // Per-capability STM-related data
+    StgTVarWaitQueue *free_tvar_wait_queues;
+    StgTRecChunk *free_trec_chunks;
+    StgTRecHeader *free_trec_headers;
+    nat transaction_tokens;
 }; // typedef Capability, defined in RtsAPI.h