From: simonmar <unknown>
Date: Mon, 25 Jul 2005 14:00:22 +0000 (+0000)
Subject: [project @ 2005-07-25 14:00:22 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~321
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1efc2d9cddec8ee6c1d25e64931bd7f1e185898c;p=ghc-hetmet.git

[project @ 2005-07-25 14:00:22 by simonmar]
catching up with GC tweaks
---

diff --git a/ghc/rts/Printer.c b/ghc/rts/Printer.c
index 134dce4..b454b46 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) {