Make the bitwise shift subs on Int:D's actually use the bigint arithm…

…etic nqp ops that Moritz++ coded.
rakudo · Jan 22, 2012 · 2e84915 · 2e84915
1 parent fa821c1
commit 2e84915
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/Int.pm b/src/core/Int.pm
@@ -233,14 +233,14 @@ multi infix:<+^>(int $a, int $b) {
 }
 
 multi infix:«+<»(Int:D \$a, Int:D \$b) returns Int:D {
-    nqp::bitshiftl_i(nqp::p6decont($a), nqp::unbox_i($b));
+    nqp::bitshiftl_I(nqp::p6decont($a), nqp::unbox_i($b), Int)
 }
 multi infix:«+<»(int $a, int $b) {
     nqp::bitshiftl_i($a, $b);
 }
 
 multi infix:«+>»(Int:D \$a, Int:D \$b) returns Int:D {
-    nqp::bitshiftr_i(nqp::p6decont($a), nqp::unbox_i($b));
+    nqp::bitshiftr_I(nqp::p6decont($a), nqp::unbox_i($b), Int)
 }
 multi infix:«+>»(int $a, int $b) {
     nqp::bitshiftr_i($a, $b)