X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FLdvProfile.c;fp=rts%2FLdvProfile.c;h=c95dd1befd23faa4abe9cbf8002a8f0c762cae54;hp=acec0572d7f3310c6187a50afa89d1cd338ab00c;hb=470d52df0101a2f3c528b35e046ef9814ae6e5a5;hpb=edc0bafd3fcd01b85a2e8894e5dfe149eb0e0857

diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index acec057..c95dd1b 100644
--- a/rts/LdvProfile.c
+++ b/rts/LdvProfile.c
@@ -98,6 +98,7 @@ processHeapClosureForDead( StgClosure *c )
 	  'inherently used' cases: do nothing.
 	*/
     case TSO:
+    case STACK:
     case MVAR_CLEAN:
     case MVAR_DIRTY:
     case MUT_ARR_PTRS_CLEAN: