Can bind to native type attributes in build methods

RT#127845: https://rt.perl.org/Ticket/Display.html?id=127845
Rakudo fix: rakudo/rakudo@77a2ff13d2828eb36da

S12-construction/named-params-in-BUILD.t

@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 3;
+plan 4;
 # L<S12/Semantics of C<bless>/The default BUILD and BUILDALL>
 
 class Foo {
@@ -20,4 +20,24 @@ is( $obj.v, 'bar',
 isa-ok($obj.v, Str, 'same arg should be of declared type' );
 isa-ok($obj, Foo, 'The object was constructed of the right type');
 
+subtest 'can bind to native type attributes in build methods' => {
+    plan 4;
+
+    my class RT127845 {
+        has num32 $.a;
+        has num   $.b;
+        has uint8 $.x;
+        has int   $.y;
+        submethod BUILD(uint8 :$!x, :$!b) { }
+        submethod TWEAK(num32 :$!a, :$!y) { }
+    }
+
+    my $o := RT127845.new: :a(2e0), :b(3e-1), :5x, :6y;
+
+    is-deeply $o.x, 5,    'can bind to native type attributes in signature of BUILD (1)';
+    is-deeply $o.b, 3e-1, 'can bind to native type attributes in signature of BUILD (2)';
+    is-deeply $o.y, 6,    'can bind to native type attributes in signature of TWEAK (1)';
+    is-deeply $o.a, 2e0,  'can bind to native type attributes in signature of TWEAK (2)';
+}
+
 # vim: ft=perl6