Convert uv_to_utf8 and kin to inline functions

These used the ill-advised mTHX construct which is being entirely
removed.

Author: khwilliamson

embed.fnc

@@ -3837,13 +3837,13 @@ p	|void	|utilize	|int aver				\
 				|NN OP *idop				\
 				|NULLOK OP *arg
 
-Admp	|U8 *	|uvchr_to_utf8	|NN U8 *d				\
+Adm	|U8 *	|uvchr_to_utf8	|NN U8 *d				\
 				|UV uv
-Admp	|U8 *	|uvchr_to_utf8_flags					\
+Adm	|U8 *	|uvchr_to_utf8_flags					\
 				|NN U8 *d				\
 				|UV uv					\
 				|UV flags
-Admp	|U8 *	|uvchr_to_utf8_flags_msgs				\
+Adm	|U8 *	|uvchr_to_utf8_flags_msgs				\
 				|NN U8 *d				\
 				|UV uv					\
 				|UV flags				\
@@ -3858,13 +3858,13 @@ Cp	|U8 *	|uvoffuni_to_utf8_flags_msgs				\
 				|const UV flags 			\
 				|NULLOK HV **msgs
 
-Admp	|U8 *	|uv_to_utf8	|NN U8 *d				\
+Adip	|U8 *	|uv_to_utf8	|NN U8 *d				\
 				|UV uv
-Admp	|U8 *	|uv_to_utf8_flags					\
+Adip	|U8 *	|uv_to_utf8_flags					\
 				|NN U8 *d				\
 				|UV uv					\
 				|UV flags
-Admp	|U8 *	|uv_to_utf8_msgs|NN U8 *d				\
+Adip	|U8 *	|uv_to_utf8_msgs|NN U8 *d				\
 				|UV uv					\
 				|UV flags				\
 				|NULLOK HV **msgs

embed.h

@@ -823,12 +823,9 @@
 # define utf8n_to_uvchr                         Perl_utf8n_to_uvchr
 # define utf8n_to_uvchr_error                   Perl_utf8n_to_uvchr_error
 # define utf8n_to_uvchr_msgs                    Perl_utf8n_to_uvchr_msgs
-# define uv_to_utf8(a,b)                        Perl_uv_to_utf8(aTHX,a,b)
-# define uv_to_utf8_flags(a,b,c)                Perl_uv_to_utf8_flags(aTHX,a,b,c)
-# define uv_to_utf8_msgs(a,b,c,d)               Perl_uv_to_utf8_msgs(aTHX,a,b,c,d)
-# define uvchr_to_utf8(a,b)                     Perl_uvchr_to_utf8(aTHX,a,b)
-# define uvchr_to_utf8_flags(a,b,c)             Perl_uvchr_to_utf8_flags(aTHX,a,b,c)
-# define uvchr_to_utf8_flags_msgs(a,b,c,d)      Perl_uvchr_to_utf8_flags_msgs(aTHX,a,b,c,d)
+# define uv_to_utf8(a,b)                        Perl_uv_to_utf8(aTHX_ a,b)
+# define uv_to_utf8_flags(a,b,c)                Perl_uv_to_utf8_flags(aTHX_ a,b,c)
+# define uv_to_utf8_msgs(a,b,c,d)               Perl_uv_to_utf8_msgs(aTHX_ a,b,c,d)
 # define uvoffuni_to_utf8_flags_msgs(a,b,c,d)   Perl_uvoffuni_to_utf8_flags_msgs(aTHX_ a,b,c,d)
 # define valid_identifier_pve(a,b,c)            Perl_valid_identifier_pve(aTHX_ a,b,c)
 # define valid_identifier_pvn(a,b,c)            Perl_valid_identifier_pvn(aTHX_ a,b,c)

inline.h

@@ -3272,6 +3272,24 @@ Perl_utf8_to_uvchr_buf(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen)
     return 0;
 }
 
+PERL_STATIC_INLINE U8 *
+Perl_uv_to_utf8(pTHX_ U8 *d, UV uv)
+{
+    return uv_to_utf8_msgs(d, uv, 0, 0);
+}
+
+PERL_STATIC_INLINE U8 *
+Perl_uv_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)
+{
+    return uv_to_utf8_msgs(d, uv, flags, 0);
+}
+
+PERL_STATIC_INLINE U8 *
+Perl_uv_to_utf8_msgs(pTHX_ U8 *d, UV uv, UV flags , HV **msgs)
+{
+    return uvoffuni_to_utf8_flags_msgs(d, NATIVE_TO_UNI(uv), flags, msgs);
+}
+
 /* ------------------------------- perl.h ----------------------------- */
 
 /*

proto.h

@@ -142,12 +142,12 @@ typedef enum {
 #define uvoffuni_to_utf8_flags(d,uv,flags)                                     \
                                uvoffuni_to_utf8_flags_msgs(d, uv, flags, 0)
 
-#define Perl_uv_to_utf8(mTHX, d, u)                                         \
-        Perl_uv_to_utf8_flags(aTHX, d, u, 0)
-#define Perl_uv_to_utf8_flags(mTHX, d, u, f)                                \
-        Perl_uv_to_utf8_msgs(aTHX, d, u, f, 0)
-#define Perl_uv_to_utf8_msgs(mTHX, d, u, f , m)                             \
-        Perl_uvoffuni_to_utf8_flags_msgs(aTHX_ d, NATIVE_TO_UNI(u), f, m)
+#define uvchr_to_utf8                   uv_to_utf8
+#define uvchr_to_utf8_flags             uv_to_utf8_flags
+#define uvchr_to_utf8_flags_msgs        uv_to_utf8_msgs
+#define Perl_uvchr_to_utf8              Perl_uv_to_utf8
+#define Perl_uvchr_to_utf8_flags        Perl_uv_to_utf8_flags
+#define Perl_uvchr_to_utf8_flags_msgs   Perl_uv_to_utf8_msgs
 
 /* This is needed to cast the parameters for all those calls that had them
  * improperly as chars */
@@ -173,9 +173,6 @@ typedef enum {
 #define Perl_c9strict_utf8_to_uv(s, e, cp_p, advance_p)                     \
         Perl_utf8_to_uv_flags(   s, e, cp_p, advance_p,                     \
                                      UTF8_DISALLOW_ILLEGAL_C9_INTERCHANGE)
-#define Perl_uvchr_to_utf8              Perl_uv_to_utf8
-#define Perl_uvchr_to_utf8_flags        Perl_uv_to_utf8_flags
-#define Perl_uvchr_to_utf8_flags_msgs   Perl_uv_to_utf8_msgs
 
 #define utf16_to_utf8(p, d, bytelen, newlen)                                \
                             utf16_to_utf8_base(p, d, bytelen, newlen, 0, 1)