From 0ba693b3fabf04e2aafbbed83fa2f6f12fc02547 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 20 Nov 2014 18:41:19 -0800 Subject: [PATCH] cuda.memory: use binary-object. --- extra/cuda/memory/memory.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/cuda/memory/memory.factor b/extra/cuda/memory/memory.factor index 2369851292..45bcf29e4a 100644 --- 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 )