This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Remove unused, wrong #define in utf8.h
authorKarl Williamson <khw@khw-desktop.(none)>
Tue, 18 May 2010 16:02:26 +0000 (10:02 -0600)
committerRafael Garcia-Suarez <rgs@consttype.org>
Tue, 25 May 2010 10:17:29 +0000 (12:17 +0200)
is unused in the code, and is wrong for EBCDIC platforms, as there can
be invariants there that aren't ASCII.  I simply removed it.

utf8.h

diff --git a/utf8.h b/utf8.h
index 8765336..e58dded 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -251,8 +251,6 @@ encoded character.
 #    define UTF8_QUAD_MAX      UINT64_C(0x1000000000)
 #endif
 
-#define UTF8_IS_ASCII(c) UTF8_IS_INVARIANT(c)
-
 #define UNICODE_GREEK_CAPITAL_LETTER_SIGMA     0x03A3
 #define UNICODE_GREEK_SMALL_LETTER_FINAL_SIGMA 0x03C2
 #define UNICODE_GREEK_SMALL_LETTER_SIGMA       0x03C3