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

cuda: move init-cuda from cuda.utils

db4
Joe Groff 2010-05-15 15:28:02 -07:00
parent 896cd58451
commit c1dbce85bb
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/cuda/cuda.factor
View File

@ -10,6 +10,9 @@ sequences words cuda.libraries ;
QUALIFIED-WITH: alien.c-types c QUALIFIED-WITH: alien.c-types c
IN: cuda IN: cuda
: init-cuda ( -- )
0 cuInit cuda-error ; inline
TUPLE: function-launcher TUPLE: function-launcher
dim-grid dim-block shared-size stream ; dim-grid dim-block shared-size stream ;

3
extra/cuda/utils/utils.factor
View File

@ -17,9 +17,6 @@ ERROR: throw-cuda-error n ;
: cuda-error ( n -- ) : cuda-error ( n -- )
dup CUDA_SUCCESS = [ drop ] [ throw-cuda-error ] if ; dup CUDA_SUCCESS = [ drop ] [ throw-cuda-error ] if ;
: init-cuda ( -- )
0 cuInit cuda-error ; inline
: cuda-version ( -- n ) : cuda-version ( -- n )
int <c-object> [ cuDriverGetVersion cuda-error ] keep *int ; int <c-object> [ cuDriverGetVersion cuda-error ] keep *int ;