diff options
| author | Karl Williamson <khw@cpan.org> | 2017-02-13 19:57:53 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-02-13 21:24:11 -0700 |
| commit | 7e2f38b21adec3a814f436b1c0c7e79796f5dcc5 (patch) | |
| tree | 1be361bd816726c0528205f5b28d96c633b08f2a /proto.h | |
| parent | 6b58f9be8c82394d776908727ff4e9d582f87f12 (diff) | |
| download | perl-7e2f38b21adec3a814f436b1c0c7e79796f5dcc5.tar.gz | |
Make _byte_dump_string() usable in all of core
I found myself needing this function for development debugging, which
formerly was only usable from utf8.c. This enhances it to allow a
second format type, and makes it core-accessible.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -41,6 +41,9 @@ PERL_CALLCONV void* Perl_Slab_Alloc(pTHX_ size_t sz) PERL_CALLCONV void Perl_Slab_Free(pTHX_ void *op); #define PERL_ARGS_ASSERT_SLAB_FREE \ assert(op) +PERL_CALLCONV char * Perl__byte_dump_string(pTHX_ const U8 * s, const STRLEN len, const bool format); +#define PERL_ARGS_ASSERT__BYTE_DUMP_STRING \ + assert(s) PERL_CALLCONV void Perl__force_out_malformed_utf8_message(pTHX_ const U8 *const p, const U8 * const e, const U32 flags, const bool die_here); #define PERL_ARGS_ASSERT__FORCE_OUT_MALFORMED_UTF8_MESSAGE \ assert(p); assert(e) @@ -5624,9 +5627,6 @@ STATIC bool S_isa_lookup(pTHX_ HV *stash, const char * const name, STRLEN len, U assert(stash); assert(name) #endif #if defined(PERL_IN_UTF8_C) -STATIC char * S__byte_dump_string(pTHX_ const U8 * s, const STRLEN len); -#define PERL_ARGS_ASSERT__BYTE_DUMP_STRING \ - assert(s) STATIC UV S__to_utf8_case(pTHX_ const UV uv1, const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special); #define PERL_ARGS_ASSERT__TO_UTF8_CASE \ assert(p); assert(ustrp); assert(swashp); assert(normal) |