summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2010-11-15 10:27:02 -0700
committerFather Chrysostomos <sprout@cpan.org>2010-11-22 13:32:54 -0800
commit356979f4a7d780fd67a92a9ca6c8659bd12e7168 (patch)
tree7eb4378e2bae8870a9b01a4d52de33b44f8d065b /pp.c
parent2950f2a73354102f32ec0556ad8d0ab46743b17a (diff)
downloadperl-356979f4a7d780fd67a92a9ca6c8659bd12e7168.tar.gz
pp.c, utf8.c: Convert to use TWO_BYTE_UTF8_TO_UNI
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/pp.c b/pp.c
index 9a74280f69..ca735731b5 100644
--- a/pp.c
+++ b/pp.c
@@ -3828,7 +3828,7 @@ PP(pp_ucfirst)
/* Convert the two source bytes to a single Unicode code point
* value, change case and save for below */
- chr = UTF8_ACCUMULATE(*s, *(s+1));
+ chr = TWO_BYTE_UTF8_TO_UNI(*s, *(s+1));
if (op_type == OP_LCFIRST) { /* lower casing is easy */
U8 lower = toLOWER_LATIN1(chr);
STORE_UNI_TO_UTF8_TWO_BYTE(tmpbuf, lower);
@@ -4153,7 +4153,7 @@ PP(pp_uc)
/* Likewise, if it fits in a byte, its case change is in our
* table */
- U8 orig = UTF8_ACCUMULATE(*s, *(s+1));
+ U8 orig = TWO_BYTE_UTF8_TO_UNI(*s, *(s+1));
U8 upper = toUPPER_LATIN1_MOD(orig);
CAT_TWO_BYTE_UNI_UPPER_MOD(d, orig, upper);
s += 2;
@@ -4391,7 +4391,7 @@ PP(pp_lc)
else if (UTF8_IS_DOWNGRADEABLE_START(*s)) {
/* As do the ones in the Latin1 range */
- U8 lower = toLOWER_LATIN1(UTF8_ACCUMULATE(*s, *(s+1)));
+ U8 lower = toLOWER_LATIN1(TWO_BYTE_UTF8_TO_UNI(*s, *(s+1)));
CAT_UNI_TO_UTF8_TWO_BYTE(d, lower);
s += 2;
}