summaryrefslogtreecommitdiff
path: root/class.c
diff options
context:
space:
mode:
authornobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2003-12-21 08:29:06 +0000
committernobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2003-12-21 08:29:06 +0000
commit7c34e359a1d8e1affabeaa43377cf49f09933dfd (patch)
tree8a5568fbc4fe82c986a8c65f0cee8d5ae39c9817 /class.c
parent3e67076db01cbc53486e51f4b455220c9e4a3890 (diff)
* 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
Diffstat (limited to 'class.c')
-rw-r--r--class.c13
1 files changed, 13 insertions, 0 deletions
diff --git a/class.c b/class.c
index 666548d..29fe34a 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;