# New Ticket Created by Zoffix Znet
# Please include the string: [perl #131306]
# in the subject line of all future correspondence about this issue.
# <URL: https://rt.perl.org/Ticket/Display.html?id=131306 >
Before ef29bb9f41aa5d[^1], the +> op special cased large shifts and large
numbers. Now that special-casing was removed,
it works fine in the first few runs, but then starts giving incorrect results
(setting MVM_SPESH_DISABLE fixes the issue).
I couldn't repro it with *just* the `+>` op, but only in this combination:
<Zoffix_> c: ef29bb9f41aa5d sub rotr(uint32 $n, uint32 $b) { $n +> $b +| $n +<
(32 - $b) }; say rotr 1652322944, 18; my $x; for ^1000 { $x = rotr 1652322944,
18 }; say $x
<committable6> Zoffix_, ¦ef29bb9: «2707165912079927071659114496»
<Zoffix_> c: ef29bb9f41aa5d~1 sub rotr(uint32 $n, uint32 $b) { $n +> $b +| $n
+< (32 - $b) }; say rotr 1652322944, 18; my $x; for ^1000 { $x = rotr
1652322944, 18 }; say $x
<committable6> Zoffix_, ¦ef29bb9f41aa5d~1: «2707165912079927071659120799»
[1] https://github.com/rakudo/rakudo/commit/ef29bb9f41aa5d