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 	array_free(v->array);  in stack_free_value()
69 	v->array = NULL;  in stack_free_value()
91 	copy->array = a->array == NULL ? NULL : array_dup(a->array);  in stack_dup_value()
149 	stack->stack[stack->sp].array = NULL;  in stack_pushnumber()
158 	stack->stack[stack->sp].array = NULL;  in stack_pushstring()
176 	stack->stack[stack->sp].array = v->array == NULL ?  in stack_push()
177 	    NULL : array_dup(v->array);  in stack_push()
196 		stack->stack[stack->sp].array = v->array == NULL ?  in stack_set_tos()
197 		    NULL : array_dup(v->array);  in stack_set_tos()
214 	array_free(stack->stack[stack->sp].array);  in stack_popnumber()
215 	stack->stack[stack->sp].array = NULL;  in stack_popnumber()
228 	array_free(stack->stack[stack->sp].array);  in stack_popstring()
229 	stack->stack[stack->sp].array = NULL;  in stack_popstring()
258 static struct array *
261 	struct array *a;  in array_new()
270 array_free(struct array *a)  in array_free()
282 static struct array *
283 array_dup(const struct array *a)  in array_dup()
285 	struct array	*n;  in array_dup()
298 array_grow(struct array *array, size_t newsize)  in array_grow()  argument
302 	array->data = breallocarray(array->data, newsize, sizeof(*array->data));  in array_grow()
303 	for (i = array->size; i < newsize; i++) {  in array_grow()
304 		array->data[i].type = BCODE_NONE;  in array_grow()
305 		array->data[i].array = NULL;  in array_grow()
307 	array->size = newsize;  in array_grow()
311 array_assign(struct array *array, size_t index, const struct value *v)  in array_assign()  argument
313 	if (index >= array->size)  in array_assign()
314 		array_grow(array, index+1);  in array_assign()
315 	stack_free_value(&array->data[index]);  in array_assign()
316 	array->data[index] = *v;  in array_assign()
320 array_retrieve(const struct array *array, size_t index)  in array_retrieve()  argument
322 	if (index >= array->size)  in array_retrieve()
324 	return &array->data[index];  in array_retrieve()
330 	struct array *a;  in frame_assign()
335 		n.array = NULL;  in frame_assign()
339 	a = stack->stack[stack->sp].array;  in frame_assign()
341 		a = stack->stack[stack->sp].array = array_new();  in frame_assign()
348 	struct array *a;  in frame_retrieve()
352 	a = stack->stack[stack->sp].array;  in frame_retrieve()
354 		a = stack->stack[stack->sp].array = array_new();  in frame_retrieve()