diff options
| author | Andy Lester <andy@petdance.com> | 2005-05-04 23:55:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-05-07 17:15:45 +0000 |
| commit | 4373e329bbd25cac77cfe128757db8cbb63c47bb (patch) | |
| tree | 0f56bb79f020f97f6f453ae711bed9154d9608e6 /utf8.c | |
| parent | 892b45be8fb48b672b1d646c00fb1b9bac292d07 (diff) | |
| download | perl-4373e329bbd25cac77cfe128757db8cbb63c47bb.tar.gz | |
GCC attributes!
Message-ID: <20050504215540.GA20413@petdance.com>
p4raw-id: //depot/perl@24414
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -611,7 +611,7 @@ Perl_utf8_length(pTHX_ const U8 *s, const U8 *e) return 0; } while (s < e) { - U8 t = UTF8SKIP(s); + const U8 t = UTF8SKIP(s); if (e - s < t) { if (ckWARN_d(WARN_UTF8)) { @@ -671,7 +671,7 @@ Perl_utf8_distance(pTHX_ const U8 *a, const U8 *b) } else { while (b < a) { - U8 c = UTF8SKIP(b); + const U8 c = UTF8SKIP(b); if (a - b < c) { if (ckWARN_d(WARN_UTF8)) { @@ -705,7 +705,7 @@ on the first byte of character or just after the last byte of a character. */ U8 * -Perl_utf8_hop(pTHX_ U8 *s, I32 off) +Perl_utf8_hop(pTHX_ const U8 *s, I32 off) { /* Note: cannot use UTF8_IS_...() too eagerly here since e.g * the bitops (especially ~) can create illegal UTF-8. @@ -722,7 +722,7 @@ Perl_utf8_hop(pTHX_ U8 *s, I32 off) s--; } } - return s; + return (U8 *)s; } /* |