From: simonm <unknown>
Date: Wed, 24 Feb 1999 16:30:45 +0000 (+0000)
Subject: [project @ 1999-02-24 16:30:45 by simonm]
X-Git-Tag: Approximately_9120_patches~6515
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eb567ae72a096016bef4ddcbd7821948ac356d18;p=ghc-hetmet.git

[project @ 1999-02-24 16:30:45 by simonm]
Don't promote blackholes from generation 0 if possible.
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 4ea3694..45d1422 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.39 1999/02/24 16:25:40 simonm Exp $
+ * $Id: GC.c,v 1.40 1999/02/24 16:30:45 simonm Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -2247,7 +2247,15 @@ scavenge_stack(StgPtr p, StgPtr stack_end)
 	    }
 	    continue;
 	  }
-	  step = bd->step->to;
+
+	  /* Don't promote blackholes */
+	  step = bd->step;
+	  if (!(step->gen->no == 0 && 
+		step->no != 0 &&
+		step->no == step->gen->n_steps-1)) {
+	    step = step->to;
+	  }
+
 	  switch (type) {
 	  case BLACKHOLE:
 	  case CAF_BLACKHOLE: