Change 16185 by jhi@alpha on 2002/04/26 12:23:02
The #16182 radiates U32ness.
Affected files ...
.... //depot/perl/embed.fnc#38 edit
.... //depot/perl/embed.h#355 edit
.... //depot/perl/proto.h#398 edit
.... //depot/perl/regcomp.c#303 edit
.... //depot/perl/toke.c#430 edit
Differences ...
==== //depot/perl/embed.fnc#38 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc.~1~ Fri Apr 26 06:30:06 2002
+++ perl/embed.fnc Fri Apr 26 06:30:06 2002
@@ -587,7 +587,7 @@
Apd |void |require_pv |const char* pv
Apd |void |pack_cat |SV *cat|char *pat|char *patend|SV **beglist|SV
**endlist|SV ***next_in_list|U32 flags
p |void |pidgone |Pid_t pid|int status
-Ap |void |pmflag |U16* pmfl|int ch
+Ap |void |pmflag |U32* pmfl|int ch
p |OP* |pmruntime |OP* pm|OP* expr|OP* repl
p |OP* |pmtrans |OP* o|OP* expr|OP* repl
p |OP* |pop_return
==== //depot/perl/embed.h#355 (text+w) ====
==== //depot/perl/proto.h#398 (text+w) ====
Index: perl/proto.h
--- perl/proto.h.~1~ Fri Apr 26 06:30:06 2002
+++ perl/proto.h Fri Apr 26 06:30:06 2002
@@ -627,7 +627,7 @@
PERL_CALLCONV void Perl_require_pv(pTHX_ const char* pv);
PERL_CALLCONV void Perl_pack_cat(pTHX_ SV *cat, char *pat, char *patend, SV
**beglist, SV **endlist, SV ***next_in_list, U32 flags);
PERL_CALLCONV void Perl_pidgone(pTHX_ Pid_t pid, int status);
-PERL_CALLCONV void Perl_pmflag(pTHX_ U16* pmfl, int ch);
+PERL_CALLCONV void Perl_pmflag(pTHX_ U32* pmfl, int ch);
PERL_CALLCONV OP* Perl_pmruntime(pTHX_ OP* pm, OP* expr, OP* repl);
PERL_CALLCONV OP* Perl_pmtrans(pTHX_ OP* o, OP* expr, OP* repl);
PERL_CALLCONV OP* Perl_pop_return(pTHX);
==== //depot/perl/regcomp.c#303 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c.~1~ Fri Apr 26 06:30:06 2002
+++ perl/regcomp.c Fri Apr 26 06:30:06 2002
@@ -2149,8 +2149,8 @@
/* Make an OPEN node, if parenthesized. */
if (paren) {
if (*RExC_parse == '?') { /* (?...) */
- U16 posflags = 0, negflags = 0;
- U16 *flagsp = &posflags;
+ U32 posflags = 0, negflags = 0;
+ U32 *flagsp = &posflags;
int logical = 0;
char *seqstart = RExC_parse;
==== //depot/perl/toke.c#430 (text) ====
Index: perl/toke.c
--- perl/toke.c.~1~ Fri Apr 26 06:30:06 2002
+++ perl/toke.c Fri Apr 26 06:30:06 2002
@@ -6247,7 +6247,7 @@
}
void
-Perl_pmflag(pTHX_ U16 *pmfl, int ch)
+Perl_pmflag(pTHX_ U32* pmfl, int ch)
{
if (ch == 'i')
*pmfl |= PMf_FOLD;
End of Patch.
