diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-01 16:02:05 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-02 16:31:22 -0700 |
| commit | 4c2e1131552eebe059a9a4379a6680d114241092 (patch) | |
| tree | 8bed6c2b96317c4f5ef801fd52ecff2c857ad178 | |
| parent | d764b54e5a93ff224d371bad25b14285e5a543cd (diff) | |
| download | perl-4c2e1131552eebe059a9a4379a6680d114241092.tar.gz | |
_swash_inversion_hash Rmv X from embed, add const
This shouldn't be called from XS code.
| -rw-r--r-- | embed.fnc | 2 | ||||
| -rw-r--r-- | global.sym | 1 | ||||
| -rw-r--r-- | utf8.c | 2 |
3 files changed, 2 insertions, 3 deletions
@@ -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 01e79a420a..1bd1a56a4e 100644 --- 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 @@ -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 |