cuda.gl: enum>number the flags argument to gl-buffer>resource so that single CUDA flag symbols can be used as arguments
parent
7c0cd6dc37
commit
5f909cf443
|
@ -1,7 +1,7 @@
|
||||||
! (c)2010 Joe Groff bsd license
|
! (c)2010 Joe Groff bsd license
|
||||||
USING: accessors alien.c-types alien.data alien.destructors
|
USING: accessors alien.c-types alien.data alien.destructors
|
||||||
continuations cuda cuda.ffi cuda.gl.ffi cuda.utils destructors
|
alien.enums continuations cuda cuda.ffi cuda.gl.ffi cuda.utils
|
||||||
fry gpu.buffers kernel ;
|
destructors fry gpu.buffers kernel ;
|
||||||
IN: cuda.gl
|
IN: cuda.gl
|
||||||
|
|
||||||
: create-gl-cuda-context ( device flags -- context )
|
: create-gl-cuda-context ( device flags -- context )
|
||||||
|
@ -13,6 +13,7 @@ IN: cuda.gl
|
||||||
[ [ create-gl-cuda-context ] (set-up-cuda-context) ] dip (with-cuda-context) ; inline
|
[ [ create-gl-cuda-context ] (set-up-cuda-context) ] dip (with-cuda-context) ; inline
|
||||||
|
|
||||||
: gl-buffer>resource ( gl-buffer flags -- resource )
|
: gl-buffer>resource ( gl-buffer flags -- resource )
|
||||||
|
enum>number
|
||||||
[ CUgraphicsResource <c-object> ] 2dip
|
[ CUgraphicsResource <c-object> ] 2dip
|
||||||
[ cuGraphicsGLRegisterBuffer cuda-error ] 3keep 2drop *void* ; inline
|
[ cuGraphicsGLRegisterBuffer cuda-error ] 3keep 2drop *void* ; inline
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue