projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
1bc34e9
)
FIX profiling after my storage manager changes
author
Simon Marlow
<simonmar@microsoft.com>
Mon, 15 Oct 2007 10:39:39 +0000
(10:39 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Mon, 15 Oct 2007 10:39:39 +0000
(10:39 +0000)
rts/LdvProfile.c
patch
|
blob
|
history
diff --git
a/rts/LdvProfile.c
b/rts/LdvProfile.c
index
1838649
..
1e2ffc8
100644
(file)
--- a/
rts/LdvProfile.c
+++ b/
rts/LdvProfile.c
@@
-247,22
+247,7
@@
processSmallObjectPoolForDead( void )
bdescr *bd;
StgPtr p;
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);
p = bd->start;
while (p < bd->free) {
p += processHeapClosureForDead((StgClosure *)p);
@@
-270,7
+255,6
@@
processSmallObjectPoolForDead( void )
p++;
}
ASSERT(p == bd->free);
p++;
}
ASSERT(p == bd->free);
- bd = bd->link;
}
}
}
}