Reimplement constant look-up rule to follow lexical scoping.
This update fix CRuby scoping incompatibility; close close
MODIFY
src/variable.c
src/variable.c
@@ -833,11 +833,12 @@ mrb_value
mrb_vm_const_get(mrb_state *mrb, mrb_sym sym)
{
struct RClass *c = mrb->c->ci->proc->target_class;
-
- if (!c) c = mrb->c->ci->target_class;
- if (c) {
struct RClass *c2;
mrb_value v;
+ struct RProc *proc;
+
+ if (!c) c = mrb->c->ci->target_class;
+ mrb_assert(c != NULL);
if (c->iv && iv_get(mrb, c->iv, sym, &v)) {
return v;
@@ -850,14 +851,17 @@ mrb_vm_const_get(mrb_state *mrb, mrb_sym sym)
c2 = mrb_class_ptr(klass);
}
if (c2->tt == MRB_TT_CLASS || c2->tt == MRB_TT_MODULE) c = c2;
- c2 = c;
- for (;;) {
- c2 = mrb_class_outer_module(mrb, c2);
- if (!c2) break;
+ mrb_assert(!MRB_PROC_CFUNC_P(mrb->c->ci->proc));
+ proc = mrb->c->ci->proc->body.irep->outer;
+ while (proc) {
+ mrb_assert(!MRB_PROC_CFUNC_P(proc));
+ if (MRB_PROC_CLASS_P(proc) && proc->target_class) {
+ c2 = proc->target_class;
if (c2->iv && iv_get(mrb, c2->iv, sym, &v)) {
return v;
}
}
+ proc = proc->body.irep->outer;
}
return const_get(mrb, c, sym);
}

Reimplement constant look-up rule to follow lexical scoping.

This update fix CRuby scoping incompatibility; close #600; close #3200