Change 33645 by [EMAIL PROTECTED] on 2008/04/04 08:26:30
From: "Jan Dubois" <[EMAIL PROTECTED]>
Subject: [PATCH] Make PL_AMG_names and PL_AMG_namelens static
Date: Thu, 3 Apr 2008 18:50:08 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/overload.c#5 edit
... //depot/perl/overload.pl#9 edit
Differences ...
==== //depot/perl/overload.c#5 (text+w) ====
Index: perl/overload.c
--- perl/overload.c#4~32681~ 2007-12-20 13:52:06.000000000 -0800
+++ perl/overload.c 2008-04-04 01:26:30.000000000 -0700
@@ -15,7 +15,7 @@
#define AMG_id2name(id) (PL_AMG_names[id]+1)
#define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
-const U8 PL_AMG_namelens[NofAMmeth] = {
+static const U8 PL_AMG_namelens[NofAMmeth] = {
2,
4,
4,
@@ -85,7 +85,7 @@
7
};
-const char * const PL_AMG_names[NofAMmeth] = {
+static const char * const PL_AMG_names[NofAMmeth] = {
/* Names kept in the symbol table. fallback => "()", the rest has
"(" prepended. The only other place in perl which knows about
this convention is AMG_id2name (used for debugging output and
==== //depot/perl/overload.pl#9 (text) ====
Index: perl/overload.pl
--- perl/overload.pl#8~33539~ 2008-03-16 17:17:26.000000000 -0700
+++ perl/overload.pl 2008-04-04 01:26:30.000000000 -0700
@@ -70,7 +70,7 @@
#define AMG_id2name(id) (PL_AMG_names[id]+1)
#define AMG_id2namelen(id) (PL_AMG_namelens[id]-1)
-const U8 PL_AMG_namelens[NofAMmeth] = {
+static const U8 PL_AMG_namelens[NofAMmeth] = {
EOF
my $last = pop @names;
@@ -82,7 +82,7 @@
$lastlen
};
-const char * const PL_AMG_names[NofAMmeth] = {
+static const char * const PL_AMG_names[NofAMmeth] = {
/* Names kept in the symbol table. fallback => "()", the rest has
"(" prepended. The only other place in perl which knows about
this convention is AMG_id2name (used for debugging output and
End of Patch.
