diff options
| author | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:40:42 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmarhaskell@gmail.com> | 2008-04-16 23:40:42 +0000 |
| commit | 122ff64971cbef8260221840caefc1a3411f41b5 (patch) | |
| tree | f7aebb306d794c282d2c3690841f5ff0dce90775 /rts/sm | |
| parent | 04cddd339c000df6d02c90ce59dbffa58d2fe166 (diff) | |
| download | haskell-122ff64971cbef8260221840caefc1a3411f41b5.tar.gz | |
bugfix for traverseBlackHoleQueue
Diffstat (limited to 'rts/sm')
| -rw-r--r-- | rts/sm/MarkWeak.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/rts/sm/MarkWeak.c b/rts/sm/MarkWeak.c index 9d47cdedeb..ce88466fdf 100644 --- a/rts/sm/MarkWeak.c +++ b/rts/sm/MarkWeak.c @@ -303,9 +303,8 @@ traverseBlackholeQueue (void) continue; } } - tmp = t; - evacuate((StgClosure **)&tmp); - if (prev) prev->_link = t; + evacuate((StgClosure **)&t); + if (prev) prev->_link = t; // no write barrier when on the blackhole queue, // because we traverse the whole queue on every GC. flag = rtsTrue; |