From: Doug MacEachern <dougm@covalent.net>
Date: Mon, 1 Jan 2001 15:26:01 +0000 (-0800)
Subject: Re: [patch] static-ize XS()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=05ceb97ad3b738039a97213231d2b02440de54ac;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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