[svn:mod_parrot] r652 - mod_parrot/trunk/src

[email protected] Mon, 20 Jul 2009 12:06:08 -0700 (PDT)
Newsgroups perl.cvs.mod_parrot
Message-ID <[email protected]>
Author: jhorwitz
Date: Mon Jul 20 12:06:07 2009
New Revision: 652

Modified:
   mod_parrot/trunk/src/mod_parrot.c
   mod_parrot/trunk/src/parrot_util.c

Log:
replace VTABLE_* functions with their Parrot_PMC_* counterparts


Modified: mod_parrot/trunk/src/mod_parrot.c
==============================================================================
--- mod_parrot/trunk/src/mod_parrot.c	(original)
+++ mod_parrot/trunk/src/mod_parrot.c	Mon Jul 20 12:06:07 2009
@@ -361,7 +361,7 @@
     ctx_class = Parrot_oo_get_class(interp, namespace);
     Parrot_unregister_pmc(interp, namespace);
 
-    ctx_pmc = VTABLE_instantiate(interp, ctx_class, PMCNULL);
+    ctx_pmc = Parrot_PMC_instantiate(interp, ctx_class, PMCNULL);
     Parrot_register_pmc(interp, ctx_pmc);
 
     if (!hll) hll = MODPARROT_DEFAULT_HLL;

Modified: mod_parrot/trunk/src/parrot_util.c
==============================================================================
--- mod_parrot/trunk/src/parrot_util.c	(original)
+++ mod_parrot/trunk/src/parrot_util.c	Mon Jul 20 12:06:07 2009
@@ -313,10 +313,10 @@
         Parrot_PMC_set_pmc_keyed_str(interp, init,
             Parrot_str_new(interp, init_key, strlen(init_key)),
                 pointer_pmc);
-        obj = VTABLE_instantiate(interp, _class, init);
+        obj = Parrot_PMC_instantiate(interp, _class, init);
     }
     else {
-        obj = VTABLE_instantiate(interp, _class, PMCNULL);
+        obj = Parrot_PMC_instantiate(interp, _class, PMCNULL);
     }
     Parrot_unregister_pmc(interp, init);
     Parrot_unregister_pmc(interp, _class);