From: Gisle Aas <gisle@aas.no>
Date: Sat, 5 Nov 2005 05:08:03 +0000 (-0800)
Subject: Missing static declarations
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f43a9a3142f71956ec256aa7b03ca89db65cbb0c;p=p5sagit%2Fp5-mst-13.2.git

Missing static declarations
Message-ID: <lracgj1bv0.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@26032
---

diff --git a/genpacksizetables.pl b/genpacksizetables.pl
index 5872e86..9dffc2c 100755
--- a/genpacksizetables.pl
+++ b/genpacksizetables.pl
@@ -38,7 +38,7 @@ sub make_tables {
                       $unpredictable, $nocsum, $size, $condition);
     }
 
-    my $text = "const packprops_t packprops[512] = {\n";
+    my $text = "STATIC const packprops_t packprops[512] = {\n";
     foreach my $arrayname (qw(normal shrieking)) {
         my $array = $arrays{$arrayname} ||
             die "No defined entries in $arrayname";
diff --git a/pp_pack.c b/pp_pack.c
index 24faef5..b8e94a1 100644
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -369,7 +369,7 @@ S_mul128(pTHX_ SV *sv, U8 m)
 typedef U8 packprops_t;
 #if 'J'-'I' == 1
 /* ASCII */
-const packprops_t packprops[512] = {
+STATIC const packprops_t packprops[512] = {
     /* normal */
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
@@ -490,7 +490,7 @@ const packprops_t packprops[512] = {
 };
 #else
 /* EBCDIC (or bust) */
-const packprops_t packprops[512] = {
+STATIC const packprops_t packprops[512] = {
     /* normal */
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
     0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,