[svn:parrot] r43022 - branches/context_unify3/src/call

bacek at svn.parrot.org bacek at svn.parrot.org
Sat Dec 12 20:20:01 UTC 2009


Author: bacek
Date: Sat Dec 12 20:20:00 2009
New Revision: 43022
URL: https://trac.parrot.org/parrot/changeset/43022

Log:
clone_key_arg can accept NULL

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

Modified: branches/context_unify3/src/call/args.c
==============================================================================
--- branches/context_unify3/src/call/args.c	Sat Dec 12 19:51:25 2009	(r43021)
+++ branches/context_unify3/src/call/args.c	Sat Dec 12 20:20:00 2009	(r43022)
@@ -88,9 +88,8 @@
         FUNC_MODIFIES(*results);
 
 PARROT_CAN_RETURN_NULL
-static PMC* clone_key_arg(PARROT_INTERP, ARGIN(PMC *key))
-        __attribute__nonnull__(1)
-        __attribute__nonnull__(2);
+static PMC* clone_key_arg(PARROT_INTERP, ARGIN_NULLOK(PMC *key))
+        __attribute__nonnull__(1);
 
 static void csr_fill_integer(PARROT_INTERP,
     ARGIN(PMC *self),
@@ -408,8 +407,7 @@
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(results))
 #define ASSERT_ARGS_clone_key_arg __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
-       PARROT_ASSERT_ARG(interp) \
-    , PARROT_ASSERT_ARG(key))
+       PARROT_ASSERT_ARG(interp))
 #define ASSERT_ARGS_csr_fill_integer __attribute__unused__ int _ASSERT_ARGS_CHECK = (\
        PARROT_ASSERT_ARG(interp) \
     , PARROT_ASSERT_ARG(self))
@@ -2805,7 +2803,7 @@
 
 PARROT_CAN_RETURN_NULL
 static PMC*
-clone_key_arg(PARROT_INTERP, ARGIN(PMC *key))
+clone_key_arg(PARROT_INTERP, ARGIN_NULLOK(PMC *key))
 {
     ASSERT_ARGS(clone_key_arg)
     PMC *t;


More information about the parrot-commits mailing list