diff options
| author | Yves Orton <demerphq@gmail.com> | 2014-10-15 23:03:35 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2014-10-20 00:33:26 +0200 |
| commit | 8b9781c905d8bc5e4fbf350df63e212283783324 (patch) | |
| tree | 9811069393b766bfe8c57e475e9c7ff6631f2a94 /embed.fnc | |
| parent | e60d552100fc966cb2917d32cf2e708d20a6427f (diff) | |
| download | perl-8b9781c905d8bc5e4fbf350df63e212283783324.tar.gz | |
regcomp.c: Improve re debug output by showing buffer names if they exist
Requires adding a new optional argument to regprop as we do not
have a completed regexp object to give us the names, and we need
to get it from RExC_state.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1219,7 +1219,6 @@ EXp |I32|reg_numbered_buff_length|NN REGEXP * const rx|NN const SV * const sv|co EXp |SV*|reg_qr_package|NN REGEXP * const rx : FIXME - why the E? -Ep |void |regprop |NULLOK const regexp *prog|NN SV* sv|NN const regnode* o|NULLOK const regmatch_info *reginfo Anp |void |repeatcpy |NN char* to|NN const char* from|I32 len|IV count AnpP |char* |rninstr |NN const char* big|NN const char* bigend \ |NN const char* little|NN const char* lend @@ -2095,6 +2094,10 @@ p |OP * |tied_method|NN SV *methname|NN SV **sp \ |NN SV *const sv|NN const MAGIC *const mg \ |const U32 flags|U32 argc|... +#if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) +Ep |void |regprop |NULLOK const regexp *prog|NN SV* sv|NN const regnode* o|NULLOK const regmatch_info *reginfo \ + |NULLOK const RExC_state_t *pRExC_state +#endif #if defined(PERL_IN_REGCOMP_C) Es |regnode*|reg |NN RExC_state_t *pRExC_state \ |I32 paren|NN I32 *flagp|U32 depth |