steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

opencl: remove <size_t> (use size_t <ref> instead).

db4
John Benediktsson 2015-02-08 15:45:42 -08:00
parent 65d72d48bc
commit 1728e99254
3 changed files with 5 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
extra/opencl/ffi/ffi.factor
View File

@ -604,16 +604,3 @@ FUNCTION: cl_mem clCreateFromD3D11Texture2DNV ( cl_context context, cl_mem_flags
FUNCTION: cl_mem clCreateFromD3D11Texture3DNV ( cl_context context, cl_mem_flags flags, void* id3dtexture3d_resource, uint subresource, cl_int* errcode_ret ) ;
FUNCTION: cl_int clEnqueueAcquireD3D11ObjectsNV ( cl_command_queue command_queue, cl_uint num_objects, cl_mem* mem_objects, cl_uint num_events_in_wait_list, cl_event* event_wait_list, cl_event* event ) ;
FUNCTION: cl_int clEnqueueReleaseD3D11ObjectsNV ( cl_command_queue command_queue, cl_uint num_objects, cl_mem* mem_objects, cl_uint num_events_in_wait_list, cl_event* event_wait_list, cl_event* event ) ;
! Utility words needed for working with the API
: *size_t ( c-ptr -- value )
size_t heap-size {
{ 4 [ 0 alien-unsigned-4 ] }
{ 8 [ 0 alien-unsigned-8 ] }
} case ; inline
: <size_t> ( value -- c-ptr )
size_t heap-size [ (byte-array) ] keep {
{ 4 [ [ 0 set-alien-unsigned-4 ] keep ] }
{ 8 [ [ 0 set-alien-unsigned-8 ] keep ] }
} case ; inline

4
extra/opencl/opencl-tests.factor
View File

@ -31,10 +31,10 @@ __kernel void square(
"" kernel-source 1array <cl-program> &dispose "square" <cl-kernel> &dispose :> kernel
cl-read-access num-bytes in <cl-buffer> &dispose :> in-buffer
cl-write-access num-bytes f <cl-buffer> &dispose :> out-buffer
kernel in-buffer out-buffer num-floats uint <ref> 3array
{ num-floats } [ ] cl-queue-kernel &dispose drop
cl-finish
out-buffer 0 num-bytes <cl-buffer-range>

5
extra/opencl/opencl.factor
View File

@ -18,7 +18,7 @@ ERROR: cl-error err ;
dup f = [ cl-error ] [ drop ] if ; inline
: info-data-size ( handle name info-quot -- size_t )
[ 0 f 0 <size_t> ] dip [ call cl-success ] 2keep drop size_t deref ; inline
[ 0 f 0 size_t <ref> ] dip [ call cl-success ] 2keep drop size_t deref ; inline
: info-data-bytes ( handle name info-quot size -- bytes )
swap [ dup <byte-array> f ] dip [ call cl-success ] 3keep 2drop ; inline
@ -27,7 +27,7 @@ ERROR: cl-error err ;
[ 3dup info-data-size info-data-bytes ] dip call ; inline
: 2info-data-size ( handle1 handle2 name info-quot -- size_t )
[ 0 f 0 <size_t> ] dip [ call cl-success ] 2keep drop size_t deref ; inline
[ 0 f 0 size_t <ref> ] dip [ call cl-success ] 2keep drop size_t deref ; inline
: 2info-data-bytes ( handle1 handle2 name info-quot size -- bytes )
swap [ dup <byte-array> f ] dip [ call cl-success ] 3keep 2drop ; inline
@ -63,6 +63,7 @@ ERROR: cl-error err ;
[ [ length size_t heap-size / ] keep swap size_t <c-direct-array> ] info ; inline
TUPLE: cl-handle < disposable handle ;
PRIVATE>
VARIANT: cl-device-type