1998-04-17
1998-04-17 05:08:02 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
aa366d0557302e23b4f1957fd2250e6bd57a02af
(25 lines)
(+13/-12)
[
Show
| Annotate
]
Branch: 7.9
ERROR -> PIKE_ERROR
Rev: src/array.c:1.32
Rev: src/array.h:1.13
Rev: src/builtin_functions.c:1.100
Rev: src/error.h:1.18
Rev: src/interpret.c:1.79
Rev: src/operators.c:1.32
19:
#include "gc.h"
#include "main.h"
- RCSID("$Id: array.c,v 1.31 1998/03/28 15:40:19 grubba Exp $");
+ RCSID("$Id: array.c,v 1.32 1998/04/17 05:08:00 hubbe Exp $");
struct array empty_array=
{
46:
if(size == 0)
{
- empty_array.refs++;
+ add_ref(&empty_array);
return &empty_array;
}
113:
if(d_flag > 1) array_check_type_field(v);
#endif
- v->refs++;
+ add_ref(v);
free_svalues(ITEM(v), v->size, v->type_field);
v->refs--;
array_free_no_free(v);
147:
fatal("Illegal index in low level index routine.\n");
#endif
- v->refs++;
+ add_ref(v);
assign_svalue(s, ITEM(v) + index);
free_array(v);
}
202:
fatal("Illegal index in low level array set routine.\n");
#endif
- v->refs++;
+ add_ref(v);
check_destructed(s);
v->type_field = (v->type_field & ~BIT_UNFINISHED) | 1 << s->type;
437:
if(start==0 && v->refs==1) /* Can we use the same array? */
{
- v->refs++;
+ add_ref(v);
return array_shrink(v,end);
}
1143:
}else{
if(a->refs == 1)
{
- a->refs++;
+ add_ref(a);
return a;
}
return slice_array(a,0,a->size);
1413:
if(p->pointer_a == (void *)a)
{
ret=(struct array *)p->pointer_b;
- ret->refs++;
+ add_ref(ret);
return ret;
}
}
1568:
{
if(gc_do_free(a))
{
- a->refs++;
+ add_ref(a);
free_svalues(ITEM(a), a->size, a->type_field);
a->size=0;
1625: Inside #if defined(DEBUG) && defined(DEBUG_MALLOC)
#if defined(DEBUG) && defined(DEBUG_MALLOC)
if(verbose_debug_exit && a!=&empty_array)
- debug_dump_array(a);
+ describe(a);
#endif
- a->refs++;
+ add_ref(a);
free_svalues(ITEM(a), a->size, a->type_field);
a->size=0;
1662:
q=start=0;
push_array(a); /* Save us from destructive slice_arrays */
- a->refs++;
+ add_ref(a);
if(b->size)
{
for(e=0;e<=a->size - b->size;e++)