Fix arg guard. named_used_list can be NULL

parrot · Jan 7, 2011 · 779719a · 779719a
1 parent 214f47f
commit 779719a
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/src/call/args.c b/src/call/args.c
@@ -133,10 +133,9 @@ PARROT_COLD
 PARROT_DOES_NOT_RETURN
 static void named_argument_arity_error(PARROT_INTERP,
     int named_arg_count,
-    ARGMOD(Hash *named_used_list),
+    ARGMOD_NULLOK(Hash *named_used_list),
     ARGIN(PMC *named_arg_list))
         __attribute__nonnull__(1)
-        __attribute__nonnull__(3)
         __attribute__nonnull__(4)
         FUNC_MODIFIES(*named_used_list);
 
@@ -265,7 +264,6 @@ static STRING** string_param_from_op(PARROT_INTERP,
     , PARROT_ASSERT_ARG(raw_params))
 #define ASSERT_ARGS_named_argument_arity_error __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(named_used_list) \
     , PARROT_ASSERT_ARG(named_arg_list))
 #define ASSERT_ARGS_numval_constant_from_op __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
@@ -1168,7 +1166,7 @@ PARROT_COLD
 PARROT_DOES_NOT_RETURN
 static void
 named_argument_arity_error(PARROT_INTERP, int named_arg_count,
-        ARGMOD(Hash *named_used_list), ARGIN(PMC *named_arg_list))
+        ARGMOD_NULLOK(Hash *named_used_list), ARGIN(PMC *named_arg_list))
 {
     ASSERT_ARGS(named_argument_arity_error)
     INTVAL named_arg_index;