Make specialized arrays and SIMD types final so that typed can unbox them

db4
Slava Pestov 2010-02-18 02:39:40 +13:00
parent 60296be964
commit ff172f4132
3 changed files with 5 additions and 5 deletions

View File

@ -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

View File

@ -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

View File

@ -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