[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 662ad41..f5ad811 100644 (file)
--- a/ghc/rts/DebugProf.c
+++ b/ghc/rts/DebugProf.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: DebugProf.c,v 1.2 1998/12/02 13:28:14 simonm Exp $
+ * $Id: DebugProf.c,v 1.4 1999/01/15 17:57:05 simonm Exp $
  *
  * (c) The GHC Team 1998
  *
@@ -157,10 +157,10 @@ static char *type_names[] = {
     , "SEQ_FRAME"
 
     , "BLACKHOLE"
+    , "BLACKHOLE_BQ"
     , "MVAR"
 
     , "ARR_WORDS"
-    , "ARR_PTRS"
 
     , "MUT_ARR_WORDS"
     , "MUT_ARR_PTRS"
@@ -283,6 +283,7 @@ heapCensus(bdescr *bd)
            case IND_PERM:
            case IND_OLDGEN_PERM:
            case BLACKHOLE:
+           case BLACKHOLE_BQ:
            case WEAK:
            case FOREIGN:
            case MVAR:
@@ -316,10 +317,9 @@ heapCensus(bdescr *bd)
                size = arr_words_sizeW(stgCast(StgArrWords*,p));
                break;
 
-           case ARR_PTRS:
            case MUT_ARR_PTRS:
            case MUT_ARR_PTRS_FROZEN:
-               size = arr_ptrs_sizeW((StgArrPtrs *)p);
+               size = mut_arr_ptrs_sizeW((StgMutArrPtrs *)p);
                break;
 
            case TSO: