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 /proto.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 'proto.h')
| -rw-r--r-- | proto.h | 9 |
1 files changed, 9 insertions, 0 deletions
@@ -6767,6 +6767,15 @@ STATIC I32 S_study_chunk(pTHX_ struct RExC_state_t *pRExC_state, regnode **scanp assert(pRExC_state); assert(scanp); assert(minlenp); assert(deltap); assert(last) #endif +#if defined(PERL_IN_REGCOMP_C) || defined (PERL_IN_DUMP_C) +PERL_CALLCONV void Perl__invlist_dump(pTHX_ PerlIO *file, I32 level, const char* const indent, SV* const invlist) + __attribute__nonnull__(pTHX_1) + __attribute__nonnull__(pTHX_3) + __attribute__nonnull__(pTHX_4); +#define PERL_ARGS_ASSERT__INVLIST_DUMP \ + assert(file); assert(indent); assert(invlist) + +#endif #if defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_UTF8_C) PERL_CALLCONV SV* Perl__get_swash_invlist(pTHX_ SV* const swash) __attribute__warn_unused_result__ |