Use new embed.fnc implementation for uv_to_utf8

khwilliamson · khwilliamson · commit 5222b777cdb0 · 2025-07-11T05:41:34.000-06:00
This shows how the new capability works for replacing elements with a thread
context parameter that have an inline function
diff --git a/embed.fnc b/embed.fnc
@@ -3857,8 +3857,9 @@ Cp	|U8 *	|uvoffuni_to_utf8_flags_msgs				\
 				|const UV flags 			\
 				|NULLOK HV **msgs
 
-Adip	|U8 *	|uv_to_utf8	|NN U8 *d				\
-				|UV uv
+Adp	|U8 *	|uv_to_utf8	|NN U8 *d				\
+				|UV uv					\
+	      = uv_to_utf8_flags(d,uv,0)
 Adip	|U8 *	|uv_to_utf8_flags					\
 				|NN U8 *d				\
 				|UV uv					\
diff --git a/embed.h b/embed.h
@@ -826,7 +826,7 @@
 # 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(d,uv)                       uv_to_utf8_flags(d,uv,0)
 # 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)
@@ -2263,10 +2263,12 @@
 # endif /* defined(USE_PERLIO) */
 # if defined(USE_THREADS)
 #   define Perl_sv_setsv(mTHX,dsv,ssv)          Perl_sv_setsv_flags(mTHX,dsv,ssv,SV_GMAGIC|SV_DO_COW_SVSETSV)
+#   define Perl_uv_to_utf8(mTHX,d,uv)           Perl_uv_to_utf8_flags(mTHX,d,uv,0)
 #   define thread_locale_init()                 Perl_thread_locale_init(aTHX)
 #   define thread_locale_term()                 Perl_thread_locale_term(aTHX)
 # else
 #   define Perl_sv_setsv                        sv_setsv
+#   define Perl_uv_to_utf8                      uv_to_utf8
 # endif
 # if defined(VMS) || defined(WIN32)
 #   define do_aspawn(a,b,c)                     Perl_do_aspawn(aTHX_ a,b,c)
diff --git a/inline.h b/inline.h
@@ -3272,18 +3272,11 @@ 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)
 {
diff --git a/proto.h b/proto.h

Original file line number	Diff line number	Diff line change
`@@ -3272,18 +3272,11 @@ Perl_utf8_to_uvchr_buf(pTHX_ const U8 s, const U8 send, STRLEN *retlen)`
`3272`	`3272`	`return 0;`
`3273`	`3273`	`}`
`3274`	`3274`
`3275`		`-PERL_STATIC_INLINE U8 *`
`3276`		`-Perl_uv_to_utf8(pTHX_ U8 *d, UV uv)`
`3277`		`-{`
`3278`		`- return uv_to_utf8_msgs(d, uv, 0, 0);`
`3279`		`-}`
`3280`		`-`
`3281`	`3275`	`PERL_STATIC_INLINE U8 *`
`3282`	`3276`	`Perl_uv_to_utf8_flags(pTHX_ U8 *d, UV uv, UV flags)`
`3283`	`3277`	`{`
`3284`	`3278`	`return uv_to_utf8_msgs(d, uv, flags, 0);`
`3285`	`3279`	`}`
`3286`		`-`
`3287`	`3280`	`PERL_STATIC_INLINE U8 *`
`3288`	`3281`	`Perl_uv_to_utf8_msgs(pTHX_ U8 d, UV uv, UV flags , HV *msgs)`
`3289`	`3282`	`{`