2003-09-24
2003-09-24 00:59:31 by Martin Stjernholm <mast@lysator.liu.se>
-
c905ffad63f2c72da493fee59fed591b7ffb5b1e
(188 lines)
(+96/-92)
[
Show
| Annotate
]
Branch: 7.9
Tuned the flags so that the output from locate_references is a bit
more to the point. (Mostly a large indentation change.)
Rev: src/gc.c:1.235
2:
|| This file is part of Pike. For copyright information see COPYRIGHT.
|| Pike is distributed under GPL, LGPL and MPL. See the file COPYING
|| for more information.
- || $Id: gc.c,v 1.234 2003/09/24 00:57:58 mast Exp $
+ || $Id: gc.c,v 1.235 2003/09/24 00:59:31 mast Exp $
*/
#include "global.h"
33:
#include "block_alloc.h"
- RCSID("$Id: gc.c,v 1.234 2003/09/24 00:57:58 mast Exp $");
+ RCSID("$Id: gc.c,v 1.235 2003/09/24 00:59:31 mast Exp $");
int gc_enabled = 1;
619:
}
if(memblock && depth>0)
- describe_something(memblock,type,indent+2,depth-1,flags | DESCRIBE_MEM,inblock);
+ describe_something(memblock,type,indent+2,depth-1,flags,inblock);
#ifdef DEBUG_MALLOC
/* FIXME: Is the following call correct?
718: Inside #if defined(PIKE_DEBUG)
describe_location(gc_found_in , gc_found_in_type, gc_svalue_location,0,1,0);
else {
fputc('\n', stderr);
- describe_something(gc_found_in, gc_found_in_type, 0, 0, DESCRIBE_MEM, 0);
+ describe_something(gc_found_in, gc_found_in_type, 0, 0, 0, 0);
}
}
else
850: Inside #if defined(PIKE_DEBUG) and #if defined(DEBUG_MALLOC)
fprintf(stderr, "%*s**Zapped program pointer.\n", indent, "");
else
#endif
- low_describe_something(p, T_PROGRAM, indent, depth, flags, 0);
+ low_describe_something(p, T_PROGRAM, indent, depth,
+ flags | DESCRIBE_SHORT, 0);
if((p->flags & PROGRAM_USES_PARENT) &&
LOW_PARENT_INFO(((struct object *)a),p)->parent)
895: Inside #if defined(PIKE_DEBUG)
free (tmp);
}
+ if (!(flags & DESCRIBE_SHORT)) {
fprintf (stderr, "%*s**Identifiers:\n", indent, "");
for (id_idx = 0; id_idx < p->num_identifier_references; id_idx++) {
997: Inside #if defined(PIKE_DEBUG)
if (!id_count)
fprintf (stderr, "%*s** (none)\n", indent, "");
+ }
if(flags & DESCRIBE_MEM)
{