https://rt.perl.org/Ticket/Update.html?Action=Comment;id=125408 update

gistfile1.txt

use NativeCall;

class Foo is repr("CStruct") {
   method foo(Mu:U $type, Int $a ) {
      my @buff := CArray[$type].new;
      my $ctype = $type ~~ Num ?? Num !! Int;
      @buff[$_] = $ctype(0) for ^(10 * $a);
   }
}


for ^10 {
   say $_;
   for (int16, int32,num64, num32 ) -> $type {
      my $foo = Foo.new;
      $foo.foo($type, 10.rand.Int);
   }
}