From: Robin Barker <robin@Spade-Ubuntu.(none)>
Date: Sun, 18 Apr 2010 19:09:45 +0000 (+0100)
Subject: consting in lex_stuff_pvn
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=83aa740ef4e0ec94b144304b034baf00e5d12723;p=p5sagit%2Fp5-mst-13.2.git

consting in lex_stuff_pvn
---

diff --git a/embed.fnc b/embed.fnc
index f93d27c..1e3021c 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -601,7 +601,7 @@ p	|void	|lex_start	|NULLOK SV* line|NULLOK PerlIO *rsfp|bool new_filter
 : Public lexer API
 AMpd	|bool	|lex_bufutf8
 AMpd	|char*	|lex_grow_linestr|STRLEN len
-AMpd	|void	|lex_stuff_pvn	|NN char* pv|STRLEN len|U32 flags
+AMpd	|void	|lex_stuff_pvn	|NN const char* pv|STRLEN len|U32 flags
 AMpd	|void	|lex_stuff_sv	|NN SV* sv|U32 flags
 AMpd	|void	|lex_unstuff	|NN char* ptr
 AMpd	|void	|lex_read_to	|NN char* ptr
diff --git a/proto.h b/proto.h
index 979076f..550cd5b 100644
--- a/proto.h
+++ b/proto.h
@@ -1509,7 +1509,7 @@ PERL_CALLCONV void	Perl_lex_end(pTHX);
 PERL_CALLCONV void	Perl_lex_start(pTHX_ SV* line, PerlIO *rsfp, bool new_filter);
 PERL_CALLCONV bool	Perl_lex_bufutf8(pTHX);
 PERL_CALLCONV char*	Perl_lex_grow_linestr(pTHX_ STRLEN len);
-PERL_CALLCONV void	Perl_lex_stuff_pvn(pTHX_ char* pv, STRLEN len, U32 flags)
+PERL_CALLCONV void	Perl_lex_stuff_pvn(pTHX_ const char* pv, STRLEN len, U32 flags)
 			__attribute__nonnull__(pTHX_1);
 #define PERL_ARGS_ASSERT_LEX_STUFF_PVN	\
 	assert(pv)
diff --git a/toke.c b/toke.c
index 0cc3fb8..42a80a6 100644
--- a/toke.c
+++ b/toke.c
@@ -914,7 +914,7 @@ Perl_lex_grow_linestr(pTHX_ STRLEN len)
 }
 
 /*
-=for apidoc Amx|void|lex_stuff_pvn|char *pv|STRLEN len|U32 flags
+=for apidoc Amx|void|lex_stuff_pvn|const char *pv|STRLEN len|U32 flags
 
 Insert characters into the lexer buffer (L</PL_parser-E<gt>linestr>),
 immediately after the current lexing point (L</PL_parser-E<gt>bufptr>),
@@ -936,7 +936,7 @@ function is more convenient.
 */
 
 void
-Perl_lex_stuff_pvn(pTHX_ char *pv, STRLEN len, U32 flags)
+Perl_lex_stuff_pvn(pTHX_ const char *pv, STRLEN len, U32 flags)
 {
     dVAR;
     char *bufptr;
@@ -948,7 +948,7 @@ Perl_lex_stuff_pvn(pTHX_ char *pv, STRLEN len, U32 flags)
 	    goto plain_copy;
 	} else {
 	    STRLEN highhalf = 0;
-	    char *p, *e = pv+len;
+	    const char *p, *e = pv+len;
 	    for (p = pv; p != e; p++)
 		highhalf += !!(((U8)*p) & 0x80);
 	    if (!highhalf)
@@ -972,7 +972,7 @@ Perl_lex_stuff_pvn(pTHX_ char *pv, STRLEN len, U32 flags)
     } else {
 	if (flags & LEX_STUFF_UTF8) {
 	    STRLEN highhalf = 0;
-	    char *p, *e = pv+len;
+	    const char *p, *e = pv+len;
 	    for (p = pv; p != e; p++) {
 		U8 c = (U8)*p;
 		if (c >= 0xc4) {