develooper Front page | perl.cvs.parrot | Postings from December 2008

[svn:parrot] r34726 - trunk/compilers/imcc

From:
infinoid
Date:
December 31, 2008 16:20
Subject:
[svn:parrot] r34726 - trunk/compilers/imcc
Message ID:
20090101002038.93D51CB9FA@x12.develooper.com
Author: infinoid
Date: Wed Dec 31 16:20:37 2008
New Revision: 34726

Modified:
   trunk/compilers/imcc/pcc.c

Log:
[pcc] insert_tail_call's "meth" call is NULLOK.
(Found by the headerizer NONNULL assert() patch, see Trac #105.)

Modified: trunk/compilers/imcc/pcc.c
==============================================================================
--- trunk/compilers/imcc/pcc.c	(original)
+++ trunk/compilers/imcc/pcc.c	Wed Dec 31 16:20:37 2008
@@ -39,12 +39,11 @@
     ARGIN(IMC_Unit *unit),
     ARGMOD(Instruction *ins),
     ARGMOD(SymReg *sub),
-    ARGIN(SymReg *meth))
+    ARGIN_NULLOK(SymReg *meth))
         __attribute__nonnull__(1)
         __attribute__nonnull__(2)
         __attribute__nonnull__(3)
         __attribute__nonnull__(4)
-        __attribute__nonnull__(5)
         FUNC_MODIFIES(*ins)
         FUNC_MODIFIES(*sub);
 
@@ -116,8 +115,7 @@
 #define ASSERT_ARGS_insert_tail_call assert(interp); \
                                      assert(unit); \
                                      assert(ins); \
-                                     assert(sub); \
-                                     assert(meth);
+                                     assert(sub);
 #define ASSERT_ARGS_insINS assert(interp); \
                            assert(unit); \
                            assert(ins); \
@@ -681,7 +679,7 @@
 
 static void
 insert_tail_call(PARROT_INTERP, ARGIN(IMC_Unit *unit), ARGMOD(Instruction *ins),
-        ARGMOD(SymReg *sub), ARGIN(SymReg *meth))
+        ARGMOD(SymReg *sub), ARGIN_NULLOK(SymReg *meth))
 {
     SymReg *regs[3];
 



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About