2004-03-16
2004-03-16 14:09:23 by Martin Stjernholm <mast@lysator.liu.se>
-
86f186db21ede9f298c2e19ca861a2590b241245
(21 lines)
(+13/-8)
[
Show
| Annotate
]
Branch: 7.9
Fiddled a little with some debug printouts.
Rev: src/array.c:1.156
Rev: src/mapping.c:1.177
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: array.c,v 1.155 2004/03/15 22:47:15 mast Exp $
+ || $Id: array.c,v 1.156 2004/03/16 14:09:23 mast Exp $
*/
#include "global.h"
26:
#include "cyclic.h"
#include "multiset.h"
- RCSID("$Id: array.c,v 1.155 2004/03/15 22:47:15 mast Exp $");
+ RCSID("$Id: array.c,v 1.156 2004/03/16 14:09:23 mast Exp $");
PMOD_EXPORT struct array empty_array=
{
1900: Inside #if defined(PIKE_DEBUG)
{
dynamic_buffer save_buf;
char *s;
+ if (a->size) {
init_buf(&save_buf);
describe_array_low(a,0,0);
s=simple_free_buf(&save_buf);
fprintf(stderr,"({\n%s\n})\n",s);
free(s);
}
-
+ else
+ fputs ("({ })\n", stderr);
+ }
void describe_index(struct array *a,
int e,
2496: Inside #if defined(PIKE_DEBUG)
a == &weak_empty_array ? " (the weak_empty_array)" :
a == &weak_shrink_empty_array ? " (the weak_shrink_empty_array)" :
"");
- fprintf(stderr,"Type field = ");
+ fprintf(stderr,"Type field =");
debug_dump_type_field(a->type_field);
fprintf(stderr,"\n");
simple_describe_array(a);