2012-04-15
2012-04-15 22:16:44 by Martin Stjernholm <mast@lysator.liu.se>
-
8b0094e855ff2aeb9cb1ded27c5d2afa14a4de71
(17 lines)
(+5/-12)
[
Show
| Annotate
]
Branch: arne/block_alloc
Some fixes to compile with GJAlloc in rtldebug mode.
213: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
void present_constant_profiling(void)
{
- struct callable_block *b;
- size_t e;
- for(b=callable_blocks;b;b=b->next)
- {
- for(e=0;e<NELEM(b->x);e++)
- {
- if(b->x[e].name)
- {
- fprintf(stderr,"%010ld @E@: %s\n",b->x[e].runs, b->x[e].name->str);
+ struct callable *c;
+ WALK_NONFREE_BLOCKS (callable, c, c->name, {
+ fprintf(stderr,"%010ld @E@: %s\n",c->runs, c->name->str);
+ });
}
- }
- }
- }
+
#endif
void init_builtin_constants(void)