* eval.c (ev_const_get): simplified using rb_const_get_fallback().

* eval.c (ev_const_defined): adopt to ev_const_get() using
  rb_const_defined_fallback().

* variable.c (rb_const_get_fallback): new function to implement
  constant search.

* variable.c (rb_const_defined_fallback): new function to
  implement constant definition check.

* variable.c (rb_const_get_0): adopt to new behavior.  constants
  are looked up in the order of: current class, super classes (but
  Object), lexically external classes/modules, and Object.

* variable.c (rb_const_defined_0): ditto.


git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@9949 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 2 insertions, 34 deletions

diff --git a/eval.c b/eval.c
index 4cded4980..1b411fa16 100644
--- a/eval.c
+++ b/eval.c
@@ -1776,45 +1776,13 @@ ruby_current_class_object()
 static VALUE
 ev_const_defined(ID id, VALUE self)
 {
-    NODE *cbase = ruby_cref;
-    VALUE result;
-
-    while (cbase && cbase->nd_next) {
-	struct RClass *klass = RCLASS(cbase->nd_clss);
-
-	if (NIL_P(klass)) return rb_const_defined(CLASS_OF(self), id);
-	if (klass->iv_tbl && st_lookup(klass->iv_tbl, id, &result)) {
-	    if (result == Qundef && NIL_P(rb_autoload_p((VALUE)klass, id))) {
-		return Qfalse;
-	    }
-	    return Qtrue;
-	}
-	cbase = cbase->nd_next;
-    }
-    return rb_const_defined(ruby_cbase, id);
+    return rb_const_defined_fallback(ruby_cbase, id, ruby_cref->nd_next);
 }
 
 static VALUE
 ev_const_get(ID id, VALUE self)
 {
-    NODE *cbase = ruby_cref;
-    VALUE result;
-
-    while (cbase && cbase->nd_next) {
-	VALUE klass = cbase->nd_clss;
-
-	if (NIL_P(klass)) return rb_const_get(CLASS_OF(self), id);
-	while (RCLASS(klass)->iv_tbl &&
-	       st_lookup(RCLASS(klass)->iv_tbl, id, &result)) {
-	    if (result == Qundef) {
-		if (!RTEST(rb_autoload_load(klass, id))) break;
-		continue;
-	    }
-	    return result;
-	}
-	cbase = cbase->nd_next;
-    }
-    return rb_const_get(ruby_cbase, id);
+    return rb_const_get_fallback(ruby_cbase, id, ruby_cref->nd_next);
 }
 
 static VALUE