Commit 62023058 authored by Simon Marlow's avatar Simon Marlow
Browse files

FIX profiling after my storage manager changes

parent 1bc34e90
......@@ -247,22 +247,7 @@ processSmallObjectPoolForDead( void )
bdescr *bd;
StgPtr p;
bd = g0s0->blocks;
// first block
if (bd == NULL)
return;
p = bd->start;
while (p < alloc_Hp) {
p += processHeapClosureForDead((StgClosure *)p);
while (p < alloc_Hp && !*p) // skip slop
p++;
}
ASSERT(p == alloc_Hp);
bd = bd->link;
while (bd != NULL) {
for (bd = g0s0->blocks; bd != NULL; bd = bd->link) {
p = bd->start;
while (p < bd->free) {
p += processHeapClosureForDead((StgClosure *)p);
......@@ -270,7 +255,6 @@ processSmallObjectPoolForDead( void )
p++;
}
ASSERT(p == bd->free);
bd = bd->link;
}
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment