30 static struct array	*array_new(void);
31 static __inline void	array_free(struct array *);
32 static struct array *	array_dup(const struct array *);
33 static __inline void	array_grow(struct array *, size_t);
34 static __inline void	array_assign(struct array *, size_t, const struct value *);
35 static __inline struct value	*array_retrieve(const struct array *, size_t);
68 	if (v->array != NULL) {  in stack_free_value()
69 		array_free(v->array);  in stack_free_value()
70 		v->array = NULL;  in stack_free_value()
93 	copy->array = a->array == NULL ? NULL : array_dup(a->array);  in stack_dup_value()
151 	stack->stack[stack->sp].array = NULL;  in stack_pushnumber()
160 	stack->stack[stack->sp].array = NULL;  in stack_pushstring()
178 	stack->stack[stack->sp].array = v->array == NULL ?  in stack_push()
179 	    NULL : array_dup(v->array);  in stack_push()
198 		stack->stack[stack->sp].array = v->array == NULL ?  in stack_set_tos()
199 		    NULL : array_dup(v->array);  in stack_set_tos()
216 	if (stack->stack[stack->sp].array != NULL) {  in stack_popnumber()
217 		array_free(stack->stack[stack->sp].array);  in stack_popnumber()
218 		stack->stack[stack->sp].array = NULL;  in stack_popnumber()
232 	if (stack->stack[stack->sp].array != NULL) {  in stack_popstring()
233 		array_free(stack->stack[stack->sp].array);  in stack_popstring()
234 		stack->stack[stack->sp].array = NULL;  in stack_popstring()
265 static struct array *
268 	struct array *a;  in array_new()
277 array_free(struct array *a)  in array_free()
289 static struct array *
290 array_dup(const struct array *a)  in array_dup()
292 	struct array	*n;  in array_dup()
305 array_grow(struct array *array, size_t newsize)  in array_grow()  argument
309 	array->data = brealloc(array->data, newsize * sizeof(*array->data));  in array_grow()
310 	for (i = array->size; i < newsize; i++) {  in array_grow()
311 		array->data[i].type = BCODE_NONE;  in array_grow()
312 		array->data[i].array = NULL;  in array_grow()
314 	array->size = newsize;  in array_grow()
318 array_assign(struct array *array, size_t index, const struct value *v)  in array_assign()  argument
320 	if (index >= array->size)  in array_assign()
321 		array_grow(array, index+1);  in array_assign()
322 	stack_free_value(&array->data[index]);  in array_assign()
323 	array->data[index] = *v;  in array_assign()
327 array_retrieve(const struct array *array, size_t index)  in array_retrieve()  argument
329 	if (index >= array->size)  in array_retrieve()
331 	return &array->data[index];  in array_retrieve()
337 	struct array *a;  in frame_assign()
342 		n.array = NULL;  in frame_assign()
346 	a = stack->stack[stack->sp].array;  in frame_assign()
348 		a = stack->stack[stack->sp].array = array_new();  in frame_assign()
355 	struct array *a;  in frame_retrieve()
359 	a = stack->stack[stack->sp].array;  in frame_retrieve()
361 		a = stack->stack[stack->sp].array = array_new();  in frame_retrieve()