diff options
-rwxr-xr-x | lib/ExtUtils/xsubpp | 8 | ||||
-rw-r--r-- | perl.h | 4 |
2 files changed, 11 insertions, 1 deletions
diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp index bb8f3aab04..abb110b972 100755 --- a/lib/ExtUtils/xsubpp +++ b/lib/ExtUtils/xsubpp @@ -1183,6 +1183,7 @@ while (fetch_para()) { # print function header print Q<<"EOF"; +#XS(XS_${Full_func_name}); /* prototype to pass -Wmissing-prototypes */ #XS(XS_${Full_func_name}) #[[ # dXSARGS; @@ -1502,14 +1503,19 @@ print Q<<"EOF"; EOF print Q<<"EOF"; +#XS(boot_$Module_cname); /* prototype to pass -Wmissing-prototypes */ #XS(boot_$Module_cname) EOF print Q<<"EOF"; #[[ # dXSARGS; +EOF + +#-Wall: if there is no $Full_func_name there are no xsubs in this .xs +#so `file' is unused +print Q<<"EOF" if $Full_func_name; # char* file = __FILE__; -# EOF print Q<<"EOF" if $WantVersionChk ; @@ -20,7 +20,11 @@ #define USE_STDIO #endif /* PERL_FOR_X2P */ +#ifdef VOIDUSED +# undef VOIDUSED +#endif #define VOIDUSED 1 + #include "config.h" #if defined(USE_ITHREADS) && defined(USE_5005THREADS) |