[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