[svn:parrot] r36709 - branches/rename_pccinvoke/src/pmc
whiteknight at svn.parrot.org
whiteknight at svn.parrot.org
Sat Feb 14 00:56:30 UTC 2009
Author: whiteknight
Date: Sat Feb 14 00:56:28 2009
New Revision: 36709
URL: https://trac.parrot.org/parrot/changeset/36709
Log:
[rename_pccinvoke] rename all instances of Parrot_PCCINVOKE from src/pmc/*. All tests pass
Modified:
branches/rename_pccinvoke/src/pmc/array.pmc
branches/rename_pccinvoke/src/pmc/class.pmc
branches/rename_pccinvoke/src/pmc/complex.pmc
branches/rename_pccinvoke/src/pmc/env.pmc
branches/rename_pccinvoke/src/pmc/fixedpmcarray.pmc
branches/rename_pccinvoke/src/pmc/fixedstringarray.pmc
branches/rename_pccinvoke/src/pmc/iterator.pmc
branches/rename_pccinvoke/src/pmc/pmcproxy.pmc
branches/rename_pccinvoke/src/pmc/role.pmc
branches/rename_pccinvoke/src/pmc/string.pmc
Modified: branches/rename_pccinvoke/src/pmc/array.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/array.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/array.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -1187,7 +1187,7 @@
if (f == 0) {
STRING *name = CONST_STRING(interp, "set_key");
PMC * const iter = pmc_new_init(INTERP, enum_class_Iterator, SELF);
- Parrot_PCCINVOKE(interp, iter, name, "P->", key);
+ Parrot_pcc_invoke_method_from_c_args(interp, iter, name, "P->", key);
return iter;
}
@@ -1199,7 +1199,7 @@
STRING *name = CONST_STRING(interp, "set_key");
PMC * const iter = pmc_new_init(INTERP, enum_class_Iterator, SELF);
PMC * const key = pmc_new(INTERP, enum_class_Key);
- Parrot_PCCINVOKE(interp, iter, name, "P->", key);
+ Parrot_pcc_invoke_method_from_c_args(interp, iter, name, "P->", key);
PObj_get_FLAGS(key) |= KEY_integer_FLAG;
PMC_int_val(key) = 0;
Modified: branches/rename_pccinvoke/src/pmc/class.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/class.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/class.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -234,12 +234,12 @@
/* If we were attached to a namespace and are now attached to a new one,
* need to unset ourselves in the old namespace. */
if (!PMC_IS_NULL(old_ns) && _class->_namespace != old_ns)
- Parrot_PCCINVOKE(interp, old_ns, CONST_STRING(interp, "set_class"), "P->", PMCNULL);
+ Parrot_pcc_invoke_method_from_c_args(interp, old_ns, CONST_STRING(interp, "set_class"), "P->", PMCNULL);
/* Link namespace to this class, if there is one. */
if (!PMC_IS_NULL(_class->_namespace)) {
STRING * const set_class_str = CONST_STRING(interp, "set_class");
- Parrot_PCCINVOKE(interp, _class->_namespace, set_class_str, "P->", self);
+ Parrot_pcc_invoke_method_from_c_args(interp, _class->_namespace, set_class_str, "P->", self);
}
/* Initialize resolve_method. */
Modified: branches/rename_pccinvoke/src/pmc/complex.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/complex.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/complex.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -1871,13 +1871,13 @@
dest = pmc_new(INTERP, VTABLE_type(INTERP, SELF));
- Parrot_PCCINVOKE(interp, SELF, CONST_STRING(interp, "ln"),
+ Parrot_pcc_invoke_method_from_c_args(interp, SELF, CONST_STRING(interp, "ln"),
"->P", &log);
l = Parrot_Complex_multi_multiply_Complex_PMC(INTERP,
log, value, l);
- Parrot_PCCINVOKE(interp, l, CONST_STRING(interp, "exp"),
+ Parrot_pcc_invoke_method_from_c_args(interp, l, CONST_STRING(interp, "exp"),
"->P", &dest);
return dest;
@@ -1889,10 +1889,10 @@
dest = pmc_new(INTERP, VTABLE_type(INTERP, SELF));
- Parrot_PCCINVOKE(interp, SELF, CONST_STRING(interp, "ln"),
+ Parrot_pcc_invoke_method_from_c_args(interp, SELF, CONST_STRING(interp, "ln"),
"->P", &log);
l = Parrot_Complex_multi_multiply_DEFAULT_PMC(INTERP, log, value, l);
- Parrot_PCCINVOKE(interp, l, CONST_STRING(interp, "exp"),
+ Parrot_pcc_invoke_method_from_c_args(interp, l, CONST_STRING(interp, "exp"),
"->P", &dest);
return dest;
Modified: branches/rename_pccinvoke/src/pmc/env.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/env.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/env.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -77,7 +77,7 @@
PMC *iter = pmc_new_init(interp, enum_class_Iterator, SELF);
PMC *key = pmc_new(interp, enum_class_Key);
- Parrot_PCCINVOKE(interp, iter, name, "P->", key);
+ Parrot_pcc_invoke_method_from_c_args(interp, iter, name, "P->", key);
PObj_get_FLAGS(key) |= KEY_integer_FLAG;
PMC_int_val(key) = 0;
Modified: branches/rename_pccinvoke/src/pmc/fixedpmcarray.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/fixedpmcarray.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/fixedpmcarray.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -648,7 +648,7 @@
if (f == 0) {
STRING *name = CONST_STRING(interp, "set_key");
PMC * const iter = pmc_new_init(INTERP, enum_class_Iterator, SELF);
- Parrot_PCCINVOKE(interp, iter, name, "P->", key);
+ Parrot_pcc_invoke_method_from_c_args(interp, iter, name, "P->", key);
return iter;
}
@@ -661,7 +661,7 @@
PMC * const iter = pmc_new_init(INTERP, enum_class_Iterator, SELF);
PMC * const key = pmc_new(INTERP, enum_class_Key);
- Parrot_PCCINVOKE(interp, iter, name, "P->", key);
+ Parrot_pcc_invoke_method_from_c_args(interp, iter, name, "P->", key);
PObj_get_FLAGS(key) |= KEY_integer_FLAG;
PMC_int_val(key) = 0;
Modified: branches/rename_pccinvoke/src/pmc/fixedstringarray.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/fixedstringarray.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/fixedstringarray.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -165,7 +165,7 @@
PMC * const iter = pmc_new_init(INTERP, enum_class_Iterator, SELF);
PMC * const key = pmc_new(INTERP, enum_class_Key);
- Parrot_PCCINVOKE(interp, iter, name, "P->", key);
+ Parrot_pcc_invoke_method_from_c_args(interp, iter, name, "P->", key);
PObj_get_FLAGS(key) |= KEY_integer_FLAG;
VTABLE_set_integer_native(INTERP, key,
VTABLE_get_bool(INTERP, SELF) ? 0 : -1);
Modified: branches/rename_pccinvoke/src/pmc/iterator.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/iterator.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/iterator.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -144,7 +144,7 @@
PMC * const key = (PMC *)PMC_struct_val(SELF);
PMC * const res = pmc_new_init(INTERP, SELF->vtable->base_type,
SELF.get_pmc());
- Parrot_PCCINVOKE(interp, res, name, "P->", VTABLE_clone(interp, key));
+ Parrot_pcc_invoke_method_from_c_args(interp, res, name, "P->", VTABLE_clone(interp, key));
return res;
}
Modified: branches/rename_pccinvoke/src/pmc/pmcproxy.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/pmcproxy.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/pmcproxy.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -154,7 +154,7 @@
/* Link the proxy and the namespace, caching the proxy object for
* later retrieval on class lookup. */
- Parrot_PCCINVOKE(interp, proxy_info->_namespace, CONST_STRING(interp, "set_class"), "P->", SELF);
+ Parrot_pcc_invoke_method_from_c_args(interp, proxy_info->_namespace, CONST_STRING(interp, "set_class"), "P->", SELF);
/* Extract any methods from the namespace */
Parrot_oo_extract_methods_from_namespace(interp, SELF,
Modified: branches/rename_pccinvoke/src/pmc/role.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/role.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/role.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -128,13 +128,13 @@
* need to unset ourselves in the old namespace. */
if (!PMC_IS_NULL(old_ns) && role->_namespace != old_ns) {
STRING * const set_class_str = CONST_STRING(interp, "set_class");
- Parrot_PCCINVOKE(interp, old_ns, set_class_str, "P->", PMCNULL);
+ Parrot_pcc_invoke_method_from_c_args(interp, old_ns, set_class_str, "P->", PMCNULL);
}
/* Link namespace to this role, if there is one. */
if (!PMC_IS_NULL(role->_namespace)) {
STRING * const set_class_str = CONST_STRING(interp, "set_class");
- Parrot_PCCINVOKE(interp, role->_namespace, set_class_str, "P->", self);
+ Parrot_pcc_invoke_method_from_c_args(interp, role->_namespace, set_class_str, "P->", self);
}
/* Initialize roles, if we have any. */
Modified: branches/rename_pccinvoke/src/pmc/string.pmc
==============================================================================
--- branches/rename_pccinvoke/src/pmc/string.pmc Sat Feb 14 00:52:45 2009 (r36708)
+++ branches/rename_pccinvoke/src/pmc/string.pmc Sat Feb 14 00:56:28 2009 (r36709)
@@ -753,7 +753,7 @@
if (f == 0) {
STRING *name = CONST_STRING(interp, "set_key");
PMC * const iter = pmc_new_init(INTERP, enum_class_Iterator, SELF);
- Parrot_PCCINVOKE(interp, iter, name, "P->", key);
+ Parrot_pcc_invoke_method_from_c_args(interp, iter, name, "P->", key);
return iter;
}
@@ -766,7 +766,7 @@
PMC * const iter = pmc_new_init(INTERP, enum_class_Iterator, SELF);
PMC * const key = pmc_new(INTERP, enum_class_Key);
- Parrot_PCCINVOKE(interp, iter, name, "P->", key);
+ Parrot_pcc_invoke_method_from_c_args(interp, iter, name, "P->", key);
PObj_get_FLAGS(key) |= KEY_integer_FLAG;
PMC_int_val(key) = 0;
More information about the parrot-commits
mailing list