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


Hi,
The following code gives rise to:

Wrong kind of access to numeric CArray
  in method ASSIGN-POS at lib/NativeCall.pm:333
  in block  at tp:22

In this case it always appears after the 57th item and only when the array is 
in the third generation as here, it does not appear with MVM_SPESH_DISABLE=1 
which lrads me to believe it is something the optimiser is doing.

I think nine did a simple bisect and located it to a few weeks ago.

use v6;

use NativeCall;

my @buff := CArray[num64].new;

my @in = (^100).map({Num($_)});

for ^100 -> $i {
    @buff[$i] = @in[$i];
}

my @in2;

for ^100 -> $i {
    @in2[$i] = @buff[$i];
}

my @buff2 := CArray[num64].new;

for ^100 -> $i {
    @buff2[$i] = @in2[$i];
}




Reply via email to