diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2016-02-27 22:02:22 +0100 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2016-04-29 10:48:27 +0200 |
| commit | a2970f883d1018107f745531aab56e872311d8c7 (patch) | |
| tree | b4c41b44ab1e3dc269ede821a05af97607843b0c /includes/rts/storage/TSO.h | |
| parent | 0fa1d075eb1ec07ff6e22472fc5d6f08b3206a2f (diff) | |
| download | haskell-a2970f883d1018107f745531aab56e872311d8c7.tar.gz | |
RTS: delete BlockedOnGA* + dead code
Some old stuff related to the PAR way.
Reviewed by: austin, simonmar
Differential Revision: https://phabricator.haskell.org/D2137
Diffstat (limited to 'includes/rts/storage/TSO.h')
| -rw-r--r-- | includes/rts/storage/TSO.h | 11 |
1 files changed, 1 insertions, 10 deletions
diff --git a/includes/rts/storage/TSO.h b/includes/rts/storage/TSO.h index aa3d05745b..fd32919e9d 100644 --- a/includes/rts/storage/TSO.h +++ b/includes/rts/storage/TSO.h @@ -184,7 +184,7 @@ typedef struct StgTSO_ { StgWord32 saved_winerror; #endif -} *StgTSOPtr; +} *StgTSOPtr; // StgTSO defined in rts/Types.h typedef struct StgStack_ { StgHeader header; @@ -242,8 +242,6 @@ void dirty_STACK (Capability *cap, StgStack *stack); BlockedOnRead NULL blocked_queue BlockedOnWrite NULL blocked_queue BlockedOnDelay NULL blocked_queue - BlockedOnGA closure TSO blocks on BQ of that closure - BlockedOnGA_NoSend closure TSO blocks on BQ of that closure tso->link == END_TSO_QUEUE, if the thread is currently running. @@ -258,13 +256,6 @@ void dirty_STACK (Capability *cap, StgStack *stack); (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). - 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 - closure will send a Fetch message. - Currently we have no separate code for blocking on an RBH; we use the - BlockedOnBlackHole case for that. -- HWL - ---------------------------------------------------------------------------- */ /* this is the NIL ptr for a TSO queue (e.g. runnable queue) */ |