diff options
Diffstat (limited to 'utfebcdic.h')
-rw-r--r-- | utfebcdic.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/utfebcdic.h b/utfebcdic.h index 09defa9bd0..9ab6de4728 100644 --- a/utfebcdic.h +++ b/utfebcdic.h @@ -146,8 +146,8 @@ END_EXTERN_C #define I8_TO_NATIVE_UTF8(b) (__ASSERT_(FITS_IN_8_BITS(b)) PL_utf2e[(U8)(b)]) /* Transforms in wide UV chars */ -#define NATIVE_TO_UNI(ch) (FITS_IN_8_BITS(ch) ? NATIVE_TO_LATIN1(ch) : (ch)) -#define UNI_TO_NATIVE(ch) (FITS_IN_8_BITS(ch) ? LATIN1_TO_NATIVE(ch) : (ch)) +#define NATIVE_TO_UNI(ch) (FITS_IN_8_BITS(ch) ? NATIVE_TO_LATIN1(ch) : (UV) (ch)) +#define UNI_TO_NATIVE(ch) (FITS_IN_8_BITS(ch) ? LATIN1_TO_NATIVE(ch) : (UV) (ch)) /* How wide can a single UTF-8 encoded character become in bytes. */ /* NOTE: Strictly speaking Perl's UTF-8 should not be called UTF-8 since UTF-8 |