From 349b520e234d80b6e0b5e71ce38de85721a7d943 Mon Sep 17 00:00:00 2001
From: Doug MacEachern <dougm@covalent.net>
Date: Wed, 13 Jun 2001 03:02:16 -0700
Subject: Re: ext/ + -Wall Message-ID:
 <Pine.LNX.4.21.0106130959050.24181-100000@mako.covalent.net>

p4raw-id: //depot/perl@10566
---
 lib/ExtUtils/xsubpp | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lib/ExtUtils/xsubpp')

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index cadbf5c5c2..bc4d6ae916 100755
--- a/lib/ExtUtils/xsubpp
+++ b/lib/ExtUtils/xsubpp
@@ -1218,6 +1218,15 @@ EOF
       { print Q<<"EOF" if $cond }
 #    if ($cond)
 #	Perl_croak(aTHX_ "Usage: $pname($report_args)");
+EOF
+
+    #gcc -Wall: if an xsub has no arguments and PPCODE is used
+    #it is likely none of ST, XSRETURN or XSprePUSH macros are used
+    #hence `ax' (setup by dXSARGS) is unused
+    #XXX: could breakup the dXSARGS; into dSP;dMARK;dITEMS
+    #but such a move could break third-party extensions
+    print Q<<"EOF" if $PPCODE and $num_args == 0;
+#   PERL_UNUSED_VAR(ax); /* -Wall */
 EOF
 
     print Q<<"EOF" if $PPCODE;
-- 
cgit v1.2.1