diff options
| author | Karl Williamson <khw@cpan.org> | 2014-08-01 10:04:16 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-08-21 14:49:46 -0600 |
| commit | ef9bc83298763750079a8f1ff37b18b092bdfb33 (patch) | |
| tree | 61478edf98f53693bf811170a164560bdbd436d0 /embed.fnc | |
| parent | 91a527c4392ee3a58532b360fdf798f7ffc6ba19 (diff) | |
| download | perl-ef9bc83298763750079a8f1ff37b18b092bdfb33.tar.gz | |
Avoid redundant text -in -Dr output
There is an optimization in regcomp.c which saves memory when used, but
which caused -Dr output to display the same code points twice.
I didn't add a test to ext/re/t/regop.t because this only happens for a
Unicode property, under certain circumstances, and that triggers a lot
of other regex patterns to be compiled which are subject to change, so
the test would frequently have to be updated. This only affects
debugging output anyway.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 10 |
1 files changed, 7 insertions, 3 deletions
@@ -1548,9 +1548,11 @@ EXMpR |HV* |_swash_inversion_hash |NN SV* const swash #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) ApM |SV* |_get_regclass_nonbitmap_data \ |NULLOK const regexp *prog \ - |NN const struct regnode *node|bool doinit \ + |NN const struct regnode *node \ + |bool doinit \ |NULLOK SV **listsvp \ - |NULLOK SV **lonly_utf8_locale + |NULLOK SV **lonly_utf8_locale \ + |NULLOK SV *exclude_list EXp |void|_load_PL_utf8_foldclosures| #endif #if defined(PERL_IN_REGCOMP_C) || defined (PERL_IN_DUMP_C) @@ -2189,7 +2191,9 @@ Es |const regnode*|dumpuntil|NN const regexp *r|NN const regnode *start \ |NULLOK const regnode *plast \ |NN SV* sv|I32 indent|U32 depth Es |void |put_byte |NN SV* sv|int c -Es |bool |put_charclass_bitmap_innards|NN SV* sv|NN char* bitmap +Es |bool |put_charclass_bitmap_innards|NN SV* sv \ + |NN char* bitmap \ + |NULLOK SV** bitmap_invlist Es |void |put_range |NN SV* sv|UV start|UV end Es |void |dump_trie |NN const struct _reg_trie_data *trie\ |NULLOK HV* widecharmap|NN AV *revcharmap\ |