From 9e32d9698c9110cd9f59d7816411869112ea49ce Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 28 Nov 2001 15:42:05 +0000
Subject: [PATCH] [project @ 2001-11-28 15:42:05 by simonmar] Fix the test for
 calling LdvCensusForDead().

---
 ghc/rts/GC.c |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
 
-- 
1.7.10.4