diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-13 14:19:28 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-13 14:19:28 +0000 |
| commit | e7ae6809ba5905bb2ce7c09e88c6e2bdb5c913af (patch) | |
| tree | cc4b0bc31e5af4e0e6348a9c18f42da46b937b5a /utf8.c | |
| parent | 503ec68fa54cd074101e4004bdfe3124adc2a0df (diff) | |
| download | perl-e7ae6809ba5905bb2ce7c09e88c6e2bdb5c913af.tar.gz | |
Unadorned numbers evil.
p4raw-id: //depot/perl@13672
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -903,7 +903,7 @@ Perl_is_uni_punct(pTHX_ UV c) bool Perl_is_uni_xdigit(pTHX_ UV c) { - U8 tmpbuf[UTF8_MAXLEN*2+1]; + U8 tmpbuf[UTF8_MAXLEN_UCLC+1]; uvchr_to_utf8(tmpbuf, (UV)c); return is_utf8_xdigit(tmpbuf); } @@ -911,7 +911,7 @@ Perl_is_uni_xdigit(pTHX_ UV c) UV Perl_to_uni_upper(pTHX_ UV c, U8* p, STRLEN *lenp) { - U8 tmpbuf[UTF8_MAXLEN*2+1]; + U8 tmpbuf[UTF8_MAXLEN_UCLC+1]; uvchr_to_utf8(tmpbuf, (UV)c); return to_utf8_upper(tmpbuf, p, lenp); } @@ -919,7 +919,7 @@ Perl_to_uni_upper(pTHX_ UV c, U8* p, STRLEN *lenp) UV Perl_to_uni_title(pTHX_ UV c, U8* p, STRLEN *lenp) { - U8 tmpbuf[UTF8_MAXLEN*2+1]; + U8 tmpbuf[UTF8_MAXLEN_UCLC+1]; uvchr_to_utf8(tmpbuf, (UV)c); return to_utf8_title(tmpbuf, p, lenp); } @@ -1596,8 +1596,8 @@ Perl_ibcmp_utf8(pTHX_ const char *s1, bool u1, register I32 len1, const char *s2 STRLEN la, lb; UV ca, cb; STRLEN ulen1, ulen2; - U8 tmpbuf1[UTF8_MAXLEN*3+1]; - U8 tmpbuf2[UTF8_MAXLEN*3+1]; + U8 tmpbuf1[UTF8_MAXLEN_FOLD+1]; + U8 tmpbuf2[UTF8_MAXLEN_FOLD+1]; while (a < ae && b < be) { if (u1) { |