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

[tene at svn.parrot.org]

Author: tene
Date: Sun Oct 11 05:03:44 2009
New Revision: 41817
URL: https://trac.parrot.org/parrot/changeset/41817

Log:
[pcc] Fail when building a sig for a duplicate named parameter

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

Modified: branches/pcc_reapply/src/call/args.c
==============================================================================
--- branches/pcc_reapply/src/call/args.c	Sun Oct 11 04:23:00 2009	(r41816)
+++ branches/pcc_reapply/src/call/args.c	Sun Oct 11 05:03:44 2009	(r41817)
@@ -492,6 +492,11 @@
                 if (arg_flags & PARROT_ARG_NAME) {
                     string_sig = Parrot_str_append(interp, string_sig, CONST_STRING(interp, "n"));
                     arg_index++;
+                    if (VTABLE_exists_keyed_str(interp, call_object, string_value)) {
+                        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
+                                "duplicate named argument in call");
+
+                    }
                     extract_named_arg_from_op(interp, call_object, string_value,
                             raw_sig, raw_args, arg_index);
                 }