Convert Perl utf16 to utf8 functions to macros

These functions are hereby removed in favor of calling the plain macros
that already exist

Author: khwilliamson

embed.fnc

@@ -3785,7 +3785,7 @@ Adip	|bool	|utf8_to_bytes_overwrite				\
 Adip	|bool	|utf8_to_bytes_temp_pv					\
 				|NN U8 const **s_ptr			\
 				|NN STRLEN *lenp
-EMXp	|U8 *	|utf16_to_utf8	|NN U8 *p				\
+Emp	|U8 *	|utf16_to_utf8	|NN U8 *p				\
 				|NN U8 *d				\
 				|Size_t bytelen 			\
 				|NN Size_t *newlen
@@ -3803,7 +3803,7 @@ EXpx	|U8 *	|utf8_to_utf16_base					\
 				|NN Size_t *newlen			\
 				|const bool high			\
 				|const bool low
-EMXp	|U8 *	|utf16_to_utf8_reversed 				\
+Emp	|U8 *	|utf16_to_utf8_reversed 				\
 				|NN U8 *p				\
 				|NN U8 *d				\
 				|Size_t bytelen 			\

embed.h

@@ -2377,6 +2377,10 @@
 #   define Perl_whichsig(mTHX,a)                whichsig(a)
 #   define thread_locale_init()                 Perl_thread_locale_init(aTHX)
 #   define thread_locale_term()                 Perl_thread_locale_term(aTHX)
+#   if defined(PERL_CORE) || defined(PERL_EXT)
+#     define Perl_utf16_to_utf8(mTHX,a,b,c,d)   utf16_to_utf8(a,b,c,d)
+#     define Perl_utf16_to_utf8_reversed(mTHX,a,b,c,d) utf16_to_utf8_reversed(a,b,c,d)
+#   endif
 #   if defined(PERL_DONT_CREATE_GVSV)
 #     define Perl_gv_SVadd(mTHX,a)              gv_SVadd(a)
 #   endif
@@ -2476,6 +2480,10 @@
 #   define Perl_uvchr_to_utf8_flags_msgs        uvchr_to_utf8_flags_msgs
 #   define Perl_uvoffuni_to_utf8_flags          uvoffuni_to_utf8_flags
 #   define Perl_whichsig                        whichsig
+#   if defined(PERL_CORE) || defined(PERL_EXT)
+#     define Perl_utf16_to_utf8                 utf16_to_utf8
+#     define Perl_utf16_to_utf8_reversed        utf16_to_utf8_reversed
+#   endif
 #   if defined(PERL_DONT_CREATE_GVSV)
 #     define Perl_gv_SVadd                      gv_SVadd
 #   endif

proto.h

@@ -3455,22 +3455,6 @@ Perl_utf16_to_utf8_base(pTHX_ U8* p, U8* d, Size_t bytelen, Size_t *newlen,
     return d;
 }
 
-U8*
-Perl_utf16_to_utf8(pTHX_ U8* p, U8* d, Size_t bytelen, Size_t *newlen)
-{
-    PERL_ARGS_ASSERT_UTF16_TO_UTF8;
-
-    return utf16_to_utf8(p, d, bytelen, newlen);
-}
-
-U8*
-Perl_utf16_to_utf8_reversed(pTHX_ U8* p, U8* d, Size_t bytelen, Size_t *newlen)
-{
-    PERL_ARGS_ASSERT_UTF16_TO_UTF8_REVERSED;
-
-    return utf16_to_utf8_reversed(p, d, bytelen, newlen);
-}
-
 /*
  * Convert UTF-8 to native UTF-16. Called via the macros utf8_to_utf16() for
  * big-endian and utf8_to_utf16_reversed() for little-endian,