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

[bacek at svn.parrot.org]

Author: bacek
Date: Sat Oct 17 23:25:37 2009
New Revision: 41913
URL: https://trac.parrot.org/parrot/changeset/41913

Log:
Fix handling flags in parse_signature_string

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 17 23:03:37 2009	(r41912)
+++ branches/pcc_reapply/src/call/args.c	Sat Oct 17 23:25:37 2009	(r41913)
@@ -2239,6 +2239,14 @@
         if (*x == '-') {
             /* skip '>' */
             x++;
+
+            /* Starting a new argument, so store the previous argument,
+             * if there was one. */
+            if (set) {
+                VTABLE_push_integer(interp, current_array, flags);
+                set = 0;
+            }
+
             /* Switch to the return argument flags. */
             if (PMC_IS_NULL(*return_flags))
                 *return_flags = pmc_new(interp, enum_class_ResizableIntegerArray);