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
[perl5.git] / 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