X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FLdvProfile.c;fp=rts%2FLdvProfile.c;h=ccaf10c6844e3394a6eaf97561c70b78dc284b06;hp=c2e7d7ec5a412313f53352bfd820973409ffea90;hb=7408b39235bccdcde48df2a73337ff976fbc09b7;hpb=12cfec943127f0c81e1ffa1ca5ce46e888e3027c

diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index c2e7d7e..ccaf10c 100644
--- a/rts/LdvProfile.c
+++ b/rts/LdvProfile.c
@@ -109,7 +109,7 @@ processHeapClosureForDead( StgClosure *c )
     case MUT_VAR_CLEAN:
     case MUT_VAR_DIRTY:
     case BCO:
-    case STABLE_NAME:
+    case PRIM:
     case TVAR_WATCH_QUEUE:
     case TVAR:
     case TREC_HEADER: