diff options
Diffstat (limited to 'rts/sm/Compact.c')
| -rw-r--r-- | rts/sm/Compact.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/sm/Compact.c b/rts/sm/Compact.c index 3f8a1fcfd6..aa901ee172 100644 --- a/rts/sm/Compact.c +++ b/rts/sm/Compact.c @@ -993,7 +993,7 @@ compact(StgClosure *static_objects, // mutable lists for (W_ g = 1; g < RtsFlags.GcFlags.generations; g++) { - for (W_ n = 0; n < n_capabilities; n++) { + for (W_ n = 0; n < getNumCapabilities(); n++) { for (bdescr *bd = capabilities[n]->mut_lists[g]; bd != NULL; bd = bd->link) { for (P_ p = bd->start; p < bd->free; p++) { @@ -1039,7 +1039,7 @@ compact(StgClosure *static_objects, debugTrace(DEBUG_gc, "update_fwd: %d", g); update_fwd(gen->blocks); - for (W_ n = 0; n < n_capabilities; n++) { + for (W_ n = 0; n < getNumCapabilities(); n++) { update_fwd(gc_threads[n]->gens[g].todo_bd); update_fwd(gc_threads[n]->gens[g].part_list); } |