This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
https://perl5.git.perl.org / perl5.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 1462134)
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 patch | blob | blame | history

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
Unnamed repository; edit this file 'description' to name the repository.