Infinite loop on CArray[].new

[p6rt]

Migrated from rt.perl.org#129256 (status was 'resolved')

Searchable as RT129256$

[p6rt]

From perl6@6dof.xyz

How to reproduce​:

  perl6 -e 'use NativeCall; CArray[uint8].new(())'

Fix (not tested)​:

--- a/lib/NativeCall/Types.pm6
+++ b/lib/NativeCall/Types.pm6
@​@​ -162,7 +162,7 @​@​ our class CArray is repr('CArray') is array_type(Pointer) {
  multi method new() { nqp​::create(self) }
  multi method new(*@​values) { self.new(@​values) }
  multi method new(@​values) {
- nextsame unless @​values;
+ nextsame unless @​values && @​values.elems > 0;
  my $result := self.new();
  my int $n = @​values.elems;
  my int $i;

[p6rt]

From @zoffixznet

Thanks for the report!

Unfortunately the fix you provided is a no-op, because empty arrays are falsy, so the check doesn't add anything extra.

The issue was the nextsame candidate was the one with the slurpy that called the current candidate back again, resulting in an infiniloop.

The issue has now been resolved in rakudo/rakudo@804bf67

Tests added in the same commit.

Cheers,
ZZ

[p6rt]

The RT System itself - Status changed from 'new' to 'open'

[p6rt]

@zoffixznet - Status changed from 'open' to 'resolved'

[p6rt]

From cedric@6dof.xyz

Many thanks!