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
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
63975e6
)
Use UINT64_C() for 64-bit constant.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 28 Nov 2017 05:19:01 +0000
(07:19 +0200)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 28 Nov 2017 05:19:01 +0000
(07:19 +0200)
inline.h
patch
|
blob
|
blame
|
history
diff --git
a/inline.h
b/inline.h
index
dfad907
..
98d9edc
100644
(file)
--- a/
inline.h
+++ b/
inline.h
@@
-400,7
+400,7
@@
S_is_utf8_invariant_string_loc(const U8* const s, STRLEN len, const U8 ** ep)
# define PERL_VARIANTS_WORD_MASK 0x80808080
# define PERL_WORD_BOUNDARY_MASK 0x3
# elif PERL_WORDSIZE == 8
-# define PERL_VARIANTS_WORD_MASK
0x8080808080808080
+# define PERL_VARIANTS_WORD_MASK
UINT64_C(0x8080808080808080)
# define PERL_WORD_BOUNDARY_MASK 0x7
# else
# error Unexpected word size