[project @ 1999-03-20 17:33:07 by sof]

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

diff --git a/ghc/rts/DebugProf.c b/ghc/rts/DebugProf.c
index f5ad811..7cd73eb 100644 (file)
--- a/ghc/rts/DebugProf.c
+++ b/ghc/rts/DebugProf.c
@@ -1,7 +1,7 @@
 /* -----------------------------------------------------------------------------
- * $Id: DebugProf.c,v 1.4 1999/01/15 17:57:05 simonm Exp $
+ * $Id: DebugProf.c,v 1.6 1999/02/05 16:02:36 simonm Exp $
  *
- * (c) The GHC Team 1998
+ * (c) The GHC Team 1998-1999
  *
  * Simple Heap Profiling
  *
@@ -162,7 +162,6 @@ static char *type_names[] = {
 
     , "ARR_WORDS"
 
-    , "MUT_ARR_WORDS"
     , "MUT_ARR_PTRS"
     , "MUT_ARR_PTRS_FROZEN"
     , "MUT_VAR"
@@ -313,7 +312,6 @@ heapCensus(bdescr *bd)
                break;
 
            case ARR_WORDS:
-           case MUT_ARR_WORDS:
                size = arr_words_sizeW(stgCast(StgArrWords*,p));
                break;