From 8b85ebc3da33a8c870425d951a307360627a1d12 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 16 Mar 2009 16:05:34 +0000 Subject: [PATCH] Don't call processHeapClosureForDead on pinned blocks Fixes heapprof001(prof_hp) after fix for #2917 --- rts/LdvProfile.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/rts/LdvProfile.c b/rts/LdvProfile.c index 6a807cf..eab3ec3 100644 --- a/rts/LdvProfile.c +++ b/rts/LdvProfile.c @@ -266,7 +266,9 @@ processChainForDead( bdescr *bd ) { // Any object still in the chain is dead! while (bd != NULL) { - processHeapClosureForDead((StgClosure *)bd->start); + if (!(bd->flags & BF_PINNED)) { + processHeapClosureForDead((StgClosure *)bd->start); + } bd = bd->link; } } -- 1.7.10.4