This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
PATCH: [perl #119601] Bleadperl breaks ETHER/Devel-Declare
[perl5.git] / utf8.h
diff --git a/utf8.h b/utf8.h
index 1bca7e8..7036488 100644 (file)
--- a/utf8.h
+++ b/utf8.h
@@ -43,7 +43,7 @@
 #define uvchr_to_utf8_flags(d,uv,flags)                                        \
                             uvoffuni_to_utf8_flags(d,NATIVE_TO_UNI(uv),flags)
 #define utf8_to_uvchr_buf(s, e, lenp)                                          \
-                     utf8n_to_uvchr(s, (e) - (s), lenp,                        \
+                     utf8n_to_uvchr(s, (U8*)(e) - (U8*)(s), lenp,              \
                                     ckWARN_d(WARN_UTF8) ? 0 : UTF8_ALLOW_ANY)
 
 #define to_uni_fold(c, p, lenp) _to_uni_fold_flags(c, p, lenp, FOLD_FLAGS_FULL)