From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 16 Dec 2010 10:21:00 +0000 (+0000)
Subject: add a missing STACK case
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=470d52df0101a2f3c528b35e046ef9814ae6e5a5

add a missing STACK case
---

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: