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

diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c
index 021ecf0..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:
@@ -168,6 +169,7 @@ processHeapClosureForDead( StgClosure *c )
 	// stack objects
     case UPDATE_FRAME:
     case CATCH_FRAME:
+    case UNDERFLOW_FRAME:
     case STOP_FRAME:
     case RET_DYN:
     case RET_BCO: