summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-05-20 17:09:37 -0600
committerKarl Williamson <khw@cpan.org>2018-06-28 22:53:47 -0600
commit957a9e817d29a86f12809f29f95d467754b8707b (patch)
tree576083549b3a7714c7d5838aa7335cbdaacc9c21 /utf8.c
parente6e9f5a198d7e054e6857a9c6e99a07d639f7f3c (diff)
downloadperl-957a9e817d29a86f12809f29f95d467754b8707b.tar.gz
utf8.c: Use abbreviations consistently
Elsewhere in this function some abbreviations were introduced and used. This is the one area not using them.
Diffstat (limited to 'utf8.c')
-rw-r--r--utf8.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/utf8.c b/utf8.c
index 4684fdb033..e3bda6e81e 100644
--- a/utf8.c
+++ b/utf8.c
@@ -387,8 +387,8 @@ Perl_uvoffuni_to_utf8_flags_msgs(pTHX_ U8 *d, UV uv, const UV flags, HV** msgs)
STRLEN len = OFFUNISKIP(uv);
U8 *p = d+len-1;
while (p > d) {
- *p-- = I8_TO_NATIVE_UTF8((uv & UTF_CONTINUATION_MASK) | UTF_CONTINUATION_MARK);
- uv >>= UTF_ACCUMULATION_SHIFT;
+ *p-- = I8_TO_NATIVE_UTF8((uv & MASK) | MARK);
+ uv >>= SHIFT;
}
*p = I8_TO_NATIVE_UTF8((uv & UTF_START_MASK(len)) | UTF_START_MARK(len));
return d+len;