Change 28145 means that Perl_allocmy() can take a const char *name.

p4raw-id: //depot/perl@28146

diff --git a/embed.fnc b/embed.fnc
index ea91d6c..8c24a25 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -602,7 +602,7 @@ p   |OP*    |package        |NN OP* o
 p      |void   |package        |NN OP* o
 #endif
 pd     |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
-p      |PADOFFSET|allocmy      |NN char* name
+p      |PADOFFSET|allocmy      |NN const char *const name
 pdR    |PADOFFSET|pad_findmy   |NN const char* name
 Ap     |PADOFFSET|find_rundefsvoffset  |
 pR     |OP*    |oopsAV         |NN OP* o

diff --git a/op.c b/op.c
index dac36a9..1421e05 100644 (file)
--- a/op.c
+++ b/op.c
@@ -230,7 +230,7 @@ S_no_bareword_allowed(pTHX_ const OP *o)
 /* "register" allocation */
 
 PADOFFSET
-Perl_allocmy(pTHX_ char *name)
+Perl_allocmy(pTHX_ const char *const name)
 {
     dVAR;
     PADOFFSET off;

diff --git a/proto.h b/proto.h
index 1154162..f24304b 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1695,7 +1695,7 @@ PERL_CALLCONV void        Perl_package(pTHX_ OP* o)
 
 #endif
 PERL_CALLCONV PADOFFSET        Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype);
-PERL_CALLCONV PADOFFSET        Perl_allocmy(pTHX_ char* name)
+PERL_CALLCONV PADOFFSET        Perl_allocmy(pTHX_ const char *const name)
                        __attribute__nonnull__(pTHX_1);
 
 PERL_CALLCONV PADOFFSET        Perl_pad_findmy(pTHX_ const char* name)