Missing static declarations
authorGisle Aas <gisle@aas.no>
Sat, 5 Nov 2005 05:08:03 +0000 (21:08 -0800)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 7 Nov 2005 12:20:59 +0000 (12:20 +0000)
Message-ID: <lracgj1bv0.fsf@caliper.activestate.com>

p4raw-id: //depot/perl@26032

genpacksizetables.pl
pp_pack.c

index 5872e86..9dffc2c 100755 (executable)
@@ -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";
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,