custom_opencl fails with multiple scalar

[cdeterman]

I received an email detailing a bug with custom_opencl. When a user includes multiple scalars, the function will fail stating that the kernel arguments don't match. A reproducible example is shown below.

saxpy.cl

__kernel void SAXPY(__global float* x, __global float* y, float a, float b)
{
const int i = get_global_id(0);
y [i] += a * x [i];
}

R code

cl_args <- setup_opencl(objects = c("vclVector", "vclVector", "scalar","scalar"),
intents = c("IN", "OUT", "IN","IN"),
queues = list("SAXPY", "SAXPY", "SAXPY","SAXPY"),
kernel_maps = c("x", "y", "a","b"))
custom_opencl("saxpy.cl", cl_args, "float")

Returns the error:

error ("Error in custom_opencl("saxpy.cl", cl_args, "float") : Non OpenCL buffer kernel arguments don't match to initialized objects.").

Thanks to Tamas for reporting this bug to me.

[cdeterman]

This issue should be resolved now and will close once merged with the master branch.

[tamas-ferenci]

That indeed seems to solve the problem, thank you!