From: simonmar <unknown>
Date: Wed, 28 Nov 2001 15:42:05 +0000 (+0000)
Subject: [project @ 2001-11-28 15:42:05 by simonmar]
X-Git-Tag: Approximately_9120_patches~493
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9e32d9698c9110cd9f59d7816411869112ea49ce;p=ghc-hetmet.git

[project @ 2001-11-28 15:42:05 by simonmar]
Fix the test for calling LdvCensusForDead().
---

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index d0d035c..42668e7 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.128 2001/11/26 16:54:21 simonmar Exp $
+ * $Id: GC.c,v 1.129 2001/11/28 15:42:05 simonmar Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -608,7 +608,8 @@ GarbageCollect ( void (*get_roots)(evac_fn), rtsBool force_major_gc )
 #ifdef PROFILING
   // We call processHeapClosureForDead() on every closure destroyed during
   // the current garbage collection, so we invoke LdvCensusForDead().
-  if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_LDV)
+  if (RtsFlags.ProfFlags.doHeapProfile == HEAP_BY_LDV
+      || RtsFlags.ProfFlags.bioSelector != NULL)
     LdvCensusForDead(N);
 #endif