Support for pausing other threadswip/pause-threads

1 files changed, 13 insertions, 1 deletions

diff --git a/includes/rts/storage/Closures.h b/includes/rts/storage/Closures.h
index 3e90306b65..4e66c0a492 100644
--- a/includes/rts/storage/Closures.h
+++ b/includes/rts/storage/Closures.h
@@ -171,6 +171,11 @@ typedef struct _StgUpdateFrame {
 
 typedef struct {
     StgHeader  header;
+    struct StgMVar_ *mvar;
+} StgPauseThread;
+
+typedef struct {
+    StgHeader  header;
     StgWord    exceptions_blocked;
     StgClosure *handler;
 } StgCatchFrame;
@@ -279,7 +284,7 @@ typedef struct StgMVarTSOQueue_ {
     struct StgTSO_          *tso;
 } StgMVarTSOQueue;
 
-typedef struct {
+typedef struct StgMVar_ {
     StgHeader                header;
     struct StgMVarTSOQueue_ *head;
     struct StgMVarTSOQueue_ *tail;
@@ -412,6 +417,13 @@ typedef struct MessageBlackHole_ {
     StgClosure *bh;
 } MessageBlackHole;
 
+typedef struct MessagePauseThread_ {
+    StgHeader   header;
+    Message    *link;
+    StgTSO     *tso;
+    StgMVar    *mvar;
+} MessagePauseThread;
+
 /* ----------------------------------------------------------------------------
    Compact Regions
    ------------------------------------------------------------------------- */