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

cuda.gl: with-mapped-cuda-buffer helper word

db4
Joe Groff 2010-05-25 00:37:15 -07:00
parent ee995b4770
commit bbe156f3de
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,3 +50,6 @@ TUPLE: cuda-buffer
M: cuda-buffer dispose M: cuda-buffer dispose
[ [ free-resource ] when* f ] change-resource [ [ free-resource ] when* f ] change-resource
buffer>> dispose ; inline buffer>> dispose ; inline
: with-mapped-cuda-buffer ( ..a cuda-buffer quot: ( ..a device-ptr size -- ..b ) -- ..b )
[ resource>> ] dip with-mapped-resource ; inline