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

cuda: Rename cuda-error.

db4
Doug Coleman 2013-03-24 09:41:26 -07:00
parent b39483ec70
commit c8e4fc08e9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/cuda/cuda.factor
View File

@ -10,10 +10,10 @@ sequences words ;
QUALIFIED-WITH: alien.c-types c
IN: cuda
TUPLE: cuda-error code ;
TUPLE: cuda-error-state code ;
: cuda-error ( code -- )
dup CUDA_SUCCESS = [ drop ] [ \ cuda-error boa throw ] if ;
dup CUDA_SUCCESS = [ drop ] [ \ cuda-error-state boa throw ] if ;
: cuda-version ( -- n )
{ c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;