diff options
| author | Karl Williamson <khw@cpan.org> | 2020-02-24 22:25:07 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2020-03-11 16:09:43 -0600 |
| commit | 71562af6e946a38bf57b167ac53ea5d1fda899ca (patch) | |
| tree | ee54f9b79327c5abb509ba4c2ea01d36944e505e /embed.h | |
| parent | c73851c36d0d76f1f87ffac7cd6348aeb7c24fa0 (diff) | |
| download | perl-71562af6e946a38bf57b167ac53ea5d1fda899ca.tar.gz | |
Allow debugging from regexec.c back to regcomp.c
The compilation of User-defined properties in a regular expression that
haven't been defined at the time that pattern is compiled is deferred
until execution time. Until this commit, any request for debugging info
on those was ignored.
This fixes that by
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -960,6 +960,11 @@ # if ! defined(HAS_MEMRCHR) && (defined(PERL_CORE) || defined(PERL_EXT)) #define my_memrchr S_my_memrchr # endif +# if !(!defined(PERL_EXT_RE_BUILD)) +# if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) +#define get_re_gclass_nonbitmap_data(a,b,c,d,e,f) Perl_get_re_gclass_nonbitmap_data(aTHX_ a,b,c,d,e,f) +# endif +# endif # if !defined(PERL_EXT_RE_BUILD) # if defined(PERL_IN_REGCOMP_C) #define _append_range_to_invlist(a,b,c) S__append_range_to_invlist(aTHX_ a,b,c) @@ -972,6 +977,9 @@ #define invlist_set_previous_index S_invlist_set_previous_index #define invlist_trim S_invlist_trim # endif +# if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) +#define get_regclass_nonbitmap_data(a,b,c,d,e,f) Perl_get_regclass_nonbitmap_data(aTHX_ a,b,c,d,e,f) +# endif # endif # if defined(DEBUGGING) # if defined(PERL_IN_REGCOMP_C) @@ -1124,7 +1132,6 @@ #define get_regex_charset_name S_get_regex_charset_name # endif # if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) -#define _get_regclass_nonbitmap_data(a,b,c,d,e,f) Perl__get_regclass_nonbitmap_data(aTHX_ a,b,c,d,e,f) #ifndef PERL_IMPLICIT_CONTEXT #define re_printf Perl_re_printf #endif |