diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-11-13 00:29:41 +0100 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-11-13 02:19:12 +0000 |
| commit | de8c53012b7e614137ab875e0d58a92474b317ce (patch) | |
| tree | cc24fc09cc1af2e140a8d29a1bcd652cba6c4b00 /embed.h | |
| parent | 7834bb7eff465724a885b368420973bce2d27483 (diff) | |
| download | perl-de8c53012b7e614137ab875e0d58a92474b317ce.tar.gz | |
Regex Utility Functions and Substituion Fix (XML::Twig core dump)
Message-ID: <9b18b3110611121429g1fc9d6c1t4007dc711f9e8396@mail.gmail.com>
Plus a couple tweaks to ext/re/re.pm and t/op/pat.t to those patches
to apply cleanly.
p4raw-id: //depot/perl@29252
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 8 |
1 files changed, 6 insertions, 2 deletions
@@ -680,6 +680,9 @@ #define regclass_swash Perl_regclass_swash #define pregexec Perl_pregexec #define pregfree Perl_pregfree +#ifdef PERL_CORE +#define reg_stringify Perl_reg_stringify +#endif #if defined(USE_ITHREADS) #define regdupe Perl_regdupe #endif @@ -1429,7 +1432,6 @@ #define sv_pos_u2b_cached S_sv_pos_u2b_cached #define utf8_mg_pos_cache_update S_utf8_mg_pos_cache_update #define sv_pos_b2u_midway S_sv_pos_b2u_midway -#define stringify_regexp S_stringify_regexp #define F0convert S_F0convert #endif # if defined(PERL_OLD_COPY_ON_WRITE) @@ -2887,6 +2889,9 @@ #define regclass_swash(a,b,c,d,e) Perl_regclass_swash(aTHX_ a,b,c,d,e) #define pregexec(a,b,c,d,e,f,g) Perl_pregexec(aTHX_ a,b,c,d,e,f,g) #define pregfree(a) Perl_pregfree(aTHX_ a) +#ifdef PERL_CORE +#define reg_stringify(a,b,c,d) Perl_reg_stringify(aTHX_ a,b,c,d) +#endif #if defined(USE_ITHREADS) #define regdupe(a,b) Perl_regdupe(aTHX_ a,b) #endif @@ -3632,7 +3637,6 @@ #define sv_pos_u2b_cached(a,b,c,d,e,f,g) S_sv_pos_u2b_cached(aTHX_ a,b,c,d,e,f,g) #define utf8_mg_pos_cache_update(a,b,c,d,e) S_utf8_mg_pos_cache_update(aTHX_ a,b,c,d,e) #define sv_pos_b2u_midway(a,b,c,d) S_sv_pos_b2u_midway(aTHX_ a,b,c,d) -#define stringify_regexp(a,b,c) S_stringify_regexp(aTHX_ a,b,c) #define F0convert S_F0convert #endif # if defined(PERL_OLD_COPY_ON_WRITE) |