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 <stdlib.h>
20 #include <string.h>
21 #include <sys/types.h>
22 #include <sys/stat.h>
23
24 #include "procs.h"
25
test_arrayimagecopy_single_format(cl_device_id device,cl_context context,cl_command_queue queue,cl_image_format * format)26 int test_arrayimagecopy_single_format(cl_device_id device, cl_context context, cl_command_queue queue, cl_image_format *format)
27 {
28 cl_uchar *bufptr, *imgptr;
29 clMemWrapper buffer, image;
30 int img_width = 512;
31 int img_height = 512;
32 size_t elem_size;
33 size_t buffer_size;
34 int i;
35 cl_int err;
36 MTdata d;
37 cl_event copyevent;
38
39 log_info("Testing %s %s\n", GetChannelOrderName(format->image_channel_order), GetChannelTypeName(format->image_channel_data_type));
40
41 image = create_image_2d(context, (cl_mem_flags)(CL_MEM_READ_WRITE), format, img_width, img_height, 0, NULL, &err);
42 test_error(err, "create_image_2d failed");
43
44 err = clGetImageInfo(image, CL_IMAGE_ELEMENT_SIZE, sizeof(size_t), &elem_size, NULL);
45 test_error(err, "clGetImageInfo failed");
46
47 buffer_size = sizeof(cl_uchar) * elem_size * img_width * img_height;
48
49 buffer = clCreateBuffer(context, (cl_mem_flags)(CL_MEM_READ_WRITE), buffer_size, NULL, &err);
50 test_error(err, "clCreateBuffer failed");
51
52 d = init_genrand( gRandomSeed );
53 bufptr = (cl_uchar*)malloc(buffer_size);
54 for (i=0; i<(int)buffer_size; i++) {
55 bufptr[i] = (cl_uchar)genrand_int32(d);
56 }
57 free_mtdata(d); d = NULL;
58
59 size_t origin[3]={0,0,0}, region[3]={img_width,img_height,1};
60 err = clEnqueueWriteBuffer( queue, buffer, CL_TRUE, 0, buffer_size, bufptr, 0, NULL, NULL);
61 test_error(err, "clEnqueueWriteBuffer failed");
62
63 err = clEnqueueCopyBufferToImage( queue, buffer, image, 0, origin, region, 0, NULL, ©event );
64 test_error(err, "clEnqueueCopyImageToBuffer failed");
65
66 imgptr = (cl_uchar*)malloc(buffer_size);
67
68 err = clEnqueueReadImage( queue, image, CL_TRUE, origin, region, 0, 0, imgptr, 1, ©event, NULL );
69 test_error(err, "clEnqueueReadBuffer failed");
70
71 err = clReleaseEvent(copyevent);
72 test_error(err, "clReleaseEvent failed");
73
74 if (memcmp(bufptr, imgptr, buffer_size) != 0) {
75 log_error( "ERROR: Results did not validate!\n" );
76 unsigned char * inchar = (unsigned char*)bufptr;
77 unsigned char * outchar = (unsigned char*)imgptr;
78 int failuresPrinted = 0;
79 int i;
80 for (i=0; i< (int)buffer_size; i+=(int)elem_size) {
81 int failed = 0;
82 int j;
83 for (j=0; j<(int)elem_size; j++)
84 if (inchar[i+j] != outchar[i+j])
85 failed = 1;
86 char values[4096];
87 values[0] = 0;
88 if (failed) {
89 sprintf(values + strlen(values), "%d(0x%x) -> actual [", i, i);
90 int j;
91 for (j=0; j<(int)elem_size; j++)
92 sprintf(values + strlen( values), "0x%02x ", inchar[i+j]);
93 sprintf(values + strlen(values), "] != expected [");
94 for (j=0; j<(int)elem_size; j++)
95 sprintf(values + strlen( values), "0x%02x ", outchar[i+j]);
96 sprintf(values + strlen(values), "]");
97 log_error("%s\n", values);
98 failuresPrinted++;
99 }
100 if (failuresPrinted > 5) {
101 log_error("Not printing further failures...\n");
102 break;
103 }
104 }
105 err = -1;
106 }
107
108 free(bufptr);
109 free(imgptr);
110
111 if (err)
112 log_error("ARRAY to IMAGE copy test failed for image_channel_order=0x%lx and image_channel_data_type=0x%lx\n",
113 (unsigned long)format->image_channel_order, (unsigned long)format->image_channel_data_type);
114
115 return err;
116 }
117
test_arrayimagecopy(cl_device_id device,cl_context context,cl_command_queue queue,int num_elements)118 int test_arrayimagecopy(cl_device_id device, cl_context context, cl_command_queue queue, int num_elements)
119 {
120 cl_int err;
121 cl_image_format *formats;
122 cl_uint num_formats;
123 cl_uint i;
124
125 PASSIVE_REQUIRE_IMAGE_SUPPORT( device )
126
127 err = clGetSupportedImageFormats(context, CL_MEM_READ_WRITE, CL_MEM_OBJECT_IMAGE2D, 0, NULL, &num_formats);
128 test_error(err, "clGetSupportedImageFormats failed");
129
130 formats = (cl_image_format *)malloc(num_formats * sizeof(cl_image_format));
131
132 err = clGetSupportedImageFormats(context, CL_MEM_READ_WRITE, CL_MEM_OBJECT_IMAGE2D, num_formats, formats, NULL);
133 test_error(err, "clGetSupportedImageFormats failed");
134
135 for (i = 0; i < num_formats; i++) {
136 err |= test_arrayimagecopy_single_format(device, context, queue, &formats[i]);
137 }
138
139 free(formats);
140 if (err)
141 log_error("ARRAY to IMAGE copy test failed\n");
142 else
143 log_info("ARRAY to IMAGE copy test passed\n");
144
145 return err;
146 }
147