From 93327b758a54c8e1ff7ee137a513caff4d077a7d Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 30 Jan 2019 10:52:41 -0700 Subject: pp.c: Don't use function call for easy copy This code is adding the UTF-8 for a Greek character to a string. It previously used Copy, but this character is representable as two bytes in both ASCII and EBCDIC UTF-8, the only character sets that Perl will ever supports, so we can use the specialized code that is used most everywhere else for two byte UTF-8 characters, avoiding the function overhead, and having to treat this character as particularly special. --- unicode_constants.h | 3 --- 1 file changed, 3 deletions(-) (limited to 'unicode_constants.h') diff --git a/unicode_constants.h b/unicode_constants.h index d5a410fc48..dfeaacc7f0 100644 --- a/unicode_constants.h +++ b/unicode_constants.h @@ -56,7 +56,6 @@ bytes. # define COMBINING_GRAVE_ACCENT_UTF8 "\xCC\x80" /* U+0300 */ # define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xCE\x99" /* U+0399 */ -# define GREEK_SMALL_LETTER_MU_UTF8 "\xCE\xBC" /* U+03BC */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xE1\xBA\x9E" /* U+1E9E */ @@ -101,7 +100,6 @@ bytes. # define COMBINING_GRAVE_ACCENT_UTF8 "\xAF\x41" /* U+0300 */ # define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xB3\x68" /* U+0399 */ -# define GREEK_SMALL_LETTER_MU_UTF8 "\xB4\x70" /* U+03BC */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xBF\x63\x72" /* U+1E9E */ @@ -146,7 +144,6 @@ bytes. # define COMBINING_GRAVE_ACCENT_UTF8 "\xAD\x41" /* U+0300 */ # define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xB2\x67" /* U+0399 */ -# define GREEK_SMALL_LETTER_MU_UTF8 "\xB3\x6A" /* U+03BC */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xBF\x62\x71" /* U+1E9E */ -- cgit v1.2.1