diff options
| author | simonmar <unknown> | 2005-07-25 14:00:22 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2005-07-25 14:00:22 +0000 |
| commit | 1efc2d9cddec8ee6c1d25e64931bd7f1e185898c (patch) | |
| tree | 50be5f9cba637effe3a78e53e570c98d07f21f94 | |
| parent | 085d1c545c6578d5756d41f956c049274ce7eaa6 (diff) | |
| download | haskell-1efc2d9cddec8ee6c1d25e64931bd7f1e185898c.tar.gz | |
[project @ 2005-07-25 14:00:22 by simonmar]
catching up with GC tweaks
| -rw-r--r-- | ghc/rts/Printer.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c index 134dce4d7e..b454b46da4 100644 --- a/ghc/rts/Printer.c +++ b/ghc/rts/Printer.c @@ -1094,11 +1094,7 @@ findPtr(P_ p, int follow) for (g = 0; g < RtsFlags.GcFlags.generations; g++) { for (s = 0; s < generations[g].n_steps; s++) { - if (RtsFlags.GcFlags.generations == 1) { - bd = generations[g].steps[s].to_blocks; - } else { - bd = generations[g].steps[s].blocks; - } + bd = generations[g].steps[s].blocks; for (; bd; bd = bd->link) { for (q = bd->start; q < bd->free; q++) { if (*q == (W_)p) { |