This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix tr/// compilation on VMS
authorKarl Williamson <khw@cpan.org>
Fri, 8 Nov 2019 17:14:33 +0000 (10:14 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 8 Nov 2019 17:40:18 +0000 (10:40 -0700)
64-bits on that platform require a long long, and 1UL isn't.  I should
have copied more carefully the similar code in utf8.h

(reported to me privately by Craig Berry)

op.c

diff --git a/op.c b/op.c
index db01996..593b88a 100644 (file)
--- a/op.c
+++ b/op.c
@@ -6908,7 +6908,7 @@ S_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
 
 #  ifdef UV_IS_QUAD
                                                     ,
-        (     (1UL << (6 * UTF_ACCUMULATION_SHIFT)))
+        ( ((UV) 1U << (6 * UTF_ACCUMULATION_SHIFT)))
 
 #  endif
 #endif