2 // Copyright 2012 Francisco Jerez
4 // Permission is hereby granted, free of charge, to any person obtaining a
5 // copy of this software and associated documentation files (the "Software"),
6 // to deal in the Software without restriction, including without limitation
7 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
8 // and/or sell copies of the Software, and to permit persons to whom the
9 // Software is furnished to do so, subject to the following conditions:
11 // The above copyright notice and this permission notice shall be included in
12 // all copies or substantial portions of the Software.
14 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
15 // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
16 // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
17 // THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
18 // OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
19 // ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
20 // OTHER DEALINGS IN THE SOFTWARE.
23 #include "api/util.hpp"
24 #include "core/queue.hpp"
26 using namespace clover
;
28 PUBLIC cl_command_queue
29 clCreateCommandQueue(cl_context d_ctx
, cl_device_id d_dev
,
30 cl_command_queue_properties props
,
31 cl_int
*errcode_ret
) try {
32 auto &ctx
= obj(d_ctx
);
33 auto &dev
= obj(d_dev
);
35 if (!ctx
.has_device(dev
))
36 throw error(CL_INVALID_DEVICE
);
38 if (props
& ~(CL_QUEUE_OUT_OF_ORDER_EXEC_MODE_ENABLE
|
39 CL_QUEUE_PROFILING_ENABLE
))
40 throw error(CL_INVALID_VALUE
);
42 ret_error(errcode_ret
, CL_SUCCESS
);
43 return new command_queue(ctx
, dev
, props
);
46 ret_error(errcode_ret
, e
);
51 clRetainCommandQueue(cl_command_queue q
) {
53 return CL_INVALID_COMMAND_QUEUE
;
60 clReleaseCommandQueue(cl_command_queue q
) {
62 return CL_INVALID_COMMAND_QUEUE
;
71 clGetCommandQueueInfo(cl_command_queue q
, cl_command_queue_info param
,
72 size_t size
, void *r_buf
, size_t *r_size
) try {
73 property_buffer buf
{ r_buf
, size
, r_size
};
76 return CL_INVALID_COMMAND_QUEUE
;
79 case CL_QUEUE_CONTEXT
:
80 buf
.as_scalar
<cl_context
>() = &q
->ctx
;
84 buf
.as_scalar
<cl_device_id
>() = &q
->dev
;
87 case CL_QUEUE_REFERENCE_COUNT
:
88 buf
.as_scalar
<cl_uint
>() = q
->ref_count();
91 case CL_QUEUE_PROPERTIES
:
92 buf
.as_scalar
<cl_command_queue_properties
>() = q
->props();
96 throw error(CL_INVALID_VALUE
);
106 clFlush(cl_command_queue q
) {
108 return CL_INVALID_COMMAND_QUEUE
;