This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.h: Add whitespace for readability
authorKarl Williamson <public@khwilliamson.com>
Fri, 3 Dec 2010 16:15:22 +0000 (09:15 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 4 Dec 2010 19:43:23 +0000 (11:43 -0800)
utf8.h

diff --git a/utf8.h b/utf8.h
index 6864b3a..8d12f8d 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -183,8 +183,8 @@ Perl's extended UTF-8 means we can have start bytes up to FF.
  * bytes from an ordinal that is known to fit into two bytes; it must be less
  * than 0x3FF to work across both encodings. */
 /* Nocast allows these to be used in the case label of a switch statement */
-#define UTF8_TWO_BYTE_HI_nocast(c)     UTF_TO_NATIVE(((c)>>UTF_ACCUMULATION_SHIFT)|UTF_START_MARK(2))
-#define UTF8_TWO_BYTE_LO_nocast(c)     UTF_TO_NATIVE(((c)&UTF_CONTINUATION_MASK)|UTF_CONTINUATION_MARK)
+#define UTF8_TWO_BYTE_HI_nocast(c)     UTF_TO_NATIVE(((c) >> UTF_ACCUMULATION_SHIFT) | UTF_START_MARK(2))
+#define UTF8_TWO_BYTE_LO_nocast(c)     UTF_TO_NATIVE(((c) & UTF_CONTINUATION_MASK) | UTF_CONTINUATION_MARK)
 
 #define UTF8_TWO_BYTE_HI(c)    ((U8) (UTF8_TWO_BYTE_HI_nocast(c)))
 #define UTF8_TWO_BYTE_LO(c)    ((U8) (UTF8_TWO_BYTE_LO_nocast(c)))