diff --git a/src/Perl6/Actions.nqp b/src/Perl6/Actions.nqp index be854a2b356..bab478a39e1 100644 --- a/src/Perl6/Actions.nqp +++ b/src/Perl6/Actions.nqp @@ -7,6 +7,7 @@ use QAST; my $wantwant := Mu; +# 2147483648 == 2**31. By adding 1 to it with add_i op, on 32-bit boxes it will overflow my int $?BITS := nqp::isgt_i(nqp::add_i(2147483648, 1), 0) ?? 64 !! 32; sub block_closure($code) {