cuda.gl: add free-resource word to release interop handles

2010-05-14 16:17:03 -07:00 · 2010-05-14 16:17:03 -07:00 · e32e0f1423
parent f9a8e90c41
commit e32e0f1423
1 changed files with 5 additions and 1 deletions
--- a/extra/cuda/gl/gl.factor
+++ b/extra/cuda/gl/gl.factor
@ -30,6 +30,10 @@ IN: cuda.gl

 DESTRUCTOR: unmap-resource

+: free-resource ( resource -- )
+    cuGraphicsUnregisterResource cuda-error ; inline
+
+DESTRUCTOR: free-resource
+
 : with-mapped-resource ( ..a resource quot: ( ..a device-ptr size -- ..b ) -- ..b )
    over [ map-resource ] 2dip '[ _ unmap-resource ] [ ] cleanup ; inline
-