diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-11-21 16:58:30 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-11-21 17:20:24 -0700 |
| commit | 880d3d38e51b563e24201397c8ab4f960508d33e (patch) | |
| tree | 771fce1888f58562a22fd95a123d8cfc72323375 /utf8.h | |
| parent | 2f454f119a96b1967d2f23688383ce7c84a497d6 (diff) | |
| download | perl-880d3d38e51b563e24201397c8ab4f960508d33e.tar.gz | |
utf8.h: Add missing parens
These weren't caught because it only is compiled on an EBCDIC platform,
and I had to fake it to force the compilation
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -310,7 +310,7 @@ Perl's extended UTF-8 means we can have start bytes up to FF. */ #ifdef EBCDIC /* Both versions assume well-formed UTF8 */ # define UTF8_IS_SURROGATE(s) (*(s) == UTF_TO_NATIVE(0xF1) \ - && (*((s) +1) == UTF_TO_NATIVE(0xB6)) || *((s) + 1) == UTF_TO_NATIVE(0xB7)) + && ((*((s) +1) == UTF_TO_NATIVE(0xB6)) || *((s) + 1) == UTF_TO_NATIVE(0xB7))) #else # define UTF8_IS_SURROGATE(s) (*(s) == 0xED && *((s) + 1) >= 0xA0) #endif |