[svn:parrot] r48232 - in trunk: lib/Parrot/Pmc2c/PMC src/pmc

[NotFound at svn.parrot.org]

Author: NotFound
Date: Fri Jul 30 21:44:11 2010
New Revision: 48232
URL: https://trac.parrot.org/parrot/changeset/48232

Log:
replace Parrot_pcc_invoke_sub_from_c_args with Parrot_ext_call in PMC usages

Modified:
   trunk/lib/Parrot/Pmc2c/PMC/Object.pm
   trunk/src/pmc/class.pmc
   trunk/src/pmc/object.pmc

Modified: trunk/lib/Parrot/Pmc2c/PMC/Object.pm
==============================================================================
--- trunk/lib/Parrot/Pmc2c/PMC/Object.pm	Fri Jul 30 18:51:57 2010	(r48231)
+++ trunk/lib/Parrot/Pmc2c/PMC/Object.pm	Fri Jul 30 21:44:11 2010	(r48232)
@@ -70,7 +70,7 @@
 EOC
         $method_body_text .= "            $pcc_result_decl\n" if $pcc_result_decl ne '';
         $method_body_text .= <<"EOC";
-            Parrot_pcc_invoke_sub_from_c_args(interp, meth, "Pi$pcc_sig", _self$pcc_args);
+            Parrot_ext_call(interp, meth, "Pi$pcc_sig", _self$pcc_args);
             $pcc_return_stmt
         }
 EOC

Modified: trunk/src/pmc/class.pmc
==============================================================================
--- trunk/src/pmc/class.pmc	Fri Jul 30 18:51:57 2010	(r48231)
+++ trunk/src/pmc/class.pmc	Fri Jul 30 21:44:11 2010	(r48232)
@@ -458,7 +458,7 @@
 
         if (!PMC_IS_NULL(meth)) {
             /* preserve current_object */
-            Parrot_pcc_invoke_sub_from_c_args(interp, meth, "Pi->", object);
+            Parrot_ext_call(interp, meth, "Pi->", object);
         }
     }
 }
@@ -487,8 +487,7 @@
         meth = Parrot_oo_find_vtable_override_for_class(interp, parent, name);
 
         if (!PMC_IS_NULL(meth))
-            Parrot_pcc_invoke_sub_from_c_args(interp, meth,
-                    "PiP->", object, init);
+            Parrot_ext_call(interp, meth, "PiP->", object, init);
     }
 }
 

Modified: trunk/src/pmc/object.pmc
==============================================================================
--- trunk/src/pmc/object.pmc	Fri Jul 30 18:51:57 2010	(r48231)
+++ trunk/src/pmc/object.pmc	Fri Jul 30 21:44:11 2010	(r48232)
@@ -279,8 +279,7 @@
 
         if (!PMC_IS_NULL(method)) {
             STRING *result = NULL;
-            Parrot_pcc_invoke_sub_from_c_args(INTERP, method, "Pi->S",
-                    SELF, &result);
+            Parrot_ext_call(INTERP, method, "Pi->S", SELF, &result);
             return result;
         }
         else
@@ -329,8 +328,7 @@
 
         if (!PMC_IS_NULL(method)) {
             PMC *result = PMCNULL;
-            Parrot_pcc_invoke_sub_from_c_args(INTERP, method, "PiS->P",
-                    SELF, name, &result);
+            Parrot_ext_call(INTERP, method, "PiS->P", SELF, name, &result);
             return result;
         }
 
@@ -394,8 +392,7 @@
                 VTABLE_get_class(INTERP, SELF), vtable_meth_name);
 
         if (!PMC_IS_NULL(method)) {
-            Parrot_pcc_invoke_sub_from_c_args(INTERP, method, "PiSP->",
-                SELF, name, value);
+            Parrot_ext_call(INTERP, method, "PiSP->", SELF, name, value);
             return;
         }
 
@@ -478,8 +475,7 @@
 
                 if (!PMC_IS_NULL(method)) {
                     PMC *result = PMCNULL;
-                    Parrot_pcc_invoke_sub_from_c_args(INTERP, method,
-                            "PiS->P", SELF, name, &result);
+                    Parrot_ext_call(INTERP, method, "PiS->P", SELF, name, &result);
 
                     /* break out to the CACHE IF FOUND code */
                     method = result;
@@ -538,8 +534,7 @@
 
             if (!PMC_IS_NULL(meth)) {
                 INTVAL result;
-                Parrot_pcc_invoke_sub_from_c_args(INTERP, meth, "Pi->I",
-                     SELF, &result);
+                Parrot_ext_call(INTERP, meth, "Pi->I", SELF, &result);
                 return result;
 
             }
@@ -577,8 +572,7 @@
 
         if (!PMC_IS_NULL(method)) {
             PMC *result;
-            Parrot_pcc_invoke_sub_from_c_args(INTERP, method, "Pi->P",
-                    SELF, &result);
+            Parrot_ext_call(INTERP, method, "Pi->P", SELF, &result);
             return result;
         }
 
@@ -606,8 +600,7 @@
 
         if (!PMC_IS_NULL(method)) {
             PMC *result;
-            Parrot_pcc_invoke_sub_from_c_args(INTERP, method, "Pi->P",
-                    SELF, &result);
+            Parrot_ext_call(INTERP, method, "Pi->P", SELF, &result);
             return result;
         }
 
@@ -698,8 +691,7 @@
 
             if (!PMC_IS_NULL(method)) {
                 INTVAL result;
-                Parrot_pcc_invoke_sub_from_c_args(INTERP, method,
-                        "PiS->I", SELF, role_name, &result);
+                Parrot_ext_call(INTERP, method, "PiS->I", SELF, role_name, &result);
                 if (result)
                     return 1;
             }
@@ -826,8 +818,7 @@
 
         if (!PMC_IS_NULL(meth)) {
             PMC *result;
-            Parrot_pcc_invoke_sub_from_c_args(INTERP, meth, "Pi->P",
-                 SELF, &result);
+            Parrot_ext_call(INTERP, meth, "Pi->P", SELF, &result);
             return result;
         }
 
@@ -975,8 +966,7 @@
              Parrot_oo_find_vtable_override(INTERP, classobj, meth_name);
 
         if (!PMC_IS_NULL(method))
-            Parrot_pcc_invoke_sub_from_c_args(INTERP, method, "PiP->",
-                    SELF, type);
+            Parrot_ext_call(INTERP, method, "PiP->", SELF, type);
         else
             SUPER(type);
     }