diff options
| author | Karl Williamson <khw@cpan.org> | 2021-07-31 09:49:57 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-08-07 05:14:44 -0600 |
| commit | 527347e0493f4ee24d63df996fd6616806422d17 (patch) | |
| tree | 0036a4547303a8da0663713c6f43923cdd72cfc5 /proto.h | |
| parent | 7746124c78426a0d91e73706a02e5a891efde7d5 (diff) | |
| download | perl-527347e0493f4ee24d63df996fd6616806422d17.tar.gz | |
utf8.c: Fold 2 overlapping fcns into one
One of these functions is now only called from the other, and there is
significant overlap in their logic.
This commit refactors them into one resulting function, which is half
the code, and more straight forward.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 9 |
1 files changed, 0 insertions, 9 deletions
@@ -4564,15 +4564,6 @@ STATIC void S_validate_suid(pTHX_ PerlIO *rsfp); /* PERL_CALLCONV void CopFILEGV_set(pTHX_ COP * c, GV * gv); */ #define PERL_ARGS_ASSERT_COPFILEGV_SET #endif -#if !defined(UV_IS_QUAD) -# if defined(PERL_IN_UTF8_C) -STATIC int S_is_utf8_cp_above_31_bits(const U8 * const s, const U8 * const e, const bool consider_overlongs) - __attribute__warn_unused_result__; -#define PERL_ARGS_ASSERT_IS_UTF8_CP_ABOVE_31_BITS \ - assert(s); assert(e) - -# endif -#endif #if !defined(WIN32) PERL_CALLCONV bool Perl_do_exec3(pTHX_ const char *incmd, int fd, int do_report); #define PERL_ARGS_ASSERT_DO_EXEC3 \ |