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

opencl: use flags{ }.

master
John Benediktsson 2020-02-12 17:00:19 -08:00
parent ec0326fee9
commit e4aae0871c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/opencl/opencl.factor
View File

@ -2,9 +2,9 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien alien.c-types alien.data arrays USING: accessors alien alien.c-types alien.data arrays
byte-arrays combinators combinators.smart destructors byte-arrays combinators combinators.smart destructors
io.encodings.ascii io.encodings.string kernel libc locals make io.encodings.ascii io.encodings.string kernel libc literals
math namespaces opencl.ffi sequences specialized-arrays locals make math namespaces opencl.ffi sequences
variants ; specialized-arrays variants ;
IN: opencl IN: opencl
SPECIALIZED-ARRAYS: void* char size_t ; SPECIALIZED-ARRAYS: void* char size_t ;
@ -184,7 +184,7 @@ M: cl-read-access buffer-access-constant drop CL_MEM_READ_ONLY ;
M: cl-write-access buffer-access-constant drop CL_MEM_WRITE_ONLY ; M: cl-write-access buffer-access-constant drop CL_MEM_WRITE_ONLY ;
GENERIC: buffer-map-flags ( buffer-access-mode -- n ) GENERIC: buffer-map-flags ( buffer-access-mode -- n )
M: cl-read-write-access buffer-map-flags drop CL_MAP_READ CL_MAP_WRITE bitor ; M: cl-read-write-access buffer-map-flags drop flags{ CL_MAP_READ CL_MAP_WRITE } ;
M: cl-read-access buffer-map-flags drop CL_MAP_READ ; M: cl-read-access buffer-map-flags drop CL_MAP_READ ;
M: cl-write-access buffer-map-flags drop CL_MAP_WRITE ; M: cl-write-access buffer-map-flags drop CL_MAP_WRITE ;