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

update math.blas for <c-array> change

db4
Joe Groff 2009-08-30 22:37:58 -05:00
parent 509ed99c79
commit ccb27f81ea
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/blas/matrices/matrices.factor
View File

@ -132,7 +132,7 @@ M: blas-matrix-base clone
! XXX try rounding stride to next 128 bit bound for better vectorizin' ! XXX try rounding stride to next 128 bit bound for better vectorizin'
: <empty-matrix> ( rows cols exemplar -- matrix ) : <empty-matrix> ( rows cols exemplar -- matrix )
[ element-type [ * ] dip <c-array> ] [ element-type heap-size * * <byte-array> ]
[ 2drop ] [ 2drop ]
[ f swap (blas-matrix-like) ] 3tri ; [ f swap (blas-matrix-like) ] 3tri ;

4
basis/math/blas/vectors/vectors.factor
View File

@ -99,12 +99,12 @@ PRIVATE>
length v inc>> v (blas-vector-like) ; length v inc>> v (blas-vector-like) ;
: <zero-vector> ( exemplar -- zero ) : <zero-vector> ( exemplar -- zero )
[ element-type <c-object> ] [ element-type heap-size <byte-array> ]
[ length>> 0 ] [ length>> 0 ]
[ (blas-vector-like) ] tri ; [ (blas-vector-like) ] tri ;
: <empty-vector> ( length exemplar -- vector ) : <empty-vector> ( length exemplar -- vector )
[ element-type <c-array> ] [ element-type heap-size * <byte-array> ]
[ 1 swap ] 2bi [ 1 swap ] 2bi
(blas-vector-like) ; (blas-vector-like) ;