PERL_GLOBAL_STRUCT_PRIVATE: fix scope.c:arg_counts
authorDavid Mitchell <davem@iabyn.com>
Fri, 17 Mar 2017 13:40:03 +0000 (13:40 +0000)
committerDavid Mitchell <davem@iabyn.com>
Fri, 17 Mar 2017 14:10:14 +0000 (14:10 +0000)
t/porting/libperl.t under -DPERL_GLOBAL_STRUCT_PRIVATE doesn't like
non-const static data structures

scope.c

diff --git a/scope.c b/scope.c
index c51a125..a7c17e8 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -788,7 +788,7 @@ Perl_save_alloc(pTHX_ I32 size, I32 pad)
 }
 
 
-static U8 arg_counts[] = {
+static const U8 arg_counts[] = {
     0, /* SAVEt_ALLOC              */
     0, /* SAVEt_CLEARPADRANGE      */
     0, /* SAVEt_CLEARSV            */