akr	2009-11-19 02:52:12 +0900 (Thu, 19 Nov 2009)

  New Revision: 25849

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=25849

  Log:
    * vm_eval.c (rb_search_method_entry): show the type of the hidden
      object.
      (rb_type_str): new function for above.

  Modified files:
    trunk/ChangeLog
    trunk/vm_eval.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 25848)
+++ ChangeLog	(revision 25849)
@@ -1,3 +1,9 @@
+Thu Nov 19 02:50:47 2009  Tanaka Akira  <akr@f...>
+
+	* vm_eval.c (rb_search_method_entry): show the type of the hidden
+	  object.
+	  (rb_type_str): new function for above.
+	  
 Thu Nov 19 00:47:09 2009  Tanaka Akira  <akr@f...>
 
 	* io.c (MORE_CHAR_SUSPENDED): renamed from MORE_CHAR_CBUF_FULL.
Index: vm_eval.c
===================================================================
--- vm_eval.c	(revision 25848)
+++ vm_eval.c	(revision 25849)
@@ -295,18 +295,64 @@
     return check_funcall(recv, mid, argc, argv);
 }
 
+static const char *
+rb_type_str(enum ruby_value_type type)
+{
+#define type_case(t) case t: return #t;
+    switch (type) {
+      type_case(T_NONE)
+      type_case(T_OBJECT)
+      type_case(T_CLASS)
+      type_case(T_MODULE)
+      type_case(T_FLOAT)
+      type_case(T_STRING)
+      type_case(T_REGEXP)
+      type_case(T_ARRAY)
+      type_case(T_HASH)
+      type_case(T_STRUCT)
+      type_case(T_BIGNUM)
+      type_case(T_FILE)
+      type_case(T_DATA)
+      type_case(T_MATCH)
+      type_case(T_COMPLEX)
+      type_case(T_RATIONAL)
+      type_case(T_NIL)
+      type_case(T_TRUE)
+      type_case(T_FALSE)
+      type_case(T_SYMBOL)
+      type_case(T_FIXNUM)
+      type_case(T_UNDEF)
+      type_case(T_NODE)
+      type_case(T_ICLASS)
+      type_case(T_ZOMBIE)
+      default: return NULL;
+    }
+#undef type_case
+}
+
 static inline rb_method_entry_t *
 rb_search_method_entry(VALUE recv, ID mid)
 {
     VALUE klass = CLASS_OF(recv);
 
     if (!klass) {
-        const char *adj = "terminated";
-        if (!IMMEDIATE_P(recv) && RBASIC(recv)->flags != 0)
-            adj = "hidden";
-	rb_raise(rb_eNotImpError,
-		 "method `%s' called on %s object (%p)",
-		 rb_id2name(mid), adj, (void *)recv);
+        if (!IMMEDIATE_P(recv) && RBASIC(recv)->flags != 0) {
+            int type = BUILTIN_TYPE(recv);
+            const char *typestr = rb_type_str(type);
+            if (typestr)
+                rb_raise(rb_eNotImpError,
+                         "method `%s' called on hidden %s object (%p)",
+                         rb_id2name(mid), typestr, (void *)recv);
+            else
+                rb_raise(rb_eNotImpError,
+                         "method `%s' called on hidden T_???(0x%02x) object (%p)",
+                         rb_id2name(mid), type, (void *)recv);
+        }
+        else {
+            rb_raise(rb_eNotImpError,
+                     "method `%s' called on terminated object (%p)",
+                     rb_id2name(mid), (void *)recv);
+        }
     }
     return rb_method_entry(klass, mid);
 }

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/