Make specialized arrays and SIMD types final so that typed can unbox them
parent
60296be964
commit
ff172f4132
|
@ -251,7 +251,7 @@ BOA-EFFECT [ N "n" <array> { "v" } <effect> ]
|
|||
|
||||
WHERE
|
||||
|
||||
TUPLE: A < simd-128 ;
|
||||
TUPLE: A < simd-128 ; final
|
||||
|
||||
M: A new-underlying drop \ A boa ; inline
|
||||
M: A simd-rep drop A-rep ; inline
|
||||
|
|
|
@ -1,4 +1,4 @@
|
|||
! Copyright (C) 2008 Slava Pestov.
|
||||
! Copyright (C) 2008, 2010 Slava Pestov, Joe Groff.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors assocs sequences sorting binary-search fry math
|
||||
math.order arrays classes combinators kernel functors math.functions
|
||||
|
@ -8,7 +8,7 @@ IN: sequences.cords
|
|||
MIXIN: cord
|
||||
|
||||
TUPLE: generic-cord
|
||||
{ head read-only } { tail read-only } ;
|
||||
{ head read-only } { tail read-only } ; final
|
||||
INSTANCE: generic-cord cord
|
||||
|
||||
M: cord length
|
||||
|
@ -34,7 +34,7 @@ T-cord DEFINES-CLASS ${C}
|
|||
WHERE
|
||||
|
||||
TUPLE: T-cord
|
||||
{ head T read-only } { tail T read-only } ;
|
||||
{ head T read-only } { tail T read-only } ; final
|
||||
INSTANCE: T-cord cord
|
||||
|
||||
M: T cord-append
|
||||
|
|
|
@ -47,7 +47,7 @@ WHERE
|
|||
|
||||
TUPLE: A
|
||||
{ underlying c-ptr read-only }
|
||||
{ length array-capacity read-only } ;
|
||||
{ length array-capacity read-only } ; final
|
||||
|
||||
: <direct-A> ( alien len -- specialized-array ) A boa ; inline
|
||||
|
||||
|
|
Loading…
Reference in New Issue