[perl #126160] [BUG] uint64 does not behave unsigned

[via RT]

# New Ticket Created by  Helmut Wollmersdorfer 
# Please include the string:  [perl #126160]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=126160 >


[BUG]

[13:02] <wollmers> m: my uint64 $z = 0 +| (1 +< 62);say sprintf("%064b",$z);
[13:02] <+camelia> rakudo-moar f89dc2: 
OUTPUT«0100000000000000000000000000000000000000000000000000000000000000␤»

[13:04] <wollmers> m: my uint64 $z = 0 +| (1 +< 63);say sprintf("%064b",$z);say 
$z;
[13:04] <+camelia> rakudo-moar f89dc2: 
OUTPUT«-1000000000000000000000000000000000000000000000000000000000000000␤-9223372036854775808␤»
[13:05] <wollmers> m: my uint64 $z = 0 +| (1 +< 62);say sprintf("%064b",$z);say 
$z;
[13:05] <+camelia> rakudo-moar f89dc2: 
OUTPUT«0100000000000000000000000000000000000000000000000000000000000000␤4611686018427387904␤»
[13:05] <wollmers> m: my uint64 $z = 0 +| (1 +< 62);say sprintf("%064b",$z);say 
$z;say ($z > 0);
[13:05] <+camelia> rakudo-moar f89dc2: 
OUTPUT«0100000000000000000000000000000000000000000000000000000000000000␤4611686018427387904␤True␤»
[13:06] <wollmers> m: my uint64 $z = 0 +| (1 +< 63);say sprintf("%064b",$z);say 
$z;say ($z > 0);
[13:06] <+camelia> rakudo-moar f89dc2: 
OUTPUT«-1000000000000000000000000000000000000000000000000000000000000000␤-9223372036854775808␤False␤»
[13:07] <wollmers> m: my uint64 $z = 0 +| (1 +< 63);say sprintf("%064b",$z);say 
$z;say ($z > 0);say $z.lsb,' ',$z.msb;
[13:07] <+camelia> rakudo-moar f89dc2: 
OUTPUT«-1000000000000000000000000000000000000000000000000000000000000000␤-9223372036854775808␤False␤63
 63␤»

[13:10] <wollmers> m: my uint64 $z = +^0;say sprintf("%064b",$z);say $z;say ($z 
> 0);say $z.lsb,' ',$z.msb;
[13:10] <+camelia> rakudo-moar f89dc2: 
OUTPUT«00000000000000000000000000000000000000000000000000000000000000-1␤-1␤False␤0
 0␤»