diff options
author | Karl Williamson <khw@cpan.org> | 2015-02-20 09:27:16 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-02-20 09:50:22 -0700 |
commit | d21d721596a51176df77e3dfc75028b462cf924c (patch) | |
tree | 852d4e3b4ad7440a3997eef3bc8e692c99ea3a33 /proto.h | |
parent | 6c8457e9057263b6da4b71a035d688ccda975991 (diff) | |
download | perl-d21d721596a51176df77e3dfc75028b462cf924c.tar.gz |
pp_pack.c: Silence compiler warning
This was introduced by 9df874cdaa2f196cc11fbd7b82a85690c243eb9f
in changing the name of some static functions. I didn't realize at the
time that the function was defined in embed.fnc, as none of the others
are, and it was always called with the S_ prefix form. Nor did I notice
the compiler warnings.
It turns out that the base name of this function is the same as a public
function, so I've renamed it to have prefix 'S_my_'.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -6704,13 +6704,6 @@ PERL_STATIC_INLINE HV* S_opmethod_stash(pTHX_ SV* meth) #endif #if defined(PERL_IN_PP_PACK_C) -STATIC char * S_bytes_to_uni(const U8 *start, STRLEN len, char *dest, const bool needs_swap) - __attribute__warn_unused_result__ - __attribute__nonnull__(1) - __attribute__nonnull__(3); -#define PERL_ARGS_ASSERT_BYTES_TO_UNI \ - assert(start); assert(dest) - STATIC int S_div128(pTHX_ SV *pnum, bool *done) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); @@ -6752,6 +6745,13 @@ STATIC SV* S_mul128(pTHX_ SV *sv, U8 m) #define PERL_ARGS_ASSERT_MUL128 \ assert(sv) +STATIC char * S_my_bytes_to_utf8(const U8 *start, STRLEN len, char *dest, const bool needs_swap) + __attribute__warn_unused_result__ + __attribute__nonnull__(1) + __attribute__nonnull__(3); +#define PERL_ARGS_ASSERT_MY_BYTES_TO_UTF8 \ + assert(start); assert(dest) + STATIC bool S_need_utf8(const char *pat, const char *patend) __attribute__nonnull__(1) __attribute__nonnull__(2); |