[svn:parrot] r48233 - in trunk/src: . interp

[NotFound at svn.parrot.org]

Author: NotFound
Date: Fri Jul 30 21:56:50 2010
New Revision: 48233
URL: https://trac.parrot.org/parrot/changeset/48233

Log:
replace Parrot_pcc_invoke_sub_from_c_args with Parrot_ext_call in several places

Modified:
   trunk/src/embed.c
   trunk/src/interp/inter_cb.c
   trunk/src/packfile.c
   trunk/src/scheduler.c
   trunk/src/thread.c
   trunk/src/utils.c

Modified: trunk/src/embed.c
==============================================================================
--- trunk/src/embed.c	Fri Jul 30 21:44:11 2010	(r48232)
+++ trunk/src/embed.c	Fri Jul 30 21:56:50 2010	(r48233)
@@ -808,7 +808,7 @@
     Parrot_pcc_set_sub(interp, CURRENT_CONTEXT(interp), NULL);
     Parrot_pcc_set_constants(interp, interp->ctx, interp->code->const_table->constants);
 
-    Parrot_pcc_invoke_sub_from_c_args(interp, main_sub, "P->", userargv);
+    Parrot_ext_call(interp, main_sub, "P->", userargv);
 }
 
 

Modified: trunk/src/interp/inter_cb.c
==============================================================================
--- trunk/src/interp/inter_cb.c	Fri Jul 30 21:44:11 2010	(r48232)
+++ trunk/src/interp/inter_cb.c	Fri Jul 30 21:56:50 2010	(r48233)
@@ -350,8 +350,7 @@
     pasm_sig[2] = '-';
     pasm_sig[3] = '>';  /* no return value supported yet */
     pasm_sig[4] = '\0';
-    Parrot_pcc_invoke_sub_from_c_args(interp, sub, pasm_sig,
-            user_data, param);
+    Parrot_ext_call(interp, sub, pasm_sig, user_data, param);
 }
 /*
 

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	Fri Jul 30 21:44:11 2010	(r48232)
+++ trunk/src/packfile.c	Fri Jul 30 21:56:50 2010	(r48233)
@@ -698,7 +698,7 @@
     Parrot_pcc_set_constants(interp, CURRENT_CONTEXT(interp),
             interp->code->const_table->constants);
 
-    Parrot_pcc_invoke_sub_from_c_args(interp, sub_pmc, "->P", &retval);
+    Parrot_ext_call(interp, sub_pmc, "->P", &retval);
     interp->run_core = old_core;
 
     return retval;

Modified: trunk/src/scheduler.c
==============================================================================
--- trunk/src/scheduler.c	Fri Jul 30 21:44:11 2010	(r48232)
+++ trunk/src/scheduler.c	Fri Jul 30 21:56:50 2010	(r48233)
@@ -141,8 +141,7 @@
                 PMC * const handler = Parrot_cx_find_handler_for_task(interp, task);
                 if (!PMC_IS_NULL(handler)) {
                     PMC * const handler_sub = VTABLE_get_attr_str(interp, handler, CONST_STRING(interp, "code"));
-                    Parrot_pcc_invoke_sub_from_c_args(interp, handler_sub,
-                            "PP->", handler, task);
+                    Parrot_ext_call(interp, handler_sub, "PP->", handler, task);
                 }
             }
             else {
@@ -952,8 +951,7 @@
                     Parrot_floatval_time());
 #endif
     if (!PMC_IS_NULL(timer_struct->codeblock)) {
-        Parrot_pcc_invoke_sub_from_c_args(interp,
-                timer_struct->codeblock, "->");
+        Parrot_ext_call(interp, timer_struct->codeblock, "->");
     }
 }
 

Modified: trunk/src/thread.c
==============================================================================
--- trunk/src/thread.c	Fri Jul 30 21:44:11 2010	(r48232)
+++ trunk/src/thread.c	Fri Jul 30 21:56:50 2010	(r48233)
@@ -515,7 +515,7 @@
         Parrot_ex_add_c_handler(interp, &jump_point);
         Parrot_unblock_GC_mark(interp);
         Parrot_unblock_GC_sweep(interp);
-        Parrot_pcc_invoke_sub_from_c_args(interp, sub_pmc, "Pf->P", sub_arg, &ret_val);
+        Parrot_ext_call(interp, sub_pmc, "Pf->P", sub_arg, &ret_val);
     }
 
     /* thread is finito */

Modified: trunk/src/utils.c
==============================================================================
--- trunk/src/utils.c	Fri Jul 30 21:44:11 2010	(r48232)
+++ trunk/src/utils.c	Fri Jul 30 21:56:50 2010	(r48233)
@@ -930,7 +930,7 @@
         return f(interp, a, b);
     }
 
-    Parrot_pcc_invoke_sub_from_c_args(interp, cmp, "PP->I", a, b, &result);
+    Parrot_ext_call(interp, cmp, "PP->I", a, b, &result);
     return result;
 }