Document INTMAX_C, UINTMAX_C

[perl5.git] / pp_pack.c

diff --git a/pp_pack.c b/pp_pack.c
index 8ac5316..53d63f9 100644 (file)
--- a/pp_pack.c
+++ b/pp_pack.c
@@ -1808,7 +1808,7 @@ S_unpack_rec(pTHX_ tempsym_t* symptr, const char *s, const char *strbeg, const c
            }
            else {
                if (checksum < bits_in_uv) {
-                   UV mask = ((UV)1 << checksum) - 1;
+                   UV mask = nBIT_MASK(checksum);
                    cuv &= mask;
                }
                sv = newSVuv(cuv);