diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-07-23 10:48:20 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-08-01 13:01:42 -0600 |
| commit | ad3f05adb1975f100a1e610eaa5eb43099c3063d (patch) | |
| tree | 96e569759c3c1ce62c0d9d9492620f97593085eb /embed.h | |
| parent | 41c407bcf550c4e19a5b20e9ac26ad65a405d4e2 (diff) | |
| download | perl-ad3f05adb1975f100a1e610eaa5eb43099c3063d.tar.gz | |
Extend sv_dump() to dump SVt_INVLIST
This changes the previously unused _invlist_dump() function to be called
from sv_dump() to dump inversion list scalars. The format for regular
SVt_PVs doesn't give human-friendly output for these.
Since these lists are currently not visible outside the Perl core, the
format is documented only in comments in the function itself.
Diffstat (limited to 'embed.h')
| -rw-r--r-- | embed.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -950,6 +950,9 @@ #define scan_commit(a,b,c,d) S_scan_commit(aTHX_ a,b,c,d) #define study_chunk(a,b,c,d,e,f,g,h,i,j,k) S_study_chunk(aTHX_ a,b,c,d,e,f,g,h,i,j,k) # endif +# if defined(PERL_IN_REGCOMP_C) || defined (PERL_IN_DUMP_C) +#define _invlist_dump(a,b,c,d) Perl__invlist_dump(aTHX_ a,b,c,d) +# endif # if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) #define _get_swash_invlist(a) Perl__get_swash_invlist(aTHX_ a) #define _invlist_contains_cp(a,b) S__invlist_contains_cp(aTHX_ a,b) |