diff options
| author | Karl Williamson <khw@cpan.org> | 2021-06-30 18:27:12 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2021-08-14 09:44:57 -0600 |
| commit | 5fd26678bf8c8b48b9fdad829c928780cd445d2e (patch) | |
| tree | d1e751d5a595c15f4079d320f9bf58fd41d87109 /embed.h | |
| parent | 27099574415e78f6fc05276c1c8cb07cd825fe35 (diff) | |
| download | perl-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.h | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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) |