: cuda-global* ( module-name symbol-name -- device-ptr size )
[ { CUdeviceptr { c:uint initial: 0 } } ] 2dip
- [ cached-module ] dip
+ [ cached-module ] dip
'[ _ _ cuModuleGetGlobal cuda-error ] with-out-parameters ; inline
: cuda-global ( module-name symbol-name -- device-ptr )
: add-cuda-library ( name abi path -- )
normalize-path <cuda-library>
dup name>> cuda-libraries get-global set-at ;
-