diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-06-26 12:05:24 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2013-08-29 09:56:08 -0600 |
| commit | a3481822e07c32c1f394cd35adc5080a45f628d7 (patch) | |
| tree | 850181bcc40ed245196994468f45591df5bd61b5 /utf8.h | |
| parent | 632ccf214450c821ffad251189a1b84ad231c2fe (diff) | |
| download | perl-a3481822e07c32c1f394cd35adc5080a45f628d7.tar.gz | |
utf8.h: Fix UTF8_IS_SUPER defn for EBCDIC
The parentheses were misplaced, so it wasn't looking at the second byte
of the input string properly.
Diffstat (limited to 'utf8.h')
| -rw-r--r-- | utf8.h | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -462,7 +462,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_SUPER(s) (NATIVE_UTF8_TO_I8(* (U8*) (s)) >= 0xF9 \ && (NATIVE_UTF8_TO_I8(* (U8*) (s)) > 0xF9 \ - || (NATIVE_UTF8_TO_I8(* (U8*) ((s)) + 1 >= 0xA2)))) + || (NATIVE_UTF8_TO_I8(* ((U8*) (s) + 1)) >= 0xA2))) #else # define UTF8_IS_SUPER(s) (*(U8*) (s) >= 0xF4 \ && (*(U8*) (s) > 0xF4 || (*((U8*) (s) + 1) >= 0x90))) |