math.vectors.simd: ensure that set-alien-vector is open-coded in the actual set-nth-unsafe method on SIMD specialized arrays, not just inlined instances
parent
9705768e3f
commit
abe72ae7ae
|
@ -9,6 +9,8 @@ IN: math.vectors.simd
|
||||||
|
|
||||||
ERROR: bad-simd-length got expected ;
|
ERROR: bad-simd-length got expected ;
|
||||||
|
|
||||||
|
ERROR: bad-simd-vector obj ;
|
||||||
|
|
||||||
<<
|
<<
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
! Primitive SIMD constructors
|
! Primitive SIMD constructors
|
||||||
|
@ -236,7 +238,10 @@ c:<c-type>
|
||||||
byte-array >>class
|
byte-array >>class
|
||||||
A >>boxed-class
|
A >>boxed-class
|
||||||
{ A-rep alien-vector A boa } >quotation >>getter
|
{ A-rep alien-vector A boa } >quotation >>getter
|
||||||
{ [ underlying>> ] 2dip A-rep set-alien-vector } >quotation >>setter
|
{
|
||||||
|
[ dup simd-128? [ bad-simd-vector ] unless underlying>> ] 2dip
|
||||||
|
A-rep set-alien-vector
|
||||||
|
} >quotation >>setter
|
||||||
16 >>size
|
16 >>size
|
||||||
16 >>align
|
16 >>align
|
||||||
A-rep >>rep
|
A-rep >>rep
|
||||||
|
|
Loading…
Reference in New Issue