Re: [patch] static-ize XS()

Message-ID: <Pine.LNX.4.10.10101011523560.3379-100000@mojo.covalent.net>

Provide prototypes for the XS functions.

p4raw-id: //depot/perl@8309

diff --git a/lib/ExtUtils/xsubpp b/lib/ExtUtils/xsubpp
index bb8f3aa..2093633 100755 (executable)
--- 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,6 +1503,7 @@ print Q<<"EOF";
 EOF
 
 print Q<<"EOF";
+#XS(boot_$Module_cname); /* prototype to pass -Wmissing-prototypes */
 #XS(boot_$Module_cname)
 EOF