Make Perl_bytes_to_utf8 into a macro

This was an inline function that just called another function; a macro
uses fewer resources

Author: khwilliamson

embed.fnc

@@ -770,7 +770,7 @@ Adp	|int	|bytes_cmp_utf8 |NN const U8 *b 			\
 Adp	|U8 *	|bytes_from_utf8|NN const U8 *s 			\
 				|NN STRLEN *lenp			\
 				|NN bool *is_utf8p
-Adip	|U8 *	|bytes_to_utf8	|NN const U8 *s 			\
+Admp	|U8 *	|bytes_to_utf8	|NN const U8 *s 			\
 				|NN STRLEN *lenp
 Adp	|U8 *	|bytes_to_utf8_free_me					\
 				|NN const U8 *s 			\

embed.h

@@ -157,7 +157,6 @@
 # define block_start(a)                         Perl_block_start(aTHX_ a)
 # define bytes_cmp_utf8(a,b,c,d)                Perl_bytes_cmp_utf8(aTHX_ a,b,c,d)
 # define bytes_from_utf8(a,b,c)                 Perl_bytes_from_utf8(aTHX_ a,b,c)
-# define bytes_to_utf8(a,b)                     Perl_bytes_to_utf8(aTHX_ a,b)
 # define bytes_to_utf8_free_me(a,b,c)           Perl_bytes_to_utf8_free_me(aTHX_ a,b,c)
 # define bytes_to_utf8_temp_pv(a,b)             Perl_bytes_to_utf8_temp_pv(aTHX_ a,b)
 # define Perl_c9strict_utf8_to_uv               c9strict_utf8_to_uv
@@ -2256,13 +2255,15 @@
 #   define PerlIO_write(a,b,c)                  Perl_PerlIO_write(aTHX_ a,b,c)
 # endif /* defined(USE_PERLIO) */
 # if defined(USE_THREADS)
+#   define Perl_bytes_to_utf8(mTHX,a,b)         bytes_to_utf8(a,b)
 #   define Perl_uv_to_utf8(mTHX,a,b)            uv_to_utf8(a,b)
 #   define Perl_uv_to_utf8_flags(mTHX,a,b,c)    uv_to_utf8_flags(a,b,c)
 #   define Perl_uv_to_utf8_msgs(mTHX,a,b,c,d)   uv_to_utf8_msgs(a,b,c,d)
 #   define Perl_uvoffuni_to_utf8_flags(mTHX,a,b,c) uvoffuni_to_utf8_flags(a,b,c)
 #   define thread_locale_init()                 Perl_thread_locale_init(aTHX)
 #   define thread_locale_term()                 Perl_thread_locale_term(aTHX)
 # else
+#   define Perl_bytes_to_utf8                   bytes_to_utf8
 #   define Perl_uv_to_utf8                      uv_to_utf8
 #   define Perl_uv_to_utf8_flags                uv_to_utf8_flags
 #   define Perl_uv_to_utf8_msgs                 uv_to_utf8_msgs

inline.h

@@ -1244,12 +1244,6 @@ Perl_append_utf8_from_native_byte(const U8 byte, U8** dest)
     }
 }
 
-PERL_STATIC_INLINE U8 *
-Perl_bytes_to_utf8(pTHX_ const U8 *s, STRLEN *lenp)
-{
-    return bytes_to_utf8_free_me(s, lenp, NULL);
-}
-
 PERL_STATIC_INLINE U8 *
 Perl_bytes_to_utf8_temp_pv(pTHX_ const U8 *s, STRLEN *lenp)
 {

proto.h

@@ -1353,6 +1353,8 @@ point's representation.
 
 #define is_utf8_char_buf(buf, buf_end) isUTF8_CHAR(buf, buf_end)
 
+#define bytes_to_utf8(s, lenp)  bytes_to_utf8_free_me(s, lenp, NULL)
+
 typedef enum {
     PL_utf8_to_bytes_overwrite = 0,
     PL_utf8_to_bytes_new_memory,