diff options
| author | Karl Williamson <public@khwilliamson.com> | 2012-01-05 21:10:28 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2012-01-13 09:58:39 -0700 |
| commit | 6c6525b86477e0001fa63ee65eb355329aeef26a (patch) | |
| tree | d97b303d08ea8da4572ab0f647d1ee60c95ee3de /embed.h | |
| parent | 0bd1039c7cc74c239c7d4974b36c261d7fe40bb3 (diff) | |
| download | perl-6c6525b86477e0001fa63ee65eb355329aeef26a.tar.gz | |
regexec.c: Allow for returning shared swash
This changes the function that returns the swash associated with a
bracketed character class so that it returns the original swash and not
a copy. The function is renamed and made accessible only from within
regexec.c, and a new wrapper function with the original name is created
that just calls the other one and returns a copy of the swash.
Thus, all access from outside regexec.c will use a copy which if
overwritten will not harm others; while the option exists from within
regexec.c to use a shared version.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -960,6 +960,7 @@ #define _swash_to_invlist(a) Perl__swash_to_invlist(aTHX_ a) # endif # if defined(PERL_IN_REGEXEC_C) +#define core_regclass_swash(a,b,c,d,e) S_core_regclass_swash(aTHX_ a,b,c,d,e) #define find_byclass(a,b,c,d,e) S_find_byclass(aTHX_ a,b,c,d,e) #define reg_check_named_buff_matched(a,b) S_reg_check_named_buff_matched(aTHX_ a,b) #define regcppop(a) S_regcppop(aTHX_ a) |