diff options
| author | Karl Williamson <khw@cpan.org> | 2022-10-01 13:43:54 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2022-10-18 06:22:16 -0600 |
| commit | 49825ce8d49ec49e0c08ecb341ea5a7b7383225b (patch) | |
| tree | 1b6dd4d9933cd9855ec95f4055f386cf7ffb6fda /proto.h | |
| parent | 6a4065f28f30d59e3a6cea6504be34bdb5e5eb8b (diff) | |
| download | perl-49825ce8d49ec49e0c08ecb341ea5a7b7383225b.tar.gz | |
locale.c: Compile display fcn under more circumstances
This is in preparation for it to be used in more instances in future
commits. It uses a symbol that won't be defined until those commits.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -5120,8 +5120,6 @@ PERL_CALLCONV void Perl_set_padlist(CV * cv, PADLIST * padlist); assert(cv) # if defined(PERL_IN_LOCALE_C) # if defined(USE_LOCALE) -STATIC const char * S_get_LC_ALL_display(pTHX); -#define PERL_ARGS_ASSERT_GET_LC_ALL_DISPLAY STATIC char * S_my_setlocale_debug_string_i(pTHX_ const unsigned cat_index, const char* locale, const char* retval, const line_t line) __attribute__warn_unused_result__; #define PERL_ARGS_ASSERT_MY_SETLOCALE_DEBUG_STRING_I @@ -5220,6 +5218,14 @@ STATIC void S_dump_regex_sets_structures(pTHX_ RExC_state_t *pRExC_state, AV * s assert(pRExC_state); assert(stack); assert(fence_stack) # endif #endif +#if defined(DEBUGGING) || defined(USE_PERL_SWITCH_LOCALE_CONTEXT) +# if defined(PERL_IN_LOCALE_C) +# if defined(USE_LOCALE) +STATIC const char * S_get_LC_ALL_display(pTHX); +#define PERL_ARGS_ASSERT_GET_LC_ALL_DISPLAY +# endif +# endif +#endif #if defined(DEBUG_LEAKING_SCALARS_FORK_DUMP) PERL_CALLCONV void Perl_dump_sv_child(pTHX_ SV *sv) __attribute__visibility__("hidden"); |