diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:39:51 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:39:51 +0000 |
| commit | 04cddd339c000df6d02c90ce59dbffa58d2fe166 (patch) | |
| tree | 4ba138d182f71f2751daeb3cb77c0fc86cf1110f /rts/sm/GCAux.c | |
| parent | 9de1ad504a0a12dabd42b206f06ca04fa0e7009a (diff) | |
| download | haskell-04cddd339c000df6d02c90ce59dbffa58d2fe166.tar.gz | |
Add a write barrier to the TSO link field (#1589)
Diffstat (limited to 'rts/sm/GCAux.c')
| -rw-r--r-- | rts/sm/GCAux.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/sm/GCAux.c b/rts/sm/GCAux.c index fccae2c71d..0fb61f16a2 100644 --- a/rts/sm/GCAux.c +++ b/rts/sm/GCAux.c @@ -88,7 +88,7 @@ isAlive(StgClosure *p) case TSO: if (((StgTSO *)q)->what_next == ThreadRelocated) { - p = (StgClosure *)((StgTSO *)q)->link; + p = (StgClosure *)((StgTSO *)q)->_link; continue; } return NULL; |