Add cluCreateCommandQueue()

1 files changed, 17 insertions, 0 deletions

diff --git a/util.c b/util.c
index 3c0339d..e85bda1 100644
--- a/util.c
+++ b/util.c
@@ -106,6 +106,23 @@ unsigned cluCreateContext(cl_context * context, cl_device_id device_id)
    return 1;
 }
 
+unsigned cluCreateCommandQueue(cl_command_queue * command_queue,
+                               cl_context context, cl_device_id device_id)
+{
+   cl_int error;
+   *command_queue = clCreateCommandQueue(context,
+                                        device_id,
+                                        0, /* Command queue properties */
+                                        &error); /* Error code */
+
+   if (error != CL_SUCCESS) {
+      fprintf(stderr, "clCreateCommandQueue() failed: %s\n",
+                      cluErrorString(error));
+      return 0;
+   }
+   return 1;
+}
+
 #define CODE_CHUNK 64
 
 unsigned cluCreateKernel(cl_context context, cl_device_id device_id,