[project @ 1999-01-18 09:20:08 by sof]

[ghc-hetmet.git] / ghc / rts / DebugProf.c

diff --git a/ghc/rts/DebugProf.c b/ghc/rts/DebugProf.c
index 7fe57ca..f5ad811 100644 (file)
--- a/ghc/rts/DebugProf.c
+++ b/ghc/rts/DebugProf.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: DebugProf.c,v 1.3 1999/01/13 17:25:38 simonm Exp $
+ * $Id: DebugProf.c,v 1.4 1999/01/15 17:57:05 simonm Exp $
  *
  * (c) The GHC Team 1998
  *
@@ -157,6 +157,7 @@ static char *type_names[] = {
     , "SEQ_FRAME"
 
     , "BLACKHOLE"
+    , "BLACKHOLE_BQ"
     , "MVAR"
 
     , "ARR_WORDS"
@@ -282,6 +283,7 @@ heapCensus(bdescr *bd)
            case IND_PERM:
            case IND_OLDGEN_PERM:
            case BLACKHOLE:
+           case BLACKHOLE_BQ:
            case WEAK:
            case FOREIGN:
            case MVAR: