1998-05-12
1998-05-12 23:49:52 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
6fdf36667d614d1a96ded7f1fefd37e4eaab65cc
(13 lines)
(+12/-1)
[
Show
| Annotate
]
Branch: 7.9
more debug
Rev: src/array.c:1.37
19:
#include "gc.h"
#include "main.h"
- RCSID("$Id: array.c,v 1.36 1998/04/28 23:54:21 grubba Exp $");
+ RCSID("$Id: array.c,v 1.37 1998/05/12 23:49:52 hubbe Exp $");
struct array empty_array=
{
840: Inside #if defined(DEBUG)
#ifdef DEBUG
if(t & ~(v->type_field))
+ {
+ describe(v);
fatal("Type field out of order!\n");
-
+ }
#endif
v->type_field = t;
}
866: Inside #if defined(DEBUG)
}
if(t & ~(v->type_field))
+ {
+ describe(v);
fatal("Type field out of order!\n");
}
-
+ }
#endif
struct array *compact_array(struct array *v) { return v; }
1346:
struct array *ret;
char *s, *end, *tmp;
+ #if 0
if(!str->len)
{
return allocate_array_no_init(0,0);
}
-
+ #endif
if(!del->len)
{
ret=allocate_array_no_init(str->len,0);
1699:
struct array *tmp;
q=start=0;
+ #if 0
if(!a->size)
{
return allocate_array_no_init(0,0);
}
-
+ #endif
if(b->size)
{
for(e=0;e<=a->size - b->size;e++)