summaryrefslogtreecommitdiff
path: root/embed.h
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2021-06-30 18:27:12 -0600
committerKarl Williamson <khw@cpan.org>2021-08-14 09:44:57 -0600
commit5fd26678bf8c8b48b9fdad829c928780cd445d2e (patch)
treed1e751d5a595c15f4079d320f9bf58fd41d87109 /embed.h
parent27099574415e78f6fc05276c1c8cb07cd825fe35 (diff)
downloadperl-5fd26678bf8c8b48b9fdad829c928780cd445d2e.tar.gz
Improve utf16_to_utf8_reversed()
Instead of destroying the input by first swapping the bytes, this calls a base function with the order to use. The non-reverse function is changed to call the base function with the non-reversed order.
Diffstat (limited to 'embed.h')
-rw-r--r--embed.h3
1 files changed, 1 insertions, 2 deletions
diff --git a/embed.h b/embed.h
index 8e9b3779dc..32edcf4c04 100644
--- a/embed.h
+++ b/embed.h
@@ -975,8 +975,7 @@
#define skipspace_flags(a,b) Perl_skipspace_flags(aTHX_ a,b)
#define sv_magicext_mglob(a) Perl_sv_magicext_mglob(aTHX_ a)
#define sv_only_taint_gmagic Perl_sv_only_taint_gmagic
-#define utf16_to_utf8(a,b,c,d) Perl_utf16_to_utf8(aTHX_ a,b,c,d)
-#define utf16_to_utf8_reversed(a,b,c,d) Perl_utf16_to_utf8_reversed(aTHX_ a,b,c,d)
+#define utf16_to_utf8_base(a,b,c,d,e,f) Perl_utf16_to_utf8_base(aTHX_ a,b,c,d,e,f)
#define validate_proto(a,b,c,d) Perl_validate_proto(aTHX_ a,b,c,d)
#define vivify_defelem(a) Perl_vivify_defelem(aTHX_ a)
#define yylex() Perl_yylex(aTHX)