X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FConstants.h;h=f0f3ce70a27f18fcad44145bae42332bd6335c87;hb=bb7ffa1642e2110e26e1243c42a8a24adafa985d;hp=e0949cbd1f8fae6857e4419a559ccfddc8838d56;hpb=066f10289f9711a0f6d0669aea97e134f1be2826;p=ghc-hetmet.git

diff --git a/includes/Constants.h b/includes/Constants.h
index e0949cb..f0f3ce7 100644
--- a/includes/Constants.h
+++ b/includes/Constants.h
@@ -193,6 +193,7 @@
 
 /*
  * Constants for the why_blocked field of a TSO
+ * NB. keep these in sync with GHC/Conc.lhs: threadStatus
  */
 #define NotBlocked          0
 #define BlockedOnMVar       1
@@ -260,6 +261,11 @@
 #define TSO_INTERRUPTIBLE 8
 #define TSO_STOPPED_ON_BREAKPOINT 16 
 
+/*
+ * TSO_LINK_DIRTY is set when a TSO's link field is modified
+ */
+#define TSO_LINK_DIRTY 32
+
 /* -----------------------------------------------------------------------------
    RET_DYN stack frames
    -------------------------------------------------------------------------- */