From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 9 May 2006 21:42:18 +0000 (+0000)
Subject: Change 28145 means that Perl_allocmy() can take a const char *name.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=262cbcdb563b9a037afe19e3ef94322ccc35436a;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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)