develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35743 - trunk/src

From:
bernhard
Date:
January 19, 2009 03:27
Subject:
[svn:parrot] r35743 - trunk/src
Message ID:
20090119112728.E6ADACB9AE@x12.develooper.com
Author: bernhard
Date: Mon Jan 19 03:27:28 2009
New Revision: 35743

Modified:
   trunk/src/packfile.c

Log:
[codingstd] Move ASSERT_ARGS(sub_pragma) to top of function

Modified: trunk/src/packfile.c
==============================================================================
--- trunk/src/packfile.c	(original)
+++ trunk/src/packfile.c	Mon Jan 19 03:27:28 2009
@@ -559,6 +559,8 @@
 static int
 sub_pragma(PARROT_INTERP, pbc_action_enum_t action, ARGIN(const PMC *sub_pmc))
 {
+    ASSERT_ARGS(sub_pragma)
+
     /* Note: the const casting is only needed because of the
      * internal details of the Sub_comp macros.
      * The assumption is that the TEST versions are in fact const,
@@ -567,7 +569,6 @@
      * a refactor of the macros will be a cleaner solution.
      */
     DECL_CONST_CAST;
-    ASSERT_ARGS(sub_pragma)
     int todo    = 0;
     int pragmas = PObj_get_FLAGS(sub_pmc) &  SUB_FLAG_PF_MASK
                                           & ~SUB_FLAG_IS_OUTER;



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