2004-04-03
2004-04-03 17:02:16 by Martin Stjernholm <mast@lysator.liu.se>
-
99cee97055bd6e58c61cfceb41ff3e19aee63d6e
(34 lines)
(+13/-21)
[
Show
| Annotate
]
Branch: 7.9
Did away with the use of interpreter stack in low_describe_something so that
it can deliver better leak reports at cleanup.
Rev: src/gc.c:1.248
Rev: src/svalue.c:1.188
Rev: src/svalue.h:1.127
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.247 2004/03/21 06:22:16 nilsson Exp $
+ || $Id: gc.c,v 1.248 2004/04/03 17:02:16 mast Exp $
*/
#include "global.h"
33:
#include "block_alloc.h"
- RCSID("$Id: gc.c,v 1.247 2004/03/21 06:22:16 nilsson Exp $");
+ RCSID("$Id: gc.c,v 1.248 2004/04/03 17:02:16 mast Exp $");
int gc_enabled = 1;
810: Inside #if defined(PIKE_DEBUG)
if (inh->name) {
fprintf (stderr, "%*s**%*s=== In inherit ",
indent, "", inh->inherit_level + 1, "");
- push_string (inh->name);
- print_svalue (stderr, --Pike_sp);
+ print_short_svalue (stderr, (union anything *) inh->name, T_STRING);
fprintf (stderr, ", program %d:\n", inh->prog->id);
}
else
827: Inside #if defined(PIKE_DEBUG)
indent, "", inh->inherit_level + 1, "",
get_name_of_type (id->run_time_type));
- if (id->name->size_shift) {
- push_string (id->name);
- print_svalue (stderr, --Pike_sp);
- }
+ if (id->name->size_shift)
+ print_short_svalue (stderr, (union anything *) id->name, T_STRING);
else
fprintf (stderr, "%-20s", id->name->str);
840: Inside #if defined(PIKE_DEBUG)
ptr = PIKE_OBJ_STORAGE ((struct object *) a) +
inh->storage_offset + id->func.offset;
if (id->run_time_type == T_MIXED)
- push_svalue ((struct svalue *) ptr);
+ print_svalue_compact (stderr, (struct svalue *) ptr);
else
- assign_from_short_svalue_no_free (
- Pike_sp++, (union anything *) ptr, id->run_time_type);
- print_svalue_compact (stderr, Pike_sp - 1);
- pop_stack();
+ print_short_svalue_compact (stderr, (union anything *) ptr,
+ id->run_time_type);
fputc ('\n', stderr);
var_count++;
923: Inside #if defined(PIKE_DEBUG)
if (inh->name) {
fprintf (stderr, "%*s**%*s=== In inherit ",
indent, "", inh->inherit_level + 1, "");
- push_string (inh->name);
- print_svalue (stderr, --Pike_sp);
+ print_short_svalue (stderr, (union anything *) inh->name, T_STRING);
fprintf (stderr, ", program %d:\n", inh->prog->id);
}
else
937: Inside #if defined(PIKE_DEBUG)
if (inh->name) {
fprintf (stderr, "%*s**%*s=== End of inherit ",
indent, "", inh->inherit_level + 1, "");
- push_string (inh->name);
- print_svalue (stderr, --Pike_sp);
+ print_short_svalue (stderr, (union anything *) inh->name, T_STRING);
fputc ('\n', stderr);
}
else
984: Inside #if defined(PIKE_DEBUG)
fprintf (stderr, "%*s**%*s%-18s name: ",
indent, "", id_inh->inherit_level + 1, "", descr);
- if (id->name->size_shift) {
- push_string (id->name);
- print_svalue (stderr, --Pike_sp);
- }
+ if (id->name->size_shift)
+ print_short_svalue (stderr, (union anything *) id->name, T_STRING);
else
fprintf (stderr, "%-20s", id->name->str);