From 92881630ff6dcc5a9e9d81b401608c569c3e67b7 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sun, 22 May 2016 14:37:43 -0700 Subject: Remove mg.c:_get_encoding Nothing uses it now, and it does nothing. --- embed.fnc | 1 - embed.h | 1 - mg.c | 6 ------ proto.h | 3 --- 4 files changed, 11 deletions(-) diff --git a/embed.fnc b/embed.fnc index d919d188b1..9b3a28b09b 100644 --- a/embed.fnc +++ b/embed.fnc @@ -2945,7 +2945,6 @@ Ei |STRLEN |sv_or_pv_pos_u2b|NN SV *sv|NN const char *pv|STRLEN pos \ |NULLOK STRLEN *lenp #endif -EMpPX |SV* |_get_encoding Ap |void |clear_defarray |NN AV* av|bool abandon ApM |void |leave_adjust_stacks|NN SV **from_sp|NN SV **to_sp \ diff --git a/embed.h b/embed.h index cf19da4759..a666cd3bd1 100644 --- a/embed.h +++ b/embed.h @@ -931,7 +931,6 @@ #define do_spawn_nowait(a) Perl_do_spawn_nowait(aTHX_ a) #endif #if defined(PERL_CORE) || defined(PERL_EXT) -#define _get_encoding() Perl__get_encoding(aTHX) #define _warn_problematic_locale Perl__warn_problematic_locale #define av_reify(a) Perl_av_reify(aTHX_ a) #define current_re_engine() Perl_current_re_engine(aTHX) diff --git a/mg.c b/mg.c index 2537f74d23..0a93cb86cf 100644 --- a/mg.c +++ b/mg.c @@ -766,12 +766,6 @@ S_fixup_errno_string(pTHX_ SV* sv) } } -SV* -Perl__get_encoding(pTHX) -{ - return NULL; -} - #ifdef VMS #include #include diff --git a/proto.h b/proto.h index 4ba0c505aa..2d123879f9 100644 --- a/proto.h +++ b/proto.h @@ -42,9 +42,6 @@ PERL_CALLCONV void* Perl_Slab_Alloc(pTHX_ size_t sz) PERL_CALLCONV void Perl_Slab_Free(pTHX_ void *op); #define PERL_ARGS_ASSERT_SLAB_FREE \ assert(op) -PERL_CALLCONV SV* Perl__get_encoding(pTHX) - __attribute__pure__; - PERL_CALLCONV bool Perl__is_in_locale_category(pTHX_ const bool compiling, const int category); PERL_CALLCONV bool Perl__is_uni_FOO(pTHX_ const U8 classnum, const UV c) __attribute__warn_unused_result__; -- cgit v1.2.1