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

specialized-arrays: fix clone method

db4
Slava Pestov 2009-09-03 02:24:03 -05:00
parent edbe9c4279
commit 10297b66ce
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -81,7 +81,7 @@ SYNTAX: A{ \ } [ >A ] parse-literal ;
INSTANCE: A sequence INSTANCE: A sequence
INSTANCE: A S INSTANCE: A S
A T c-type-boxed-class specialize-vector-words A T c-type-boxed-class f specialize-vector-words
T c-type T c-type
\ A >>array-class \ A >>array-class

9
basis/specialized-arrays/specialized-arrays-tests.factor
View File

@ -3,7 +3,8 @@ USING: tools.test specialized-arrays sequences
specialized-arrays.int specialized-arrays.bool specialized-arrays.int specialized-arrays.bool
specialized-arrays.ushort alien.c-types accessors kernel specialized-arrays.ushort alien.c-types accessors kernel
specialized-arrays.direct.int specialized-arrays.char specialized-arrays.direct.int specialized-arrays.char
specialized-arrays.uint arrays combinators ; specialized-arrays.uint specialized-arrays.float
arrays combinators compiler ;
[ t ] [ { 1 2 3 } >int-array int-array? ] unit-test [ t ] [ { 1 2 3 } >int-array int-array? ] unit-test
@ -27,4 +28,8 @@ specialized-arrays.uint arrays combinators ;
[ { 3 1 3 3 7 } ] [ [ { 3 1 3 3 7 } ] [
int-array{ 3 1 3 3 7 } malloc-byte-array 5 <direct-int-array> >array int-array{ 3 1 3 3 7 } malloc-byte-array 5 <direct-int-array> >array
] unit-test ] unit-test
[ f ] [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] unit-test
[ f ] [ [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] compile-call ] unit-test