diff options
| author | Yves Orton <demerphq@gmail.com> | 2016-10-17 23:10:10 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2016-10-19 13:28:51 +0200 |
| commit | c2867e745ca7be5bd833a75556aa8a6e49cdc0a6 (patch) | |
| tree | d755fa7035cb4991a6c560b4ca3af9ffbac48bd8 | |
| parent | cfe04db5962490c8d6f96481316bdee1490fe678 (diff) | |
| download | perl-c2867e745ca7be5bd833a75556aa8a6e49cdc0a6.tar.gz | |
regexec.c: in debug show whether TRIE nodes have a jump table
| -rw-r--r-- | regcomp.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -18929,7 +18929,9 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_ = (reg_trie_data*)progi->data->data[!IS_TRIE_AC(op) ? n : ac->trie]; Perl_sv_catpvf(aTHX_ sv, "-%s",PL_reg_name[o->flags]); - DEBUG_TRIE_COMPILE_r( + DEBUG_TRIE_COMPILE_r({ + if (trie->jump) + sv_catpvs(aTHX_ sv, "(JUMP)"); Perl_sv_catpvf(aTHX_ sv, "<S:%"UVuf"/%"IVdf" W:%"UVuf" L:%"UVuf"/%"UVuf" C:%"UVuf"/%"UVuf">", (UV)trie->startstate, @@ -18940,7 +18942,7 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_ (UV)TRIE_CHARCOUNT(trie), (UV)trie->uniquecharcount ); - ); + }); if ( IS_ANYOF_TRIE(op) || trie->bitmap ) { sv_catpvs(sv, "["); (void) put_charclass_bitmap_innards(sv, @@ -18954,7 +18956,6 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_ ); sv_catpvs(sv, "]"); } - } else if (k == CURLY) { U32 lo = ARG1(o), hi = ARG2(o); if (OP(o) == CURLYM || OP(o) == CURLYN || OP(o) == CURLYX) |