oops, undo accidental patch

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

diff --git a/ghc/rts/LdvProfile.c b/ghc/rts/LdvProfile.c
index 355d09d..19ebe42 100644 (file)
--- a/ghc/rts/LdvProfile.c
+++ b/ghc/rts/LdvProfile.c
@@ -36,7 +36,6 @@
 void 
 LDV_recordDead_FILL_SLOP_DYNAMIC( StgClosure *p )
 {
-    StgInfoTable *info;
     nat size, i;
 
 #if defined(__GNUC__) && __GNUC__ < 3 && defined(DEBUG)
@@ -109,6 +108,10 @@ processHeapClosureForDead( StgClosure *c )
     case MUT_VAR_DIRTY:
     case BCO:
     case STABLE_NAME:
+    case TVAR_WAIT_QUEUE:
+    case TVAR:
+    case TREC_HEADER:
+    case TREC_CHUNK:
        return size;
 
        /*
@@ -317,7 +320,7 @@ LdvCensusForDead( nat N )
                    processNurseryForDead();
                    processChainForDead(generations[g].steps[s].large_objects);
                } else{
-                   processHeapForDead(generations[g].steps[s].blocks);
+                   processHeapForDead(generations[g].steps[s].old_blocks);
                    processChainForDead(generations[g].steps[s].large_objects);
                }
            }