2004-04-03
2004-04-03 17:34:34 by Martin Stjernholm <mast@lysator.liu.se>
-
f189377dd9ff1203aa03d6c747bd622d9a3e8999
(20 lines)
(+12/-8)
[
Show
| Annotate
]
Branch: 7.9
Various fixes in describe-stuff code.
Rev: src/gc.c:1.249
Rev: src/svalue.c:1.189
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.248 2004/04/03 17:02:16 mast Exp $
+ || $Id: gc.c,v 1.249 2004/04/03 17:34:34 mast Exp $
*/
#include "global.h"
33:
#include "block_alloc.h"
- RCSID("$Id: gc.c,v 1.248 2004/04/03 17:02:16 mast Exp $");
+ RCSID("$Id: gc.c,v 1.249 2004/04/03 17:34:34 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, "");
- print_short_svalue (stderr, (union anything *) inh->name, T_STRING);
+ 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)
get_name_of_type (id->run_time_type));
if (id->name->size_shift)
- print_short_svalue (stderr, (union anything *) id->name, T_STRING);
+ print_short_svalue (stderr, (union anything *) &id->name, T_STRING);
else
fprintf (stderr, "%-20s", id->name->str);
918: Inside #if defined(PIKE_DEBUG)
if (inh->name) {
fprintf (stderr, "%*s**%*s=== In inherit ",
indent, "", inh->inherit_level + 1, "");
- print_short_svalue (stderr, (union anything *) inh->name, T_STRING);
+ print_short_svalue (stderr, (union anything *) &inh->name, T_STRING);
fprintf (stderr, ", program %d:\n", inh->prog->id);
}
else
931: Inside #if defined(PIKE_DEBUG)
if (inh->name) {
fprintf (stderr, "%*s**%*s=== End of inherit ",
indent, "", inh->inherit_level + 1, "");
- print_short_svalue (stderr, (union anything *) inh->name, T_STRING);
+ print_short_svalue (stderr, (union anything *) &inh->name, T_STRING);
fputc ('\n', stderr);
}
else
978: Inside #if defined(PIKE_DEBUG)
indent, "", id_inh->inherit_level + 1, "", descr);
if (id->name->size_shift)
- print_short_svalue (stderr, (union anything *) id->name, T_STRING);
+ print_short_svalue (stderr, (union anything *) &id->name, T_STRING);
else
fprintf (stderr, "%-20s", id->name->str);
1128:
{
int tmp;
struct program *p=(struct program *)a;
- if(!a) return;
+ if(!a) {
+ fprintf (stderr, "%*s**NULL pointer\n", indent, "");
+ return;
+ }
if(t==-1)
{