[svn:parrot] r41808 - branches/pcc_reapply/src/call

tene at svn.parrot.org tene at svn.parrot.org
Sat Oct 10 21:46:03 UTC 2009


Author: tene
Date: Sat Oct 10 21:46:03 2009
New Revision: 41808
URL: https://trac.parrot.org/parrot/changeset/41808

Log:
[pcc] Get flags for optional results from the right sig

Modified:
   branches/pcc_reapply/src/call/args.c

Modified: branches/pcc_reapply/src/call/args.c
==============================================================================
--- branches/pcc_reapply/src/call/args.c	Sat Oct 10 21:32:25 2009	(r41807)
+++ branches/pcc_reapply/src/call/args.c	Sat Oct 10 21:46:03 2009	(r41808)
@@ -1414,7 +1414,7 @@
 
     /*
     Parrot_io_eprintf(interp,
-     "return_count: %d\nresult_count: %d\npositional_returns: %d\nreturn_sig: %S\nresult_sig: %S\n",
+     "return_count: %d\nresult_count: %d\npositional_returns: %d\nraw_sig: %S\nresult_sig: %S\n",
          return_count, result_count, positional_returns, VTABLE_get_repr(interp, raw_sig),
          VTABLE_get_repr(interp, result_sig));
     */
@@ -1612,7 +1612,7 @@
 
                 if (result_index + 1 < result_count) {
                     next_result_flags = VTABLE_get_integer_keyed_int(interp,
-                            raw_sig, result_index + 1);
+                            result_sig, result_index + 1);
                     if (next_result_flags & PARROT_ARG_OPT_FLAG) {
                         result_index++;
                         result_item = VTABLE_get_pmc_keyed_int(interp, result_list,


More information about the parrot-commits mailing list