X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FGC.c;h=42668e7db5129ec0cae5938f9dec65ca92f92dbf;hb=9e32d9698c9110cd9f59d7816411869112ea49ce;hp=d0d035ccd7cfe650ee93af342a4832629733660b;hpb=6313b907b9223f66ea31d675892aab231aca3783;p=ghc-hetmet.git

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