The #16182 radiates U32ness.

p4raw-id: //depot/perl@16185

4 files changed, 5 insertions, 5 deletions

diff --git a/embed.fnc b/embed.fnc
index 913c718536..b9dbcb2e99 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 1cd5a4a6b0..7ac14545ce 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 50ea0311bf..edb1f15aee 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 cf04cfa68e..7d37b39bf4 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;