This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
embed.fnc: Parameter is really a const
authorKarl Williamson <khw@cpan.org>
Sat, 16 Nov 2019 12:28:41 +0000 (05:28 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 16 Nov 2019 12:58:47 +0000 (05:58 -0700)
Make it so.

embed.fnc
proto.h

index 64986df..8e429eb 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -3002,7 +3002,11 @@ EdXxp    |bool   |validate_proto |NN SV *name|NULLOK SV *proto|bool warn \
 #if defined(PERL_IN_UNIVERSAL_C)
 SG     |bool   |isa_lookup     |NULLOK HV *stash|NULLOK SV *namesv|NULLOK const char * name \
                                         |STRLEN len|U32 flags
-SG   |bool   |sv_derived_from_svpvn  |NULLOK SV *sv|NULLOK SV *namesv|NULLOK const char * name|STRLEN len|U32 flags
+SG   |bool   |sv_derived_from_svpvn  |NULLOK SV *sv                    \
+                                    |NULLOK SV *namesv                 \
+                                    |NULLOK const char * name          \
+                                    |const STRLEN len                  \
+                                    |U32 flags
 #endif
 
 #if defined(PERL_IN_LOCALE_C)
diff --git a/proto.h b/proto.h
index 84a0aea..3278c9b 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -6334,7 +6334,7 @@ STATIC int        S_yywarn(pTHX_ const char *const s, U32 flags);
 #endif
 #if defined(PERL_IN_UNIVERSAL_C)
 STATIC bool    S_isa_lookup(pTHX_ HV *stash, SV *namesv, const char * name, STRLEN len, U32 flags);
-STATIC bool    S_sv_derived_from_svpvn(pTHX_ SV *sv, SV *namesv, const char * name, STRLEN len, U32 flags);
+STATIC bool    S_sv_derived_from_svpvn(pTHX_ SV *sv, SV *namesv, const char * name, const STRLEN len, U32 flags);
 #endif
 #if defined(PERL_IN_UTF8_C)
 STATIC UV      S__to_utf8_case(pTHX_ const UV uv1, const U8 *p, U8* ustrp, STRLEN *lenp, SV *invlist, const int * const invmap, const unsigned int * const * const aux_tables, const U8 * const aux_table_lengths, const char * const normal);