// add array
A2_API inline void a2_addarray(struct a2_state* state){
int top = a2_top(state)-1;
struct a2_obj* v = a2_getcstack(state->env_p, top);
struct a2_obj* array = a2_getcstack(state->env_p, top-1);
check_array(array);
a2_array_add(a2_gcobj2array(obj_vX(array, obj)), v);
}
//set list
static inline void _vm_setlist(struct a2_vm* vm_p){
int i, end=ir_gb(curr_ir)+ir_gc(curr_ir);
struct a2_obj* _d = callinfo_sfreg(curr_ci, ir_ga(curr_ir));
assert(obj_t(_d)==A2_TARRAY);
for(i=ir_gb(curr_ir); i<end; i++){
a2_array_add(a2_gcobj2array(obj_vX(_d, obj)), callinfo_sfreg(curr_ci, i));
}
curr_pc++;
}
// call a2 function
static inline void __vm_call_function(struct a2_vm* vm_p, struct a2_obj* _func){
assert(obj_t(_func)==A2_TCLOSURE);
struct a2_obj* _obj = NULL;
int i, j, params = a2_closure_params(a2_gcobj2closure(obj_vX(_func, obj)));
struct a2_array* _args = NULL;
struct vm_callinfo* _ci = curr_ci;
ir _ir = curr_ir;
// new call info
int b = ir_ga(curr_ir), n=ir_gc(curr_ir);
callinfo_new(vm_p, a2_gcobj2closure(obj_vX(_func, obj)), b, n);
// jump call
_ci->pc++;
// if is mutableargs
if(params<0){
params = -1 - params;
_obj = callinfo_sfreg(curr_ci, params);
if(ir_gb(_ir)>params){ // set _args list
_args = a2_array_new();
struct a2_gcobj* _array_gcobj = a2_array2gcobj(_args);
a2_gcadd(vm_p->env_p, _array_gcobj);
obj_setX(_obj, A2_TARRAY, obj, _array_gcobj);
}else{
obj_setX(_obj, A2_TNIL, point, NULL);
}
}
// set params
for(i=ir_ga(_ir)+1, j=0;
i<=ir_ga(_ir)+ir_gb(_ir) && j<params;
j++, i++){
_obj = callinfo_sfreg(curr_ci, j);
*_obj = *callinfo_sfreg(_ci, i);
}
// set clear params
for( ;j<params; j++){
_obj = callinfo_sfreg(curr_ci, j);
obj_setX(_obj, A2_TNIL, point, NULL);
}
// if mutable args
for(j=0; i<=ir_ga(_ir)+ir_gb(_ir) && _args; i++, j++){
a2_array_add(_args, callinfo_sfreg(_ci, i));
}
}