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

cuda: use ERROR:.

db4
John Benediktsson 2013-03-24 14:24:21 -07:00
parent 394af82b1f
commit 49d3338c70
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 QUALIFIED-WITH: alien.c-types c
IN: cuda IN: cuda
TUPLE: cuda-error-state code ; ERROR: cuda-error-state code ;
: cuda-error ( code -- ) : cuda-error ( code -- )
dup CUDA_SUCCESS = [ drop ] [ \ cuda-error-state boa throw ] if ; dup CUDA_SUCCESS = [ drop ] [ cuda-error-state ] if ;
: cuda-version ( -- n ) : cuda-version ( -- n )
{ c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ; { c:int } [ cuDriverGetVersion cuda-error ] with-out-parameters ;