diff options
author | Karl Williamson <khw@cpan.org> | 2019-01-30 11:09:01 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-02-04 21:00:50 -0700 |
commit | 78ed8e3629d58d11345e4367dbe14b9603e8c84b (patch) | |
tree | 00480d7a4b03f540320feeeed728e3f70f597252 /unicode_constants.h | |
parent | 93327b758a54c8e1ff7ee137a513caff4d077a7d (diff) | |
download | perl-78ed8e3629d58d11345e4367dbe14b9603e8c84b.tar.gz |
pp.c: Don't use function call for easy copy
Like the previous commit, 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.
Diffstat (limited to 'unicode_constants.h')
-rw-r--r-- | unicode_constants.h | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/unicode_constants.h b/unicode_constants.h index dfeaacc7f0..5e5f2ee605 100644 --- a/unicode_constants.h +++ b/unicode_constants.h @@ -55,7 +55,6 @@ bytes. # define COMBINING_GRAVE_ACCENT_UTF8 "\xCC\x80" /* U+0300 */ -# define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xCE\x99" /* U+0399 */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xE1\xBA\x9E" /* U+1E9E */ @@ -99,7 +98,6 @@ bytes. # define COMBINING_GRAVE_ACCENT_UTF8 "\xAF\x41" /* U+0300 */ -# define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xB3\x68" /* U+0399 */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xBF\x63\x72" /* U+1E9E */ @@ -143,7 +141,6 @@ bytes. # define COMBINING_GRAVE_ACCENT_UTF8 "\xAD\x41" /* U+0300 */ -# define GREEK_CAPITAL_LETTER_IOTA_UTF8 "\xB2\x67" /* U+0399 */ # define LATIN_CAPITAL_LETTER_SHARP_S_UTF8 "\xBF\x62\x71" /* U+1E9E */ |