diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-03-29 14:46:13 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-03-29 14:46:13 +0000 |
| commit | 848797ebb9b60cf9c8a004c97afd008f5325c75f (patch) | |
| tree | 155a9fc6a4495d06694cc4956dc4461179fe5d7c /rts/StgMiscClosures.cmm | |
| parent | 1373cd3085b8dec456e6118c58e940718cb9d559 (diff) | |
| download | haskell-848797ebb9b60cf9c8a004c97afd008f5325c75f.tar.gz | |
change throwTo to use tryWakeupThread rather than unblockOne
Diffstat (limited to 'rts/StgMiscClosures.cmm')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index 830bde5665..7e1e6a73d5 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -503,6 +503,10 @@ INFO_TABLE_CONSTR(stg_MSG_THROWTO,4,0,0,PRIM,"MSG_THROWTO","MSG_THROWTO") INFO_TABLE_CONSTR(stg_MSG_BLACKHOLE,3,0,0,PRIM,"MSG_BLACKHOLE","MSG_BLACKHOLE") { foreign "C" barf("MSG_BLACKHOLE object entered!") never returns; } +// used to overwrite a MSG_THROWTO when the message has been used/revoked +INFO_TABLE_CONSTR(stg_MSG_NULL,1,0,0,PRIM,"MSG_NULL","MSG_NULL") +{ foreign "C" barf("MSG_NULL object entered!") never returns; } + /* ---------------------------------------------------------------------------- END_TSO_QUEUE |