This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
_swash_inversion_hash Rmv X from embed, add const
authorKarl Williamson <public@khwilliamson.com>
Tue, 1 Feb 2011 23:02:05 +0000 (16:02 -0700)
committerKarl Williamson <public@khwilliamson.com>
Wed, 2 Feb 2011 23:31:22 +0000 (16:31 -0700)
This shouldn't be called from XS code.

embed.fnc
global.sym
utf8.c

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
index 01e79a4..1bd1a56 100644 (file)
@@ -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