Remove mg.c:_get_encoding

Nothing uses it now, and it does nothing.

4 files changed, 0 insertions, 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 <descrip.h>
 #include <starlet.h>
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__;