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

Remove some inline flags for info words to avoid out of memory on 32-bit archs.

release
Erik Charlebois 2010-04-14 01:28:21 -07:00
parent bb0c4d94e0
commit b4a0fd8b17
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
extra/opencl/opencl.factor
View File

@ -163,6 +163,7 @@ C: <cl-buffer-range> cl-buffer-range
SYMBOLS: cl-current-context cl-current-queue cl-current-device ;
<PRIVATE
: (current-cl-context) ( -- cl-context )
cl-current-context get ; inline
@ -207,7 +208,7 @@ M: cl-filter-linear filter-mode-constant drop CL_FILTER_LINEAR ;
} case ; inline
: platform-info-string ( handle name -- string )
[ clGetPlatformInfo ] info-string ; inline
[ clGetPlatformInfo ] info-string ;
: platform-info ( id -- profile version name vendor extensions )
{
@ -236,22 +237,22 @@ M: cl-filter-linear filter-mode-constant drop CL_FILTER_LINEAR ;
} case ; inline
: device-info-bool ( handle name -- ? )
[ clGetDeviceInfo ] info-bool ; inline
[ clGetDeviceInfo ] info-bool ;
: device-info-ulong ( handle name -- ulong )
[ clGetDeviceInfo ] info-ulong ; inline
[ clGetDeviceInfo ] info-ulong ;
: device-info-uint ( handle name -- uint )
[ clGetDeviceInfo ] info-uint ; inline
[ clGetDeviceInfo ] info-uint ;
: device-info-string ( handle name -- string )
[ clGetDeviceInfo ] info-string ; inline
[ clGetDeviceInfo ] info-string ;
: device-info-size_t ( handle name -- size_t )
[ clGetDeviceInfo ] info-size_t ; inline
[ clGetDeviceInfo ] info-size_t ;
: device-info-size_t-array ( handle name -- size_t-array )
[ clGetDeviceInfo ] info-size_t-array ; inline
[ clGetDeviceInfo ] info-size_t-array ;
: device-info ( device-id -- device )
dup {
@ -316,23 +317,23 @@ M: cl-filter-linear filter-mode-constant drop CL_FILTER_LINEAR ;
] 2bi ; inline
: command-queue-info-ulong ( handle name -- ulong )
[ clGetCommandQueueInfo ] info-ulong ; inline
[ clGetCommandQueueInfo ] info-ulong ;
: sampler-info-bool ( handle name -- ? )
[ clGetSamplerInfo ] info-bool ; inline
[ clGetSamplerInfo ] info-bool ;
: sampler-info-uint ( handle name -- uint )
[ clGetSamplerInfo ] info-uint ; inline
[ clGetSamplerInfo ] info-uint ;
: program-build-info-string ( program-handle device-handle name -- string )
[ clGetProgramBuildInfo ] 2info-string ; inline
[ clGetProgramBuildInfo ] 2info-string ;
: program-build-log ( program-handle device-handle -- string )
CL_PROGRAM_BUILD_LOG program-build-info-string ; inline
CL_PROGRAM_BUILD_LOG program-build-info-string ;
: strings>char*-array ( strings -- char*-array )
[ ascii encode dup length dup malloc [ cl-not-null ]
keep &free [ -rot memcpy ] keep ] void*-array{ } map-as ; inline
keep &free [ -rot memcpy ] keep ] void*-array{ } map-as ;
: (program) ( cl-context sources -- program-handle )
[ handle>> ] dip [
@ -354,19 +355,19 @@ M: cl-filter-linear filter-mode-constant drop CL_FILTER_LINEAR ;
} case ;
: kernel-info-string ( handle name -- string )
[ clGetKernelInfo ] info-string ; inline
[ clGetKernelInfo ] info-string ;
: kernel-info-uint ( handle name -- uint )
[ clGetKernelInfo ] info-uint ; inline
[ clGetKernelInfo ] info-uint ;
: kernel-work-group-info-size_t ( handle1 handle2 name -- size_t )
[ clGetKernelWorkGroupInfo ] 2info-size_t ; inline
[ clGetKernelWorkGroupInfo ] 2info-size_t ;
: event-info-uint ( handle name -- uint )
[ clGetEventInfo ] info-uint ; inline
[ clGetEventInfo ] info-uint ;
: event-info-int ( handle name -- int )
[ clGetEventInfo ] info-int ; inline
[ clGetEventInfo ] info-int ;
: cl_command_type>command-type ( cl_command-type -- command-type )
{
@ -399,8 +400,7 @@ M: cl-filter-linear filter-mode-constant drop CL_FILTER_LINEAR ;
} case ; inline
: profiling-info-ulong ( handle name -- ulong )
[ clGetEventProfilingInfo ] info-ulong ; inline
[ clGetEventProfilingInfo ] info-ulong ;
: bind-kernel-arg-buffer ( kernel index buffer -- )
[ handle>> ] [ cl_mem heap-size ] [ handle>> <void*> ] tri*
@ -535,10 +535,10 @@ PRIVATE>
cl-kernel new-disposable swap >>handle ; inline
: cl-kernel-name ( kernel -- string )
handle>> CL_KERNEL_FUNCTION_NAME kernel-info-string ; inline
handle>> CL_KERNEL_FUNCTION_NAME kernel-info-string ;
: cl-kernel-arity ( kernel -- arity )
handle>> CL_KERNEL_NUM_ARGS kernel-info-uint ; inline
handle>> CL_KERNEL_NUM_ARGS kernel-info-uint ;
: cl-kernel-local-size ( kernel -- size )
(current-cl-device) [ handle>> ] bi@ CL_KERNEL_WORK_GROUP_SIZE kernel-work-group-info-size_t ; inline