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

define simd equal? methods as v= vall?

db4
Joe Groff 2009-10-01 23:46:37 -05:00
parent 53b265f682
commit 01736e9bec
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/math/vectors/simd/functor/functor.factor
View File

@ -186,6 +186,9 @@ M: A clone underlying>> clone \ A boa ; inline
M: A length drop N ; inline M: A length drop N ; inline
M: A equal?
over \ A instance? [ v= vall? ] [ 2drop f ] if ;
M: A nth-unsafe underlying>> A-rep simd-nth ; inline M: A nth-unsafe underlying>> A-rep simd-nth ; inline
M: A set-nth-unsafe M: A set-nth-unsafe
@ -204,8 +207,6 @@ M: A new-sequence
[ N bad-length ] [ N bad-length ]
if ; inline if ; inline
M: A equal? over \ A instance? [ sequence= ] [ 2drop f ] if ;
M: A c:byte-length underlying>> length ; inline M: A c:byte-length underlying>> length ; inline
M: A element-type drop A-rep rep-component-type ; M: A element-type drop A-rep rep-component-type ;
@ -340,6 +341,9 @@ M: A clone
M: A length drop N ; inline M: A length drop N ; inline
M: A equal?
over \ A instance? [ v= vall? ] [ 2drop f ] if ;
: A-deref ( n seq -- n' seq' ) : A-deref ( n seq -- n' seq' )
over N/2 < [ underlying1>> ] [ [ N/2 - ] dip underlying2>> ] if \ A/2 boa ; inline over N/2 < [ underlying1>> ] [ [ N/2 - ] dip underlying2>> ] if \ A/2 boa ; inline
@ -357,8 +361,6 @@ M: A new-sequence
[ N bad-length ] [ N bad-length ]
if ; inline if ; inline
M: A equal? over \ A instance? [ sequence= ] [ 2drop f ] if ;
M: A c:byte-length drop 32 ; inline M: A c:byte-length drop 32 ; inline
M: A element-type drop A-rep rep-component-type ; M: A element-type drop A-rep rep-component-type ;