Permalink
Browse files

Add kludge to +>, <+ ops to prevent inlining bug

  • Loading branch information...
zoffixznet committed May 20, 2017
1 parent a7c23aa commit 2f22b701d4cf44fa43500edcc3450718fa7fd468
Showing with 2 additions and 0 deletions.
  1. +2 −0 src/core/Int.pm
View
@@ -401,13 +401,15 @@ multi sub infix:<+^>(Int:D \a, Int:D \b) {
#}
multi sub infix:«+<»(Int:D \a, Int:D \b --> Int:D) {
my $ignore = nqp::ctx(); # <-- kludge for RT#131306
nqp::bitshiftl_I(nqp::decont(a), nqp::unbox_i(b), Int)
}
#multi sub infix:«+<»(int $a, int $b) { RT#128655
# nqp::bitshiftl_i($a, $b);
#}
multi sub infix:«+>»(Int:D \a, Int:D \b --> Int:D) {
my $ignore = nqp::ctx(); # <-- kludge for RT#131306
nqp::bitshiftr_I(nqp::decont(a), nqp::unbox_i(b), Int)
}
#multi sub infix:«+>»(int $a, int $b) { RT#128655

0 comments on commit 2f22b70

Please sign in to comment.