diff options
| author | Karl Williamson <khw@cpan.org> | 2022-08-11 18:00:47 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-09-02 13:21:24 -0600 |
| commit | 3d118badf8a1b8d6cfcb6bf98a51ff62b0b0379a (patch) | |
| tree | 6b44f6946900594897554ae731fdfabe9b9842e3 /proto.h | |
| parent | 8fffab5814a1dec668cc4056a4a6e0a06b0309f1 (diff) | |
| download | perl-3d118badf8a1b8d6cfcb6bf98a51ff62b0b0379a.tar.gz | |
locale.c: Rmv no longer used code; UTF8ness cache
What these functions do has been subsumed by code introduced in previous
commits, and in a more straight forward manner.
Also removed in this commit is the cache of the knowing what locales are
UTF-8 or not. This data is now cheaper to calculate when needed, and
there is now a single entry cache, so I don't think the complexity
warrants keeping it.
It could be added back if necessary, split off from the remainder of
this commit.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -5685,8 +5685,6 @@ STATIC void S_new_ctype(pTHX_ const char* newctype); STATIC void S_new_numeric(pTHX_ const char* newnum); #define PERL_ARGS_ASSERT_NEW_NUMERIC \ assert(newnum) -STATIC void S_restore_switched_locale(pTHX_ const int category, const char * const original_locale); -#define PERL_ARGS_ASSERT_RESTORE_SWITCHED_LOCALE STATIC void S_restore_toggled_locale_i(pTHX_ const unsigned cat_index, const char * original_locale, const line_t caller_line); #define PERL_ARGS_ASSERT_RESTORE_TOGGLED_LOCALE_I STATIC const char * S_save_to_buffer(const char * string, const char **buf, Size_t *buf_size); @@ -5698,8 +5696,6 @@ PERL_STATIC_NO_RET void S_setlocale_failure_panic_i(pTHX_ const unsigned int cat STATIC const char* S_stdize_locale(pTHX_ const int category, const char* input_locale, const char **buf, Size_t *buf_size, line_t caller_line); #define PERL_ARGS_ASSERT_STDIZE_LOCALE -STATIC const char* S_switch_category_locale_to_template(pTHX_ const int switch_category, const int template_category, const char * template_locale); -#define PERL_ARGS_ASSERT_SWITCH_CATEGORY_LOCALE_TO_TEMPLATE STATIC const char * S_toggle_locale_i(pTHX_ const unsigned switch_cat_index, const char * new_locale, const line_t caller_line); #define PERL_ARGS_ASSERT_TOGGLE_LOCALE_I \ assert(new_locale) @@ -7526,10 +7522,6 @@ PERL_CALLCONV SV* Perl_sv_dup_inc(pTHX_ const SV *const ssv, CLONE_PARAMS *const assert(param) #endif -#if defined(USE_LOCALE) && ( defined(PERL_IN_LOCALE_C) || defined(PERL_IN_MG_C) || defined (PERL_EXT_POSIX) || defined (PERL_EXT_LANGINFO)) -PERL_CALLCONV bool Perl__is_cur_LC_category_utf8(pTHX_ int category); -#define PERL_ARGS_ASSERT__IS_CUR_LC_CATEGORY_UTF8 -#endif #if defined(USE_LOCALE_COLLATE) PERL_CALLCONV int Perl_magic_freecollxfrm(pTHX_ SV* sv, MAGIC* mg) __attribute__visibility__("hidden"); |