// 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 map
static inline void _gc_mark_map(struct a2_gc* gc_p, struct a2_gcobj* gcobj, enum gc_mark m){
assert(gcobj->type == A2_TMAP);
if(mask(gcobj->mark) == mask(m))
return;
gcobj->mark = m;
struct a2_obj k = a2_nil2obj();
struct a2_obj* vp = NULL;
struct a2_map* map_p = a2_gcobj2map(gcobj);
while(NULL != (vp = a2_map_next(map_p, &k))){
if(obj_t(&k)==A2_TSTRING){
gcobj->mark = m;
}
a2_gc_markit(gc_p, vp, m);
}
}
