diff options
author | Simon Marlow <marlowsd@gmail.com> | 2008-10-10 13:15:45 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2008-10-10 13:15:45 +0000 |
commit | b69843467459d43168519ced8d0cf45227c4c7be (patch) | |
tree | 5070a26bba1576a9b3b76d9dbdab0f4f9932850f /includes | |
parent | 613c5f6d88a3dd7df56af1d0f3780b885a0d17cd (diff) | |
download | haskell-b69843467459d43168519ced8d0cf45227c4c7be.tar.gz |
add readTVarIO :: TVar a -> IO a
Diffstat (limited to 'includes')
-rw-r--r-- | includes/StgMiscClosures.h | 1 | ||||
-rw-r--r-- | includes/mkDerivedConstants.c | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/includes/StgMiscClosures.h b/includes/StgMiscClosures.h index 16cd476172..f69a4aea0f 100644 --- a/includes/StgMiscClosures.h +++ b/includes/StgMiscClosures.h @@ -600,6 +600,7 @@ RTS_FUN(catchSTMzh_fast); RTS_FUN(atomicallyzh_fast); RTS_FUN(newTVarzh_fast); RTS_FUN(readTVarzh_fast); +RTS_FUN(readTVarIOzh_fast); RTS_FUN(writeTVarzh_fast); RTS_FUN(checkzh_fast); diff --git a/includes/mkDerivedConstants.c b/includes/mkDerivedConstants.c index aaa4531ea0..3aa7625db2 100644 --- a/includes/mkDerivedConstants.c +++ b/includes/mkDerivedConstants.c @@ -353,6 +353,8 @@ main(int argc, char *argv[]) closure_field(StgTVarWatchQueue, next_queue_entry); closure_field(StgTVarWatchQueue, prev_queue_entry); + closure_field(StgTVar, current_value); + closure_size(StgWeak); closure_field(StgWeak,link); closure_field(StgWeak,key); |