cuda.memory: use binary-object.
parent
c36a9193ae
commit
0ba693b3fa
|
@ -44,7 +44,7 @@ DESTRUCTOR: cuda-free
|
||||||
cuMemcpyDtoH cuda-error ; inline
|
cuMemcpyDtoH cuda-error ; inline
|
||||||
|
|
||||||
: host>device ( data -- ptr )
|
: host>device ( data -- ptr )
|
||||||
[ >c-ptr ] [ byte-length ] bi
|
binary-object
|
||||||
[ nip cuda-malloc dup ] [ memcpy-host>device ] 2bi ; inline
|
[ nip cuda-malloc dup ] [ memcpy-host>device ] 2bi ; inline
|
||||||
|
|
||||||
: device>host ( ptr len -- byte-array )
|
: device>host ( ptr len -- byte-array )
|
||||||
|
|
Loading…
Reference in New Issue