[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);