fix order of args in trampoline

jnthn · Sep 8, 2010 · 7f0ac55 · 7f0ac55
1 parent f978c3b
commit 7f0ac55
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/pmc/bkmarshal.c b/src/pmc/bkmarshal.c
@@ -316,11 +316,11 @@ XS(blizkost_callable_trampoline)
     SP -= items;
     PUTBACK;
 
-    args = Parrot_pmc_new(nexus->parrot_interp, enum_class_ResizablePMCArray);
+    args = Parrot_pmc_new_init_int(nexus->parrot_interp, enum_class_ResizablePMCArray, items);
     for (i = 0; i < items; i++) {
         SV *svarg = ST(i);
         PMC *pmcarg = blizkost_wrap_sv(nexus, svarg);
-        VTABLE_unshift_pmc(nexus->parrot_interp, args, pmcarg);
+        VTABLE_set_pmc_keyed_int(nexus->parrot_interp, args, i, pmcarg);
     }
 
     Parrot_pcc_invoke_sub_from_c_args(nexus->parrot_interp, callable,