Thanks for the report. This is now fixed.
Fix:
https://github.com/MoarVM/MoarVM/commit/362277b79f
https://github.com/perl6/nqp/commit/9763728215
https://github.com/rakudo/rakudo/commit/66e8e72c02
https://github.com/rakudo/rakudo/commit/ef29bb9f41
Tests:
https://github.com/perl
Thanks for the report. This is now fixed.
Fix:
https://github.com/MoarVM/MoarVM/commit/362277b79f
https://github.com/perl6/nqp/commit/9763728215
https://github.com/rakudo/rakudo/commit/66e8e72c02
https://github.com/rakudo/rakudo/commit/ef29bb9f41
Tests:
https://github.com/perl
Found where the problem was. Sent a PR[^1] to MoarVM to fix it and will commit
Rakudo's patch and tests once that's merged.
[1] https://github.com/MoarVM/MoarVM/pull/593
Found where the problem was. Sent a PR[^1] to MoarVM to fix it and will commit
Rakudo's patch and tests once that's merged.
[1] https://github.com/MoarVM/MoarVM/pull/593
On Tue, 09 May 2017 09:49:37 -0700, c...@tilmes.org wrote:
> m: my $i = -0x8000; say ($i div 2**12) == ($i +> 12) ??
> 'good' !! 'bad';
> rakudo-moar 6bb1b5: OUTPUT: «good»
> m: my $i = -0x8000; say ($i div 2**37) == ($i +> 37) ??
> 'good' !! 'bad';
> rakudo-moar 6bb1b5
On Tue, 09 May 2017 09:49:37 -0700, c...@tilmes.org wrote:
> m: my $i = -0x8000; say ($i div 2**12) == ($i +> 12) ??
> 'good' !! 'bad';
> rakudo-moar 6bb1b5: OUTPUT: «good»
> m: my $i = -0x8000; say ($i div 2**37) == ($i +> 37) ??
> 'good' !! 'bad';
> rakudo-moar 6bb1b5
# New Ticket Created by Curt Tilmes
# Please include the string: [perl #131278]
# in the subject line of all future correspondence about this issue.
# https://rt.perl.org/Ticket/Display.html?id=131278 >
m: my $i = -0x8000; say ($i div 2**12) == ($i +> 12) ??
'good' !! 'bad';
rak
