Change 31369 by [EMAIL PROTECTED] on 2007/06/12 08:43:55
Subject: mad-const patch
From: Jim Cromie <[EMAIL PROTECTED]>
Date: Mon, 11 Jun 2007 13:49:06 -0600
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/dump.c#267 edit
... //depot/perl/embed.fnc#501 edit
... //depot/perl/proto.h#838 edit
Differences ...
==== //depot/perl/dump.c#267 (text) ====
Index: perl/dump.c
--- perl/dump.c#266~31333~ 2007-06-05 03:10:33.000000000 -0700
+++ perl/dump.c 2007-06-12 01:43:55.000000000 -0700
@@ -2141,11 +2141,11 @@
}
char *
-Perl_sv_catxmlpvn(pTHX_ SV *dsv, char* pv, STRLEN len, int utf8)
+Perl_sv_catxmlpvn(pTHX_ SV *dsv, const char *pv, STRLEN len, int utf8)
{
unsigned int c;
const char * const e = pv + len;
- char *start = pv;
+ const char * const start = pv;
STRLEN dsvcur;
STRLEN cl;
@@ -2818,7 +2818,7 @@
if (PL_madskills && o->op_madprop) {
char prevkey = '\0';
SV * const tmpsv = newSVpvn("", 0);
- const MADPROP* const mp = o->op_madprop;
+ const MADPROP* mp = o->op_madprop;
sv_utf8_upgrade(tmpsv);
if (!contents) {
==== //depot/perl/embed.fnc#501 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#500~31341~ 2007-06-06 07:42:01.000000000 -0700
+++ perl/embed.fnc 2007-06-12 01:43:55.000000000 -0700
@@ -1834,7 +1834,7 @@
Mp |void |xmldump_form |NN const GV* gv
Mp |void |xmldump_eval
Mp |char* |sv_catxmlsv |NN SV *dsv|NN SV *ssv
-Mp |char* |sv_catxmlpvn |NN SV *dsv|NN char *pv|STRLEN len|int utf8
+Mp |char* |sv_catxmlpvn |NN SV *dsv|NN const char *pv|STRLEN len|int
utf8
Mp |char* |sv_xmlpeek |NN SV* sv
Mp |void |do_pmop_xmldump|I32 level|NN PerlIO *file \
|NULLOK const PMOP *pm
==== //depot/perl/proto.h#838 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#837~31341~ 2007-06-06 07:42:01.000000000 -0700
+++ perl/proto.h 2007-06-12 01:43:55.000000000 -0700
@@ -4619,7 +4619,7 @@
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_2);
-PERL_CALLCONV char* Perl_sv_catxmlpvn(pTHX_ SV *dsv, char *pv, STRLEN len,
int utf8)
+PERL_CALLCONV char* Perl_sv_catxmlpvn(pTHX_ SV *dsv, const char *pv, STRLEN
len, int utf8)
__attribute__nonnull__(pTHX_1)
__attribute__nonnull__(pTHX_2);
End of Patch.
