We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 1067e02 commit 4acc9fbCopy full SHA for 4acc9fb
inline.h
@@ -3109,9 +3109,11 @@ Perl_utf8n_to_uvchr_msgs(const U8 * const s0,
3109
*
3110
* The terminology of the dfa refers to a 'class'. The variable 'type'
3111
* would have been named 'class' except that is a reserved word in C++
3112
- * */
+ *
3113
+ * The table can be a U16 on EBCDIC platforms, so 'state' is declared
3114
+ * as U16; 'type' is likely to never occupy more than 5 bits. */
3115
PERL_UINT_FAST8_T type = PL_strict_utf8_dfa_tab[*s];
- PERL_UINT_FAST8_T state = PL_strict_utf8_dfa_tab[256 + type];
3116
+ PERL_UINT_FAST16_T state = PL_strict_utf8_dfa_tab[256 + type];
3117
UV uv = (0xff >> type) & NATIVE_UTF8_TO_I8(*s);
3118
3119
while (state > 1 && ++s < send) {
0 commit comments