[svn:parrot] r40722 - in branches/pcc_arg_unify: src/call t/op

[tene at svn.parrot.org]

Author: tene
Date: Sat Aug 22 21:22:42 2009
New Revision: 40722
URL: https://trac.parrot.org/parrot/changeset/40722

Log:
[pcc] Correct order of operations on a conditional and update some test messages

Modified:
   branches/pcc_arg_unify/src/call/pcc.c
   branches/pcc_arg_unify/t/op/calling.t

Modified: branches/pcc_arg_unify/src/call/pcc.c
==============================================================================
--- branches/pcc_arg_unify/src/call/pcc.c	Sat Aug 22 20:58:12 2009	(r40721)
+++ branches/pcc_arg_unify/src/call/pcc.c	Sat Aug 22 21:22:42 2009	(r40722)
@@ -966,7 +966,7 @@
 
         /* No more positional arguments available to assign */
         if (positional_index >= positional_elements) {
-            if (!param_flags & PARROT_ARG_OPTIONAL)
+            if (!(param_flags & PARROT_ARG_OPTIONAL))
                 Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
                         "too few positional arguments: %d passed, %d (or more) expected",
                         positional_elements, param_index + 1);

Modified: branches/pcc_arg_unify/t/op/calling.t
==============================================================================
--- branches/pcc_arg_unify/t/op/calling.t	Sat Aug 22 20:58:12 2009	(r40721)
+++ branches/pcc_arg_unify/t/op/calling.t	Sat Aug 22 21:22:42 2009	(r40722)
@@ -447,7 +447,7 @@
     print $P0
 .end
 CODE
-/too few arguments passed/
+/too few positional arguments/
 OUTPUT
 
 pir_output_like(
@@ -1242,7 +1242,7 @@
     $P35 = _fn1(1, $P34 :flat)
 .end
 CODE
-/too few arguments passed \(3\) - 4 params expected/
+/too few positional arguments: 3 passed, 4 \(or more\) expected/
 OUTPUT
 
 pir_output_is( <<'CODE', <<'OUTPUT', "tailcall to NCI" );