From: simonm <unknown>
Date: Mon, 8 Feb 1999 10:41:17 +0000 (+0000)
Subject: [project @ 1999-02-08 10:41:17 by simonm]
X-Git-Tag: Approximately_9120_patches~6583
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=f09ea13391284a58118051b6b02d74eff1210e2f;p=ghc-hetmet.git

[project @ 1999-02-08 10:41:17 by simonm]
Fix bug in scavenge_mutable_list that meant mutable objects sometimes
got dropped from the mutable list.
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index e53d687..7957a44 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.27 1999/02/05 16:02:41 simonm Exp $
+ * $Id: GC.c,v 1.28 1999/02/08 10:41:17 simonm Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -1935,7 +1935,7 @@ scavenge_mutable_list(generation *gen)
   StgMutClosure *p, *next, *new_list;
 
   p = gen->saved_mut_list;
-  new_list = END_MUT_LIST;
+  new_list = gen->mut_list;
   next = p->mut_link;
 
   evac_gen = 0;