From e4aae0871c6ce4ed7eb339a28f571573fd85f82f Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Wed, 12 Feb 2020 17:00:19 -0800 Subject: [PATCH] opencl: use flags{ }. --- extra/opencl/opencl.factor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/extra/opencl/opencl.factor b/extra/opencl/opencl.factor index db3e64fc1e..b41ee1d877 100644 --- a/extra/opencl/opencl.factor +++ b/extra/opencl/opencl.factor @@ -2,9 +2,9 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors alien alien.c-types alien.data arrays byte-arrays combinators combinators.smart destructors -io.encodings.ascii io.encodings.string kernel libc locals make -math namespaces opencl.ffi sequences specialized-arrays -variants ; +io.encodings.ascii io.encodings.string kernel libc literals +locals make math namespaces opencl.ffi sequences +specialized-arrays variants ; IN: opencl 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 ; 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-write-access buffer-map-flags drop CL_MAP_WRITE ;