From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 26 Apr 2002 12:23:02 +0000 (+0000)
Subject: The #16182 radiates U32ness.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2b36a5a0c487b5dc9b2abbd15a0708c83ccd908d;p=p5sagit%2Fp5-mst-13.2.git

The #16182 radiates U32ness.

p4raw-id: //depot/perl@16185
---

diff --git a/embed.fnc b/embed.fnc
index 913c718..b9dbcb2 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -587,7 +587,7 @@ Ap	|void	|set_numeric_standard
 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
diff --git a/proto.h b/proto.h
index 1cd5a4a..7ac1454 100644
--- a/proto.h
+++ b/proto.h
@@ -627,7 +627,7 @@ PERL_CALLCONV void	Perl_set_numeric_standard(pTHX);
 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);
diff --git a/regcomp.c b/regcomp.c
index 50ea031..edb1f15 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -2149,8 +2149,8 @@ S_reg(pTHX_ RExC_state_t *pRExC_state, I32 paren, I32 *flagp)
     /* 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;
 
diff --git a/toke.c b/toke.c
index cf04cfa..7d37b39 100644
--- a/toke.c
+++ b/toke.c
@@ -6247,7 +6247,7 @@ S_scan_ident(pTHX_ register char *s, register char *send, char *dest, STRLEN des
 }
 
 void
-Perl_pmflag(pTHX_ U16 *pmfl, int ch)
+Perl_pmflag(pTHX_ U32* pmfl, int ch)
 {
     if (ch == 'i')
 	*pmfl |= PMf_FOLD;