diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-09-09 13:22:34 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-09-09 13:22:34 +0000 |
| commit | 4318aa600015f0d7b4d977cb67071f3f8e7c3b0b (patch) | |
| tree | 45adf72d84fa71e0a72c0a734ee219fc814f6d51 /rts/sm/Compact.c | |
| parent | 4753cf734c79ad196ef4411393a1516465302f71 (diff) | |
| download | haskell-4318aa600015f0d7b4d977cb67071f3f8e7c3b0b.tar.gz | |
Fix compacting GC bug: don't forget to thread the blackhole_queue
Diffstat (limited to 'rts/sm/Compact.c')
| -rw-r--r-- | rts/sm/Compact.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index 9f0a69d1d1..7f3bb29580 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -996,6 +996,9 @@ compact(StgClosure *static_objects) // any threads resurrected during this GC thread((void *)&resurrected_threads); + // the blackhole queue + thread((void *)&blackhole_queue); + // the task list { Task *task; |