X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fincludes%2FTSO.h;h=d096d401cfecf4fe9defee48ff16d03146c0eb0f;hp=14c47abed4ea4739c993b06273459bc5caa74d2a;hb=c520a3a2752ffcec5710a88a8a2e219c20edfc8a;hpb=5ed93b107550cc10fda7ae187de65da1a4b24d87

diff --git a/ghc/includes/TSO.h b/ghc/includes/TSO.h
index 14c47ab..d096d40 100644
--- a/ghc/includes/TSO.h
+++ b/ghc/includes/TSO.h
@@ -93,7 +93,13 @@ typedef StgWord32 StgThreadID;
  */
 #define TSO_DIRTY   1
 
-#define tsoDirty(tso) ((tso)->flags & TSO_DIRTY)
+/*
+ * TSO_LOCKED is set when a TSO is locked to a particular Capability.
+ */
+#define TSO_LOCKED  2
+
+#define tsoDirty(tso)  ((tso)->flags & TSO_DIRTY)
+#define tsoLocked(tso) ((tso)->flags & TSO_LOCKED)
 
 /*
  * Type returned after running a thread.  Values of this type