diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2006-03-10 20:43:43 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2006-03-10 20:43:43 +0000 |
| commit | 05dad81285b606521b550b690f3e645bb7dc8f75 (patch) | |
| tree | 7133650ce959744c57896a47253e2947c12a1e4d /ghc | |
| parent | 4cb89d670945dfcb747d0ab74ac89dd9348ed6cd (diff) | |
| download | haskell-05dad81285b606521b550b690f3e645bb7dc8f75.tar.gz | |
extra sanity checking: call checkTSO() in resumeThread()
Diffstat (limited to 'ghc')
| -rw-r--r-- | ghc/rts/Schedule.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c index 578328dbcb..6d8fe63ff4 100644 --- a/ghc/rts/Schedule.c +++ b/ghc/rts/Schedule.c @@ -2289,6 +2289,8 @@ resumeThread (void *task_) /* We might have GC'd, mark the TSO dirty again */ dirtyTSO(tso); + IF_DEBUG(sanity, checkTSO(tso)); + return &cap->r; } |