cuda.memory: use binary-object.

2014-11-20 18:41:19 -08:00 · 2014-11-20 18:41:19 -08:00 · 0ba693b3fa
parent c36a9193ae
commit 0ba693b3fa
1 changed files with 1 additions and 1 deletions
--- a/extra/cuda/memory/memory.factor
+++ b/extra/cuda/memory/memory.factor
@ -44,7 +44,7 @@ DESTRUCTOR: cuda-free
    cuMemcpyDtoH cuda-error ; inline

 : host>device ( data -- ptr )
-    [ >c-ptr ] [ byte-length ] bi
+    binary-object
    [ nip cuda-malloc dup ] [ memcpy-host>device ] 2bi ; inline

 : device>host ( ptr len -- byte-array )