X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FTSO.h;h=747c070d315d8de361851540d5e92fd3434e7089;hb=03a9ff01812afc81eb5236fd3063cbec44cf469e;hp=9824888804b1d1454b0ab803c4d509b4447b71f4;hpb=63e8af080a7e779a48e812e6caa9ea519b046260;p=ghc-hetmet.git

diff --git a/ghc/includes/TSO.h b/ghc/includes/TSO.h
index 9824888..747c070 100644
--- a/ghc/includes/TSO.h
+++ b/ghc/includes/TSO.h
@@ -133,7 +133,7 @@ typedef struct StgTSO_ {
   struct StgTSO_*    blocked_exceptions;
   StgThreadID        id;
   int                saved_errno;
-  struct StgMainThread_* main;
+  struct Task_*      bound;          // non-NULL for a bound thread
   struct StgTRecHeader_ *trec;       /* STM transaction record */
   
 #ifdef TICKY_TICKY