1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
#include "utest_helper.hpp"
#define BUFFERSIZE 32*1024
void runtime_barrier_list(void)
{
const size_t n = BUFFERSIZE;
cl_int cpu_src[BUFFERSIZE];
cl_int cpu_src_2[BUFFERSIZE];
cl_event ev[5];
cl_int status = 0;
cl_int value = 34;
// Setup kernel and buffers
OCL_CREATE_KERNEL("compiler_event");
OCL_CREATE_BUFFER(buf[0], 0, BUFFERSIZE*sizeof(int), NULL);
OCL_CREATE_BUFFER(buf[1], 0, BUFFERSIZE*sizeof(int), NULL);
for(cl_uint i=0; i<BUFFERSIZE; i++)
{
cpu_src[i] = 3;
cpu_src_2[i] = 5;
}
OCL_CREATE_USER_EVENT(ev[0]);
clEnqueueWriteBuffer(queue, buf[0], CL_FALSE, 0, BUFFERSIZE*sizeof(int), (void *)cpu_src, 1, &ev[0], &ev[1]);
OCL_SET_ARG(0, sizeof(cl_mem), &buf[0]);
OCL_SET_ARG(1, sizeof(int), &value);
// Run the kernel
globals[0] = n;
locals[0] = 32;
clEnqueueNDRangeKernel(queue, kernel, 1, NULL, globals, locals, 2, &ev[0], &ev[2]);
for (cl_uint i = 0; i < 3; ++i) {
clGetEventInfo(ev[i], CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(status), &status, NULL);
OCL_ASSERT(status >= CL_SUBMITTED);
}
buf_data[0] = clEnqueueMapBuffer(queue, buf[0], CL_FALSE, 0, 0, BUFFERSIZE*sizeof(int), 1, &ev[2], NULL, NULL);
clEnqueueBarrierWithWaitList(queue, 0, NULL, &ev[3]);
clEnqueueWriteBuffer(queue, buf[1], CL_FALSE, 0, BUFFERSIZE*sizeof(int), (void *)cpu_src_2, 0, NULL, &ev[4]);
clGetEventInfo(ev[4], CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(status), &status, NULL);
OCL_ASSERT(status != CL_COMPLETE);
OCL_SET_USER_EVENT_STATUS(ev[0], CL_COMPLETE);
OCL_FINISH();
clGetEventInfo(ev[0], CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(status), &status, NULL);
OCL_ASSERT(status == CL_COMPLETE);
for (cl_uint i = 0; i != sizeof(ev) / sizeof(cl_event); ++i) {
clGetEventInfo(ev[i], CL_EVENT_COMMAND_EXECUTION_STATUS, sizeof(status), &status, NULL);
OCL_ASSERT(status <= CL_COMPLETE);
}
for (uint32_t i = 0; i < n; ++i) {
OCL_ASSERT(((int*)buf_data[0])[i] == (int)value + 0x3);
}
for (cl_uint i = 0; i != sizeof(ev) / sizeof(cl_event); ++i) {
clReleaseEvent(ev[i]);
}
}
MAKE_UTEST_FROM_FUNCTION(runtime_barrier_list);
|
