steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/vectors/simd/simd.factor
View File

@ -251,7 +251,7 @@ BOA-EFFECT [ N "n" <array> { "v" } <effect> ]
WHERE WHERE
TUPLE: A < simd-128 ; TUPLE: A < simd-128 ; final
M: A new-underlying drop \ A boa ; inline M: A new-underlying drop \ A boa ; inline
M: A simd-rep drop A-rep ; inline M: A simd-rep drop A-rep ; inline

6
basis/sequences/cords/cords.factor
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. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs sequences sorting binary-search fry math USING: accessors assocs sequences sorting binary-search fry math
math.order arrays classes combinators kernel functors math.functions math.order arrays classes combinators kernel functors math.functions
@ -8,7 +8,7 @@ IN: sequences.cords
MIXIN: cord MIXIN: cord
TUPLE: generic-cord TUPLE: generic-cord
{ head read-only } { tail read-only } ; { head read-only } { tail read-only } ; final
INSTANCE: generic-cord cord INSTANCE: generic-cord cord
M: cord length M: cord length
@ -34,7 +34,7 @@ T-cord DEFINES-CLASS ${C}
WHERE WHERE
TUPLE: T-cord TUPLE: T-cord
{ head T read-only } { tail T read-only } ; { head T read-only } { tail T read-only } ; final
INSTANCE: T-cord cord INSTANCE: T-cord cord
M: T cord-append M: T cord-append

2
basis/specialized-arrays/specialized-arrays.factor
View File

@ -47,7 +47,7 @@ WHERE
TUPLE: A TUPLE: A
{ underlying c-ptr read-only } { 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 : <direct-A> ( alien len -- specialized-array ) A boa ; inline