X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=includes%2FTSO.h;h=088097ea507588a705b53f34606a26e03f69763f;hp=4621d4ad69f1473f913cc8af67956d9b4ef8e032;hb=55a5d8d90280a611bafb659bc80778d3927a6bff;hpb=73566e25d75588185b0581722406da5c48965c51

diff --git a/includes/TSO.h b/includes/TSO.h
index 4621d4a..088097e 100644
--- a/includes/TSO.h
+++ b/includes/TSO.h
@@ -159,6 +159,9 @@ typedef struct StgTSO_ {
 #ifdef DIST
     StgTSODistInfo dist;
 #endif
+#ifdef mingw32_HOST_OS
+    StgWord32 saved_winerror;
+#endif
 
     /* The thread stack... */
     StgWord32	       stack_size;     /* stack size in *words* */
@@ -215,16 +218,6 @@ typedef struct StgTSO_ {
       (tso->sp is left pointing at the top word on the stack so that
       the return value or exception will be retained by a GC).
 
-   tso->blocked_exceptions is either:
-
-      NULL             if async exceptions are unblocked.
-
-      END_TSO_QUEUE    if async exceptions are blocked, but no threads
-                       are currently waiting to deliver.
-
-      (StgTSO *)tso    if threads are currently awaiting delivery of
-                       exceptions to this thread.
-
    The 2 cases BlockedOnGA and BlockedOnGA_NoSend are needed in a GUM
    setup only. They mark a TSO that has entered a FETCH_ME or
    FETCH_ME_BQ closure, respectively; only the first TSO hitting the