Use __attribute__((unused)) to silence -Wall on unused ax.

p4raw-id: //depot/perl@10549

3 files changed, 10 insertions, 8 deletions

diff --git a/XSUB.h b/XSUB.h
index cfcad5d595..13c5ea9f37 100644
--- a/XSUB.h
+++ b/XSUB.h
@@ -53,9 +53,12 @@ handled automatically by C<xsubpp>.
 #  define XS(name) void name(pTHXo_ CV* cv)
 #endif
 
+/* gcc -Wall: if an xsub has no arguments and PPCODE is used
+ * and none of ST, XSRETURN or XSprePUSH macros are used
+ * then `ax' (setup by dXSARGS) is unused. */
 #define dXSARGS				\
 	dSP; dMARK;			\
-	I32 ax = mark - PL_stack_base + 1;	\
+	I32 ax __attribute__((unused)) = mark - PL_stack_base + 1;	\
 	I32 items = sp - mark
 
 #define dXSTARG SV * targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
diff --git a/ext/DB_File/DB_File.xs b/ext/DB_File/DB_File.xs
index 4942e25578..d6d0e9ee05 100644
--- a/ext/DB_File/DB_File.xs
+++ b/ext/DB_File/DB_File.xs
@@ -136,6 +136,12 @@
  * boo, hiss. */
 #undef  dNOOP
 #define dNOOP extern int Perl___notused
+/* Ditto for dXSARGS. */
+#undef  dXSARGS
+#define dXSARGS				\
+	dSP; dMARK;			\
+	I32 ax = mark - PL_stack_base + 1;	\
+	I32 items = sp - mark
 
 #endif
 
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index 7f71234f33..cadbf5c5c2 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -1220,13 +1220,6 @@ EOF
 #	Perl_croak(aTHX_ "Usage: $pname($report_args)");
 EOF
 
-    #-Wall: if an xsub has no arguments and PPCODE is used
-    #none of ST, XSRETURN or XSprePUSH macros are used
-    #hence `ax' (setup by dXSARGS) is unused
-    print Q<<"EOF" if $PPCODE and $num_args == 0;
-#   if (0) ax = ax; /* -Wall */
-EOF
-
     print Q<<"EOF" if $PPCODE;
 #    SP -= items;
 EOF