diff --git a/src/interpret.c b/src/interpret.c index 92ec6ee..1e12a83 100644 --- a/src/interpret.c +++ b/src/interpret.c @@ -15250,7 +15250,7 @@ again: * iteration. */ - int vars_required; + //int vars_required; int nargs; p_int count, start; unsigned short offset; @@ -15308,12 +15308,12 @@ again: if (count < 0 && !use_range) ERRORF(("foreach() got a %"PRIdPINT", expected a non-negative " "number.", count)); - vars_required = 1; + //vars_required = 1; } else if (arg->type == T_STRING) { count = mstrsize(arg->u.str); - vars_required = 1; + //vars_required = 1; if (gen_refs) { @@ -15342,7 +15342,7 @@ again: { check_for_destr(arg->u.vec); count = VEC_SIZE(arg->u.vec); - vars_required = 1; + //vars_required = 1; if (gen_refs) { @@ -15361,7 +15361,7 @@ again: { struct_check_for_destr(arg->u.strct); count = struct_size(arg->u.strct); - vars_required = 1; + //vars_required = 1; if (gen_refs) { @@ -15382,7 +15382,7 @@ again: vector_t *indices; m = arg->u.map; - vars_required = 1 + m->num_values; + //vars_required = 1 + m->num_values; indices = m_indices(m); count = MAP_SIZE(m); @@ -16719,7 +16719,9 @@ apply_low ( string_t *fun, object_t *ob, int num_arg { program_t *progp; +#ifdef DEBUG struct control_stack *save_csp; +#endif p_int ix; /* This object will now be used, and is thus a target for @@ -16846,7 +16848,9 @@ retry_for_shadow: inter_sp = setup_new_frame2(funstart, inter_sp, allowRefs, MY_FALSE); previous_ob = current_object; current_object = ob; +#ifdef DEBUG save_csp = csp; +#endif eval_instruction(FUNCTION_CODE(funstart), inter_sp); #ifdef DEBUG if (save_csp-1 != csp) @@ -16961,7 +16965,9 @@ retry_for_shadow: inter_sp = setup_new_frame2(funstart, inter_sp, allowRefs, MY_FALSE); previous_ob = current_object; current_object = ob; +#ifdef DEBUG save_csp = csp; +#endif eval_instruction(FUNCTION_CODE(funstart), inter_sp); #ifdef DEBUG if (save_csp-1 != csp)