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

fix blas library load for unix. fix reference to old empty-vector word in matrices

db4
Joe Groff 2008-07-05 15:13:48 -07:00
parent eec1758fd6
commit 954737dfeb
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/math/blas/cblas/cblas.factor
View File

@ -2,9 +2,9 @@ USING: alien alien.c-types alien.syntax kernel system combinators ;
IN: math.blas.cblas IN: math.blas.cblas
<< "cblas" { << "cblas" {
{ [ os macosx? ] [ "libcblas.dylib" "cdecl" add-library ] } { [ os macosx? ] [ "libblas.dylib" "cdecl" add-library ] }
{ [ os windows? ] [ "cblas.dll" "cdecl" add-library ] } { [ os windows? ] [ "blas.dll" "cdecl" add-library ] }
[ drop "libcblas.so" "cdecl" add-library ] [ "libblas.so" "cdecl" add-library ]
} cond >> } cond >>
LIBRARY: cblas LIBRARY: cblas

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

@ -215,7 +215,7 @@ syntax:M: blas-matrix-base clone
clone n*M.M+n*M-in-place ; clone n*M.M+n*M-in-place ;
: n*M.V ( alpha A x -- alpha*A.x ) : n*M.V ( alpha A x -- alpha*A.x )
1.0 2over [ Mheight ] dip empty-vector 1.0 2over [ Mheight ] dip <empty-vector>
n*M.V+n*V-in-place ; inline n*M.V+n*V-in-place ; inline
: M.V ( A x -- A.x ) : M.V ( A x -- A.x )