Request is_utf8_char_slow() be inlined

[perl5.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 0aa6faf..b0ed87a 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -2218,7 +2218,7 @@ sn        |NV|mulexp10    |NV value|I32 exponent
 #endif
 
 #if defined(PERL_IN_UTF8_C)
-sRn    |STRLEN |is_utf8_char_slow|NN const U8 *s|const STRLEN len
+iRn    |STRLEN |is_utf8_char_slow|NN const U8 *s|const STRLEN len
 sRM    |UV     |check_locale_boundary_crossing|NN const U8* const p|const UV result|NN U8* const ustrp|NN STRLEN *lenp
 iR     |bool   |is_utf8_common |NN const U8 *const p|NN SV **swash|NN const char * const swashname
 sR     |SV*    |swatch_get     |NN SV* swash|UV start|UV span