This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove constness of parameter that no longer is
authorKarl Williamson <khw@cpan.org>
Sun, 31 Dec 2017 14:40:26 +0000 (07:40 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 1 Jan 2018 19:37:49 +0000 (12:37 -0700)
This was masked by the fact that this is a macro that calls the real
function

embed.fnc
proto.h

index e339f6c..7f2a77d 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -810,7 +810,7 @@ AnidR       |bool   |is_utf8_invariant_string_loc|NN const U8* const s          \
 EinR   |Size_t |variant_under_utf8_count|NN const U8* const s              \
                |NN const U8* const e
 #endif
-AmnpdRP        |bool   |is_ascii_string|NN const U8* const s|const STRLEN len
+AmnpdRP        |bool   |is_ascii_string|NN const U8* const s|STRLEN len
 AmnpdRP        |bool   |is_invariant_string|NN const U8* const s|STRLEN len
 #if defined(PERL_CORE) || defined (PERL_EXT)
 EXnidR |bool   |is_utf8_non_invariant_string|NN const U8* const s          \
diff --git a/proto.h b/proto.h
index 3e4032b..ed77042 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -1388,7 +1388,7 @@ PERL_CALLCONV bool        Perl_isIDFIRST_lazy(pTHX_ const char* p)
 #define PERL_ARGS_ASSERT_ISIDFIRST_LAZY        \
        assert(p)
 
-/* PERL_CALLCONV bool  Perl_is_ascii_string(const U8* const s, const STRLEN len)
+/* PERL_CALLCONV bool  Perl_is_ascii_string(const U8* const s, STRLEN len)
                        __attribute__warn_unused_result__
                        __attribute__pure__; */