[svn:parrot] r38296 - branches/pmc_pct/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Fri Apr 24 12:50:23 2009
New Revision: 38296
URL: https://trac.parrot.org/parrot/changeset/38296

Log:
[cage] Remove dead "subclass" function, add more VTABLE to class.pmc

Modified:
   branches/pmc_pct/src/pmc/class.pmc

Modified: branches/pmc_pct/src/pmc/class.pmc
==============================================================================
--- branches/pmc_pct/src/pmc/class.pmc	Fri Apr 24 12:49:41 2009	(r38295)
+++ branches/pmc_pct/src/pmc/class.pmc	Fri Apr 24 12:50:23 2009	(r38296)
@@ -533,36 +533,6 @@
 
 /*
 
-=item C<PMC *subclass(PMC *name)>
-
-Creates a subclass, optionally with a given C<name>.
-
-=cut
-
-*/
-
-    PMC *subclass(PMC *name) {
-        PMC *child_class;
-
-        /* Create a new class. Set the classname, if we have one. */
-        if (PMC_IS_NULL(name)) {
-            child_class = pmc_new(interp, enum_class_Class);
-        }
-        else {
-            PMC * const naming_hash = pmc_new(interp, enum_class_Hash);
-
-            VTABLE_set_pmc_keyed_str(interp, naming_hash, CONST_STRING(interp, "name"), name);
-            child_class = pmc_new_init(interp, enum_class_Class, naming_hash);
-        }
-
-        /* Make the new class a subclass of the current class */
-        VTABLE_add_parent(interp, child_class, SELF);
-
-        return child_class;
-    }
-
-/*
-
 =item C<void destroy()>
 
 Frees the memory associated with the class's underlying struct.
@@ -1357,7 +1327,7 @@
 =cut
 
 */
-    INTVAL does(STRING *role_name) {
+    VTABLE INTVAL does(STRING *role_name) {
         Parrot_Class_attributes * const _class    = PARROT_CLASS(SELF);
         PMC          * const role_list = _class->roles;
         INTVAL i, count;
@@ -1398,7 +1368,7 @@
 =cut
 
 */
-    INTVAL does_pmc(PMC *role) {
+    VTABLE INTVAL does_pmc(PMC *role) {
         Parrot_Class_attributes * const _class    = PARROT_CLASS(SELF);
         PMC * const role_list          = _class->roles;
         INTVAL i, role_count, count;