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

@@ -775,7 +775,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
@@ -2271,6 +2270,7 @@
 #   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_do_open(mTHX,a,b,c,d,e,f,g)     do_open(a,b,c,d,e,f,g)
 #   define Perl_gv_AVadd(mTHX,a)                gv_AVadd(a)
 #   define Perl_gv_HVadd(mTHX,a)                gv_HVadd(a)
@@ -2338,6 +2338,7 @@
 #     define Perl_gv_SVadd(mTHX,a)              gv_SVadd(a)
 #   endif
 # else /* if !defined(USE_THREADS) */
+#   define Perl_bytes_to_utf8                   bytes_to_utf8
 #   define Perl_do_open                         do_open
 #   define Perl_gv_AVadd                        gv_AVadd
 #   define Perl_gv_HVadd                        gv_HVadd

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,