1 //
2 // Copyright (c) 2017 The Khronos Group Inc.
3 //
4 // Licensed under the Apache License, Version 2.0 (the "License");
5 // you may not use this file except in compliance with the License.
6 // You may obtain a copy of the License at
7 //
8 // http://www.apache.org/licenses/LICENSE-2.0
9 //
10 // Unless required by applicable law or agreed to in writing, software
11 // distributed under the License is distributed on an "AS IS" BASIS,
12 // WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13 // See the License for the specific language governing permissions and
14 // limitations under the License.
15 //
16 #include "harness/compat.h"
17
18 #include <stdio.h>
19 #include <string.h>
20 #include <sys/types.h>
21 #include <sys/stat.h>
22
23 #include "procs.h"
24 #include "harness/errorHelpers.h"
25
26 #define TEST_PRIME_INT ((1<<16)+1)
27
28 const char* pipe_query_functions_kernel_code = {
29 "__kernel void test_pipe_write(__global int *src, __write_only pipe int out_pipe)\n"
30 "{\n"
31 " int gid = get_global_id(0);\n"
32 " reserve_id_t res_id;\n"
33 " res_id = reserve_write_pipe(out_pipe, 1);\n"
34 " if(is_valid_reserve_id(res_id))\n"
35 " {\n"
36 " write_pipe(out_pipe, res_id, 0, &src[gid]);\n"
37 " commit_write_pipe(out_pipe, res_id);\n"
38 " }\n"
39 "}\n"
40 "\n"
41 "__kernel void test_pipe_query_functions(__write_only pipe int out_pipe, __global int *num_packets, __global int *max_packets)\n"
42 "{\n"
43 " *max_packets = get_pipe_max_packets(out_pipe);\n"
44 " *num_packets = get_pipe_num_packets(out_pipe);\n"
45 "}\n"
46 "\n"
47 "__kernel void test_pipe_read(__read_only pipe int in_pipe, __global int *dst)\n"
48 "{\n"
49 " int gid = get_global_id(0);\n"
50 " reserve_id_t res_id;\n"
51 " res_id = reserve_read_pipe(in_pipe, 1);\n"
52 " if(is_valid_reserve_id(res_id))\n"
53 " {\n"
54 " read_pipe(in_pipe, res_id, 0, &dst[gid]);\n"
55 " commit_read_pipe(in_pipe, res_id);\n"
56 " }\n"
57 "}\n" };
58
verify_result(void * ptr1,void * ptr2,int n)59 static int verify_result(void *ptr1, void *ptr2, int n)
60 {
61 int i, sum_output = 0;
62 cl_int *outptr1 = (int *)ptr1;
63 cl_int *outptr2 = (int *)ptr2;
64 int cmp_val = ((n*3)/2) * TEST_PRIME_INT;
65
66 for(i = 0; i < n/2; i++)
67 {
68 sum_output += outptr1[i];
69 }
70 for(i = 0; i < n; i++)
71 {
72 sum_output += outptr2[i];
73 }
74 if(sum_output != cmp_val){
75 return -1;
76 }
77 return 0;
78 }
79
test_pipe_query_functions(cl_device_id deviceID,cl_context context,cl_command_queue queue,int num_elements)80 int test_pipe_query_functions(cl_device_id deviceID, cl_context context, cl_command_queue queue, int num_elements)
81 {
82 clMemWrapper pipe;
83 clMemWrapper buffers[4];
84 void *outptr1;
85 void *outptr2;
86 cl_int *inptr;
87 clProgramWrapper program;
88 clKernelWrapper kernel[3];
89 size_t global_work_size[3];
90 size_t half_global_work_size[3];
91 size_t global_work_size_pipe_query[3];
92 cl_int pipe_max_packets, pipe_num_packets;
93 cl_int err;
94 cl_int size;
95 cl_int i;
96 clEventWrapper producer_sync_event = NULL;
97 clEventWrapper consumer_sync_event = NULL;
98 clEventWrapper pipe_query_sync_event = NULL;
99 clEventWrapper pipe_read_sync_event = NULL;
100 BufferOwningPtr<cl_int> BufferInPtr;
101 BufferOwningPtr<cl_int> BufferOutPtr1;
102 BufferOwningPtr<cl_int> BufferOutPtr2;
103 MTdataHolder d(gRandomSeed);
104 const char *kernelName[] = { "test_pipe_write", "test_pipe_read",
105 "test_pipe_query_functions" };
106
107 size_t min_alignment = get_min_alignment(context);
108
109 size = sizeof(int) * num_elements;
110 global_work_size[0] = (cl_uint)num_elements;
111 half_global_work_size[0] = (cl_uint)(num_elements / 2);
112 global_work_size_pipe_query[0] = 1;
113
114 inptr = (int *)align_malloc(size, min_alignment);
115
116 for (i = 0; i < num_elements; i++)
117 {
118 inptr[i] = TEST_PRIME_INT;
119 }
120 BufferInPtr.reset(inptr, nullptr, 0, size, true);
121
122 buffers[0] = clCreateBuffer(context, CL_MEM_COPY_HOST_PTR, size, inptr, &err);
123 test_error_ret(err, " clCreateBuffer failed", -1);
124
125 outptr1 = align_malloc(size/2, min_alignment);
126 outptr2 = align_malloc(size, min_alignment);
127 BufferOutPtr1.reset(outptr1, nullptr, 0, size, true);
128 BufferOutPtr2.reset(outptr2, nullptr, 0, size, true);
129
130 buffers[1] = clCreateBuffer(context, CL_MEM_HOST_READ_ONLY, size, NULL, &err);
131 test_error_ret(err, " clCreateBuffer failed", -1);
132
133 buffers[2] = clCreateBuffer(context, CL_MEM_READ_WRITE, sizeof(int), NULL, &err);
134 test_error_ret(err, " clCreateBuffer failed", -1);
135
136 buffers[3] = clCreateBuffer(context, CL_MEM_READ_WRITE, sizeof(int), NULL, &err);
137 test_error_ret(err, " clCreateBuffer failed", -1);
138
139 pipe = clCreatePipe(context, CL_MEM_HOST_NO_ACCESS, sizeof(int), num_elements, NULL, &err);
140 test_error_ret(err, " clCreatePipe failed", -1);
141
142 // Create producer kernel
143 err = create_single_kernel_helper(
144 context, &program, &kernel[0], 1,
145 (const char **)&pipe_query_functions_kernel_code, kernelName[0]);
146 test_error_ret(err, " Error creating program", -1);
147
148 //Create consumer kernel
149 kernel[1] = clCreateKernel(program, kernelName[1], &err);
150 test_error_ret(err, " Error creating kernel", -1);
151
152 //Create pipe query functions kernel
153 kernel[2] = clCreateKernel(program, kernelName[2], &err);
154 test_error_ret(err, " Error creating kernel", -1);
155
156 err = clSetKernelArg(kernel[0], 0, sizeof(cl_mem), (void*)&buffers[0]);
157 err |= clSetKernelArg(kernel[0], 1, sizeof(cl_mem), (void*)&pipe);
158 err |= clSetKernelArg(kernel[1], 0, sizeof(cl_mem), (void*)&pipe);
159 err |= clSetKernelArg(kernel[1], 1, sizeof(cl_mem), (void*)&buffers[1]);
160 err |= clSetKernelArg(kernel[2], 0, sizeof(cl_mem), (void*)&pipe);
161 err |= clSetKernelArg(kernel[2], 1, sizeof(cl_mem), (void*)&buffers[2]);
162 err |= clSetKernelArg(kernel[2], 2, sizeof(cl_mem), (void*)&buffers[3]);
163 test_error_ret(err, " clSetKernelArg failed", -1);
164
165 // Launch Producer kernel
166 err = clEnqueueNDRangeKernel( queue, kernel[0], 1, NULL, global_work_size, NULL, 0, NULL, &producer_sync_event );
167 test_error_ret(err, " clEnqueueNDRangeKernel failed", -1);
168
169 // Launch Pipe query kernel
170 err = clEnqueueNDRangeKernel( queue, kernel[2], 1, NULL, global_work_size_pipe_query, NULL, 1, &producer_sync_event, &pipe_query_sync_event );
171 test_error_ret(err, " clEnqueueNDRangeKernel failed", -1);
172
173 err = clEnqueueReadBuffer(queue, buffers[2], true, 0, sizeof(cl_int), &pipe_num_packets, 1, &pipe_query_sync_event, NULL);
174 test_error_ret(err, " clEnqueueReadBuffer failed", -1);
175
176 err = clEnqueueReadBuffer(queue, buffers[3], true, 0, sizeof(cl_int), &pipe_max_packets, 1, &pipe_query_sync_event, NULL);
177 test_error_ret(err, " clEnqueueReadBuffer failed", -1);
178
179 if(pipe_num_packets != num_elements || pipe_max_packets != num_elements)
180 {
181 log_error("test_pipe_query_functions failed\n");
182 return -1;
183 }
184
185 // Launch Consumer kernel with half the previous global size
186 err = clEnqueueNDRangeKernel( queue, kernel[1], 1, NULL, half_global_work_size, NULL, 1, &producer_sync_event, &consumer_sync_event );
187 test_error_ret(err, " clEnqueueNDRangeKernel failed", -1);
188
189 err = clEnqueueReadBuffer(queue, buffers[1], true, 0, size / 2, outptr1, 1, &consumer_sync_event, NULL);
190 test_error_ret(err, " clEnqueueReadBuffer failed", -1);
191
192 // We will reuse this variable so release the previous referred event.
193 clReleaseEvent(pipe_query_sync_event);
194
195 // Launch Pipe query kernel
196 err = clEnqueueNDRangeKernel( queue, kernel[2], 1, NULL, global_work_size_pipe_query, NULL, 1, &consumer_sync_event, &pipe_query_sync_event );
197 test_error_ret(err, " clEnqueueNDRangeKernel failed", -1);
198
199 err = clEnqueueReadBuffer(queue, buffers[2], true, 0, sizeof(cl_int), &pipe_num_packets, 1, &pipe_query_sync_event, &pipe_read_sync_event);
200 test_error_ret(err, " clEnqueueReadBuffer failed", -1);
201
202 // After consumer kernel consumes num_elements/2 from the pipe,
203 // there are (num_elements - num_elements/2) remaining package in the pipe.
204 if(pipe_num_packets != (num_elements - num_elements/2))
205 {
206 log_error("test_pipe_query_functions failed\n");
207 return -1;
208 }
209
210 // We will reuse this variable so release the previous referred event.
211 clReleaseEvent(producer_sync_event);
212
213 // Launch Producer kernel to fill the pipe again
214 global_work_size[0] = pipe_num_packets;
215 err = clEnqueueNDRangeKernel( queue, kernel[0], 1, NULL, global_work_size, NULL, 1, &pipe_read_sync_event, &producer_sync_event );
216 test_error_ret(err, " clEnqueueNDRangeKernel failed", -1);
217
218 // We will reuse this variable so release the previous referred event.
219 clReleaseEvent(pipe_query_sync_event);
220 // Launch Pipe query kernel
221 err = clEnqueueNDRangeKernel( queue, kernel[2], 1, NULL, global_work_size_pipe_query, NULL, 1, &producer_sync_event, &pipe_query_sync_event );
222 test_error_ret(err, " clEnqueueNDRangeKernel failed", -1);
223
224 // We will reuse this variable so release the previous referred event.
225 clReleaseEvent(pipe_read_sync_event);
226 err = clEnqueueReadBuffer(queue, buffers[2], true, 0, sizeof(cl_int), &pipe_num_packets, 1, &pipe_query_sync_event, &pipe_read_sync_event);
227 test_error_ret(err, " clEnqueueReadBuffer failed", -1);
228
229 if(pipe_num_packets != num_elements)
230 {
231 log_error("test_pipe_query_functions failed\n");
232 return -1;
233 }
234
235 // We will reuse this variable so release the previous referred event.
236 clReleaseEvent(consumer_sync_event);
237
238 // Launch Consumer kernel to consume all packets from pipe
239 global_work_size[0] = pipe_num_packets;
240 err = clEnqueueNDRangeKernel( queue, kernel[1], 1, NULL, global_work_size, NULL, 1, &pipe_read_sync_event, &consumer_sync_event );
241 test_error_ret(err, " clEnqueueNDRangeKernel failed", -1);
242
243 err = clEnqueueReadBuffer(queue, buffers[1], true, 0, size, outptr2, 1, &consumer_sync_event, NULL);
244 test_error_ret(err, " clEnqueueReadBuffer failed", -1);
245
246 if( verify_result(outptr1, outptr2, num_elements )){
247 log_error("test_pipe_query_functions failed\n");
248 return -1;
249 }
250 else {
251 log_info("test_pipe_query_functions passed\n");
252 }
253 return 0;
254 }
255
256