In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/83aa740ef4e0ec94b144304b034baf00e5d12723?hp=0cd29a24dbd86735116218c407643ee00fb43a02>
- Log -----------------------------------------------------------------
commit 83aa740ef4e0ec94b144304b034baf00e5d12723
Author: Robin Barker <ro...@spade-ubuntu.(none)>
Date: Sun Apr 18 20:09:45 2010 +0100
consting in lex_stuff_pvn
-----------------------------------------------------------------------
Summary of changes:
embed.fnc | 2 +-
proto.h | 2 +-
toke.c | 8 ++++----
3 files changed, 6 insertions(+), 6 deletions(-)
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) {
--
Perl5 Master Repository
