develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r33517 - trunk/src/pmc

From:
jonathan
Date:
December 5, 2008 10:36
Subject:
[svn:parrot] r33517 - trunk/src/pmc
Message ID:
20081205183644.13567CB9AF@x12.develooper.com
Author: jonathan
Date: Fri Dec  5 10:36:43 2008
New Revision: 33517

Modified:
   trunk/src/pmc/class.pmc

Log:
[core] Remove some effectively dead code. Since PMCProxy was made to inherit from Class, then this code would never do anything for it, plus this original approach was changed.

Modified: trunk/src/pmc/class.pmc
==============================================================================
--- trunk/src/pmc/class.pmc	(original)
+++ trunk/src/pmc/class.pmc	Fri Dec  5 10:36:43 2008
@@ -1138,30 +1138,6 @@
             }
         }
 
-        /* If we have parents that are out of this class universe, find them
-         * in the MRO and create instances of them. */
-        if (CLASS_has_alien_parents_TEST(SELF)) {
-            const INTVAL mro_length = VTABLE_elements(interp, _class->all_parents);
-            int i;
-
-            for (i = 0; i < mro_length; i++) {
-                PMC * const class_check = VTABLE_get_pmc_keyed_int(interp,
-                    _class->all_parents, i);
-
-                if (!VTABLE_isa(interp, class_check, class_str)) {
-                    /* From another universe. Create instance... */
-                    PMC * const parent_ins = VTABLE_instantiate(interp, class_check, PMCNULL);
-
-                    /* Associate it with this class as the real self. */
-                    parent_ins->real_self = object;
-
-                    /* ...and tack on end of the attribute store (after all the
-                     * slots for attributes). */
-                    VTABLE_push_pmc(interp, obj_guts->attrib_store, parent_ins);
-                }
-            }
-        }
-
         /* Check for overrides on the init or init_pmc vtable function and call
          * them if they exist */
         if (PMC_IS_NULL(init))



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About