diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-11-11 11:03:35 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-11-11 13:31:00 -0700 |
| commit | 348bf2e01788f1715b43ed8a3d76553f8ca3aa1a (patch) | |
| tree | 92d7fff8ea4f55806b4f48952c0e055396bbd54c /proto.h | |
| parent | 17e95c9d98739c7991e60a16f261b29b0fdb242d (diff) | |
| download | perl-348bf2e01788f1715b43ed8a3d76553f8ca3aa1a.tar.gz | |
embed.fnc: Make _to_upper_title_latin1() avail to pp.c
If something like this were to be made more generally available, it
would be better to have two in-line functions, to_upper_latin1() and
to_title_latin1() that just call this underlying one with the correct
final parameter.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 14 |
1 files changed, 8 insertions, 6 deletions
@@ -6989,12 +6989,6 @@ PERL_CALLCONV UV Perl__to_fold_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp, con #define PERL_ARGS_ASSERT__TO_FOLD_LATIN1 \ assert(p); assert(lenp) -PERL_CALLCONV UV Perl__to_upper_title_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp, const char S_or_s) - __attribute__nonnull__(pTHX_2) - __attribute__nonnull__(pTHX_3); -#define PERL_ARGS_ASSERT__TO_UPPER_TITLE_LATIN1 \ - assert(p); assert(lenp) - STATIC STRLEN S_is_utf8_char_slow(const U8 *s, const STRLEN len) __attribute__warn_unused_result__ __attribute__nonnull__(1); @@ -7019,6 +7013,14 @@ STATIC U8 S_to_lower_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp) __attribute__warn_unused_result__; #endif +#if defined(PERL_IN_UTF8_C) || defined(PERL_IN_PP_C) +PERL_CALLCONV UV Perl__to_upper_title_latin1(pTHX_ const U8 c, U8 *p, STRLEN *lenp, const char S_or_s) + __attribute__nonnull__(pTHX_2) + __attribute__nonnull__(pTHX_3); +#define PERL_ARGS_ASSERT__TO_UPPER_TITLE_LATIN1 \ + assert(p); assert(lenp) + +#endif #if defined(PERL_IN_UTIL_C) STATIC bool S_ckwarn_common(pTHX_ U32 w); STATIC const COP* S_closest_cop(pTHX_ const COP *cop, const OP *o) |