diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-01-29 23:09:25 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-01-29 23:22:17 -0700 |
| commit | 6d3c410da452518d0742ca0b5f8cfd0d21af47d9 (patch) | |
| tree | e60bcd5636e0fad4589beb44a852670c5365a762 | |
| parent | 93df2d9c3a4bb4d050da9c3a2da0dbb600df6021 (diff) | |
| download | perl-6d3c410da452518d0742ca0b5f8cfd0d21af47d9.tar.gz | |
embed.fnc: Add E flag to regcurly entry
On C++ builds, it wasn't getting seen in extensions.
| -rw-r--r-- | embed.fnc | 2 | ||||
| -rw-r--r-- | embed.h | 6 |
2 files changed, 4 insertions, 4 deletions
@@ -989,7 +989,7 @@ Ap |char* |re_intuit_start|NN REGEXP * const rx|NULLOK SV* sv|NN char* strpos \ |NULLOK re_scream_pos_data *data Ap |SV* |re_intuit_string|NN REGEXP *const r #if defined(PERL_IN_DQUOTE_STATIC_C) -iPR |I32 |regcurly |NN const char *s +EiPR |I32 |regcurly |NN const char *s #endif Ap |I32 |regexec_flags |NN REGEXP *const rx|NN char *stringarg \ |NN char *strend|NN char *strbeg|I32 minend \ @@ -857,6 +857,9 @@ #define dump_exec_pos(a,b,c,d,e,f) S_dump_exec_pos(aTHX_ a,b,c,d,e,f) # endif # endif +# if defined(PERL_IN_DQUOTE_STATIC_C) +#define regcurly(a) S_regcurly(aTHX_ a) +# endif # if defined(PERL_IN_REGCOMP_C) #define add_data S_add_data #define checkposixcc(a) S_checkposixcc(aTHX_ a) @@ -1238,9 +1241,6 @@ #define do_trans_simple(a) S_do_trans_simple(aTHX_ a) #define do_trans_simple_utf8(a) S_do_trans_simple_utf8(aTHX_ a) # endif -# if defined(PERL_IN_DQUOTE_STATIC_C) -#define regcurly(a) S_regcurly(aTHX_ a) -# endif # if defined(PERL_IN_DUMP_C) #define deb_curcv(a) S_deb_curcv(aTHX_ a) #define debprof(a) S_debprof(aTHX_ a) |