diff options
| author | Karl Williamson <khw@cpan.org> | 2014-11-05 22:43:18 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-11-14 13:38:18 -0700 |
| commit | ab0b796c25147677d68005f5ebf2b6b21b71aae6 (patch) | |
| tree | 07c2f38afa9d928c5535a411ee7b6ec930cbb8ca /proto.h | |
| parent | fc08da986c9c46e3588b401ce0a5bdcb4084108c (diff) | |
| download | perl-ab0b796c25147677d68005f5ebf2b6b21b71aae6.tar.gz | |
Add warning message for locale/Unicode intermixing
This is explained in the added perldiag entry.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -7845,13 +7845,14 @@ STATIC bool S_isa_lookup(pTHX_ HV *stash, const char * const name, STRLEN len, U #endif #if defined(PERL_IN_UTF8_C) -STATIC UV S_check_locale_boundary_crossing(pTHX_ const U8* const p, const UV result, U8* const ustrp, STRLEN *lenp) +STATIC UV S_check_locale_boundary_crossing(pTHX_ const char * const func_name, const U8* const p, const UV result, U8* const ustrp, STRLEN *lenp) __attribute__warn_unused_result__ __attribute__nonnull__(pTHX_1) - __attribute__nonnull__(pTHX_3) - __attribute__nonnull__(pTHX_4); + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_4) + __attribute__nonnull__(pTHX_5); #define PERL_ARGS_ASSERT_CHECK_LOCALE_BOUNDARY_CROSSING \ - assert(p); assert(ustrp); assert(lenp) + assert(func_name); assert(p); assert(ustrp); assert(lenp) PERL_STATIC_INLINE bool S_is_utf8_common(pTHX_ const U8 *const p, SV **swash, const char * const swashname, SV* const invlist) __attribute__warn_unused_result__ |