From: simonmar <unknown>
Date: Tue, 2 Aug 2005 14:58:23 +0000 (+0000)
Subject: [project @ 2005-08-02 14:58:23 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~272
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a2ae57dadd81559f63e5a041cb1bfa3e98ca561b;p=ghc-hetmet.git

[project @ 2005-08-02 14:58:23 by simonmar]
Fix tiny debugging output bug
---

diff --git a/ghc/rts/GCCompact.c b/ghc/rts/GCCompact.c
index ad7638d..d449794 100644
--- a/ghc/rts/GCCompact.c
+++ b/ghc/rts/GCCompact.c
@@ -917,7 +917,6 @@ update_bkwd_compact( step *stp )
 	freeChain(free_bd->link);
 	free_bd->link = NULL;
     }
-    stp->n_old_blocks = free_blocks;
 
     return free_blocks;
 }