Guest User

Untitled

a guest
Jan 21st, 2012
134
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.70 KB | None | 0 0
  1. diff --git a/src/core/Int.pm b/src/core/Int.pm
  2. index f0c2fdc..16bd0d9 100644
  3. --- a/src/core/Int.pm
  4. +++ b/src/core/Int.pm
  5. @@ -233,14 +233,14 @@ multi infix:<+^>(int $a, int $b) {
  6. }
  7.  
  8. multi infix:«+<»(Int:D \$a, Int:D \$b) returns Int:D {
  9. - nqp::bitshiftl_i(nqp::p6decont($a), nqp::unbox_i($b));
  10. + nqp::bitshiftl_I(nqp::p6decont($a), nqp::unbox_i($b), Int)
  11. }
  12. multi infix:«+<»(int $a, int $b) {
  13. nqp::bitshiftl_i($a, $b);
  14. }
  15.  
  16. multi infix:«+>»(Int:D \$a, Int:D \$b) returns Int:D {
  17. - nqp::bitshiftr_i(nqp::p6decont($a), nqp::unbox_i($b));
  18. + nqp::bitshiftr_I(nqp::p6decont($a), nqp::unbox_i($b), Int)
  19. }
  20. multi infix:«+>»(int $a, int $b) {
  21. nqp::bitshiftr_i($a, $b)
Advertisement
Add Comment
Please, Sign In to add comment