This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Add a const to parameter
[perl5.git] / embed.fnc
index 43fc31a..cb26098 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -828,7 +828,7 @@ AnidR       |bool   |is_utf8_string_flags                                       \
 AnmdpR |bool   |is_strict_utf8_string|NN const U8 *s|STRLEN len
 AnmdpR |bool   |is_c9strict_utf8_string|NN const U8 *s|STRLEN len
 Anpdmb |bool   |is_utf8_string_loc                                         \
-               |NN const U8 *s|STRLEN len|NN const U8 **ep
+               |NN const U8 *s|const STRLEN len|NN const U8 **ep
 Andm   |bool   |is_utf8_string_loc_flags                                   \
                |NN const U8 *s|STRLEN len|NN const U8 **ep                 \
                |const U32 flags