This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
More U32 regflags.
[perl5.git] / thrdvar.h
index 0abd69f..611a5a4 100644 (file)
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -180,7 +180,7 @@ PERLVAR(Tregsawback,        I32)            /* Did we see \1, ...? */
 PERLVAR(Tregprecomp,   char *)         /* uncompiled string. */
 PERLVAR(Tregnpar,      I32)            /* () count. */
 PERLVAR(Tregsize,      I32)            /* Code size. */
-PERLVAR(Tregflags,     U16)            /* are we folding, multilining? */
+PERLVAR(Tregflags,     U32)            /* are we folding, multilining? */
 PERLVAR(Tregseen,      U32)            /* from regcomp.c */
 PERLVAR(Tseen_zerolen, I32)            /* from regcomp.c */
 PERLVAR(Tseen_evals,   I32)            /* from regcomp.c */