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 (executable)
--- 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 (file)
--- 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,