[svn:ponie] r403 - trunk/src/pmc

Author: nnunley
Date: Sun Jul 30 10:09:53 2006
New Revision: 403

Modified:
   trunk/src/pmc/perl5base.pmc
   trunk/src/pmc/perl5cargo_cult.pmc

Log:
Slight modifications to get the ponie PMCs to compile with
parrot trunk (parrot version > 0.4.5)

Modified: trunk/src/pmc/perl5base.pmc
==============================================================================
--- trunk/src/pmc/perl5base.pmc	(original)
+++ trunk/src/pmc/perl5base.pmc	Sun Jul 30 10:09:53 2006
@@ -33,7 +33,7 @@
         /* This may change the value of p5_type  */
         DYNSELF.set_pointer_keyed_int(Ponie_P_GET_UPGRADE, &info);
 
-        SELF->vtable = Parrot_base_vtables[PL_pmcname[info.p5_type]];
+        SELF->vtable = Parrot_get_vtable(INTERP, PL_pmcname[info.p5_type]);
         ((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags
             &= ~SVTYPEMASK;
         ((struct STRUCT_SV *)PMC_struct_val(SELF))->sv_flags

Modified: trunk/src/pmc/perl5cargo_cult.pmc
==============================================================================
--- trunk/src/pmc/perl5cargo_cult.pmc	(original)
+++ trunk/src/pmc/perl5cargo_cult.pmc	Sun Jul 30 10:09:53 2006
@@ -62,7 +62,7 @@
 #  define FREE_SV_DEBUG_FILE(sv)
 #endif
 
-pmclass Perl5cargo_cult dynpmc {
+pmclass Perl5cargo_cult dynpmc group perl5_group hll Perl5 {
 
     void init () {	
         SV *sv;
@@ -624,7 +624,7 @@
                     /* A downgrade upgrade.  */
                     sv_clear_backend(rv, 0);
                     SvANY_set(rv, 0);
-                    SELF->vtable = Parrot_base_vtables[PL_pmcname[SVt_NULL]];
+                    SELF->vtable = Parrot_get_vtable(INTERP, PL_pmcname[SVt_NULL]);
                     PERL5_FLAGS(SELF) = 0;
                 }
                 
@@ -747,7 +747,7 @@
                 PObj_active_destroy_CLEAR(SELF);
 
                 SELF->vtable
-                    = Parrot_base_vtables[PL_pmcname[Ponie_PMC_Perl5Pining]];
+                    = Parrot_get_vtable(INTERP, PL_pmcname[Ponie_PMC_Perl5Pining]);
 
                 /* Collusion with the internals of the Perl5Pining PMC.
                    Not convinced that I want to give it a public way to set

• [svn:ponie] r403 - trunk/src/pmc by nnunley