From 7c34e359a1d8e1affabeaa43377cf49f09933dfd Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 21 Dec 2003 08:29:06 +0000
Subject: * class.c (rb_check_inheritable): new function.  [ruby-dev:22316]

* intern.h: add prototype.

* eval.c (superclass): use rb_check_inheritable().

* object.c (rb_class_initialize): check argument validity.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5236 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 class.c | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'class.c')

diff --git a/class.c b/class.c
index 666548dde3..29fe34a915 100644
--- a/class.c
+++ b/class.c
@@ -178,6 +178,19 @@ rb_define_class_id(id, super)
     return klass;
 }
 
+void
+rb_check_inheritable(super)
+    VALUE super;
+{
+    if (TYPE(super) != T_CLASS) {
+	rb_raise(rb_eTypeError, "superclass must be a Class (%s given)",
+		 rb_obj_classname(super));
+    }
+    if (RBASIC(super)->flags & FL_SINGLETON) {
+	rb_raise(rb_eTypeError, "can't make subclass of virtual class");
+    }
+}
+
 VALUE
 rb_class_inherited(super, klass)
     VALUE super, klass;
-- 
cgit v1.2.3