_swash_inversion_hash Rmv X from embed, add const

This shouldn't be called from XS code.

diff --git a/embed.fnc b/embed.fnc
index c225de1..952a57c 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1284,7 +1284,7 @@ Apd       |void   |sv_vsetpvfn    |NN SV *const sv|NN const char *const pat|const STRLEN pa
 ApR    |NV     |str_to_version |NN SV *sv
 Ap     |SV*    |swash_init     |NN const char* pkg|NN const char* name|NN SV* listsv|I32 minbits|I32 none
 Ap     |UV     |swash_fetch    |NN SV *swash|NN const U8 *ptr|bool do_utf8
-EMpRX  |HV*    |_swash_inversion_hash  |NN SV* const swash
+EMpR   |HV*    |_swash_inversion_hash  |NN SV* const swash
 EMpR   |HV*    |_new_invlist   |const IV initial_size
 EMpR   |HV*    |_swash_to_invlist      |NN SV* const swash
 EMp    |void   |_append_range_to_invlist   |NN HV* const invlist|const UV start|const UV end

diff --git a/global.sym b/global.sym
index 01e79a4..1bd1a56 100644 (file)
--- a/global.sym
+++ b/global.sym
@@ -17,7 +17,6 @@
 
 Perl_Gv_AMupdate
 Perl_PerlIO_context_layers
-Perl__swash_inversion_hash
 Perl_amagic_call
 Perl_amagic_deref_call
 Perl_apply_attrs_string

diff --git a/utf8.c b/utf8.c
index 16e0814..18ff1d8 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2582,7 +2582,7 @@ S_swash_get(pTHX_ SV* swash, UV start, UV span)
 }
 
 HV*
-Perl__swash_inversion_hash(pTHX_ SV* swash)
+Perl__swash_inversion_hash(pTHX_ SV* const swash)
 {
 
    /* Subject to change or removal.  For use only in one place in regexec.c