// foreachloop
static inline void _vm_foreachloop(struct a2_vm* vm_p){
struct a2_obj* _k = callinfo_sfreg(curr_ci, ir_ga(curr_ir));
struct a2_obj* _v = callinfo_sfreg(curr_ci, ir_ga(curr_ir)+1);
struct a2_obj* _c = callinfo_sfreg(curr_ci, ir_ga(curr_ir)+2);
struct a2_obj* __v = NULL;
if(obj_t(_c)!=A2_TMAP && obj_t(_c)!=A2_TARRAY)
vm_error("the varable is not map or array.");
// dump next
switch(obj_t(_c)){
case A2_TMAP:
__v = a2_map_next(a2_gcobj2map(obj_vX(_c, obj)), _k);
if(__v==NULL)
curr_pc++;
else{
*_v = *__v;
jump(ir_gbx(curr_ir));
}
break;
case A2_TARRAY:
__v = a2_array_next(a2_gcobj2array(obj_vX(_c, obj)), _k);
if(__v==NULL) // dump is end
curr_pc++;
else{
*_v = *__v;
jump(ir_gbx(curr_ir));
}
break;
default:
assert(0);
}
}
// mark array
static inline void _gc_mark_array(struct a2_gc* gc_p, struct a2_gcobj* gcobj, enum gc_mark m){
assert(gcobj->type == A2_TARRAY);
if(mask(gcobj->mark) == mask(m))
return;
gcobj->mark = m;
struct a2_obj k = a2_nil2obj();
struct a2_obj* vp = NULL;
struct a2_array* array_p = a2_gcobj2array(gcobj);
while(NULL != (vp=a2_array_next(array_p, &k))){
a2_gc_markit(gc_p, vp, m);
}
}
