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 "../testBase.h"
17
18 extern int test_copy_image_generic( cl_context context, cl_command_queue queue, image_descriptor *srcImageInfo, image_descriptor *dstImageInfo,
19 const size_t sourcePos[], const size_t destPos[], const size_t regionSize[], MTdata d );
20
test_copy_image_size_1D(cl_context context,cl_command_queue queue,image_descriptor * imageInfo,MTdata d)21 int test_copy_image_size_1D( cl_context context, cl_command_queue queue, image_descriptor *imageInfo, MTdata d )
22 {
23 size_t sourcePos[ 3 ], destPos[ 3 ], regionSize[ 3 ];
24 int ret = 0, retCode;
25 size_t src_lod = 0, src_width_lod = imageInfo->width, src_row_pitch_lod;
26 size_t dst_lod = 0, dst_width_lod = imageInfo->width, dst_row_pitch_lod;
27 size_t width_lod = imageInfo->width;
28 size_t max_mip_level;
29
30 if( gTestMipmaps )
31 {
32 max_mip_level = imageInfo->num_mip_levels;
33 // Work at a random mip level
34 src_lod = (size_t)random_in_range( 0, max_mip_level ? max_mip_level - 1 : 0, d );
35 dst_lod = (size_t)random_in_range( 0, max_mip_level ? max_mip_level - 1 : 0, d );
36 src_width_lod = ( imageInfo->width >> src_lod )? ( imageInfo->width >> src_lod ) : 1;
37 dst_width_lod = ( imageInfo->width >> dst_lod )? ( imageInfo->width >> dst_lod ) : 1;
38 width_lod = ( src_width_lod > dst_width_lod ) ? dst_width_lod : src_width_lod;
39 src_row_pitch_lod = src_width_lod * get_pixel_size( imageInfo->format );
40 dst_row_pitch_lod = dst_width_lod * get_pixel_size( imageInfo->format );
41 }
42
43 // First, try just a full covering region
44 sourcePos[ 0 ] = sourcePos[ 1 ] = sourcePos[ 2 ] = 0;
45 destPos[ 0 ] = destPos[ 1 ] = destPos[ 2 ] = 0;
46 regionSize[ 0 ] = imageInfo->width;
47 regionSize[ 1 ] = 1;
48 regionSize[ 2 ] = 1;
49
50 if(gTestMipmaps)
51 {
52 sourcePos[ 1 ] = src_lod;
53 destPos[ 1 ] = dst_lod;
54 regionSize[ 0 ] = width_lod;
55 }
56
57 retCode = test_copy_image_generic( context, queue, imageInfo, imageInfo, sourcePos, destPos, regionSize, d );
58 if( retCode < 0 )
59 return retCode;
60 else
61 ret += retCode;
62
63 // Now try a sampling of different random regions
64 for( int i = 0; i < 8; i++ )
65 {
66 if( gTestMipmaps )
67 {
68 // Work at a random mip level
69 src_lod = (size_t)random_in_range( 0, max_mip_level ? max_mip_level - 1 : 0, d );
70 dst_lod = (size_t)random_in_range( 0, max_mip_level ? max_mip_level - 1 : 0, d );
71 src_width_lod = ( imageInfo->width >> src_lod )? ( imageInfo->width >> src_lod ) : 1;
72 dst_width_lod = ( imageInfo->width >> dst_lod )? ( imageInfo->width >> dst_lod ) : 1;
73 width_lod = ( src_width_lod > dst_width_lod ) ? dst_width_lod : src_width_lod;
74 sourcePos[ 1 ] = src_lod;
75 destPos[ 1 ] = dst_lod;
76 }
77 // Pick a random size
78 regionSize[ 0 ] = ( width_lod > 8 ) ? (size_t)random_in_range( 8, (int)width_lod - 1, d ) : width_lod;
79
80 // Now pick positions within valid ranges
81 sourcePos[ 0 ] = ( width_lod > regionSize[ 0 ] ) ? (size_t)random_in_range( 0, (int)( width_lod - regionSize[ 0 ] - 1 ), d ) : 0;
82 destPos[ 0 ] = ( width_lod > regionSize[ 0 ] ) ? (size_t)random_in_range( 0, (int)( width_lod - regionSize[ 0 ] - 1 ), d ) : 0;
83
84
85 // Go for it!
86 retCode = test_copy_image_generic( context, queue, imageInfo, imageInfo, sourcePos, destPos, regionSize, d );
87 if( retCode < 0 )
88 return retCode;
89 else
90 ret += retCode;
91 }
92
93 return ret;
94 }
95
test_copy_image_set_1D(cl_device_id device,cl_context context,cl_command_queue queue,cl_image_format * format)96 int test_copy_image_set_1D( cl_device_id device, cl_context context, cl_command_queue queue, cl_image_format *format )
97 {
98 size_t maxWidth;
99 cl_ulong maxAllocSize, memSize;
100 image_descriptor imageInfo = { 0 };
101 RandomSeed seed(gRandomSeed);
102 size_t pixelSize;
103
104 imageInfo.format = format;
105 imageInfo.height = imageInfo.depth = imageInfo.arraySize = imageInfo.slicePitch = 0;
106 imageInfo.type = CL_MEM_OBJECT_IMAGE1D;
107 pixelSize = get_pixel_size( imageInfo.format );
108
109 int error = clGetDeviceInfo( device, CL_DEVICE_IMAGE2D_MAX_WIDTH, sizeof( maxWidth ), &maxWidth, NULL );
110 error |= clGetDeviceInfo( device, CL_DEVICE_MAX_MEM_ALLOC_SIZE, sizeof( maxAllocSize ), &maxAllocSize, NULL );
111 error |= clGetDeviceInfo( device, CL_DEVICE_GLOBAL_MEM_SIZE, sizeof( memSize ), &memSize, NULL );
112 test_error( error, "Unable to get max image 2D size from device" );
113
114 if (memSize > (cl_ulong)SIZE_MAX) {
115 memSize = (cl_ulong)SIZE_MAX;
116 }
117
118 if( gTestSmallImages )
119 {
120 for( imageInfo.width = 1; imageInfo.width < 13; imageInfo.width++ )
121 {
122 size_t rowPadding = gEnablePitch ? 48 : 0;
123 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
124
125 if (gTestMipmaps)
126 imageInfo.num_mip_levels = (cl_uint) random_log_in_range(2, (int)compute_max_mip_levels(imageInfo.width, 0, 0), seed);
127
128 if (gEnablePitch)
129 {
130 do {
131 rowPadding++;
132 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
133 } while ((imageInfo.rowPitch % pixelSize) != 0);
134 }
135
136 if( gDebugTrace )
137 log_info( " at size %d\n", (int)imageInfo.width );
138
139 int ret = test_copy_image_size_1D( context, queue, &imageInfo, seed );
140 if( ret )
141 return -1;
142 }
143 }
144 else if( gTestMaxImages )
145 {
146 // Try a specific set of maximum sizes
147 size_t numbeOfSizes;
148 size_t sizes[100][3];
149
150 get_max_sizes(&numbeOfSizes, 100, sizes, maxWidth, 1, 1, 1, maxAllocSize, memSize, CL_MEM_OBJECT_IMAGE1D, imageInfo.format);
151
152 for( size_t idx = 0; idx < numbeOfSizes; idx++ )
153 {
154 size_t rowPadding = gEnablePitch ? 48 : 0;
155 imageInfo.width = sizes[ idx ][ 0 ];
156 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
157
158 if (gTestMipmaps)
159 imageInfo.num_mip_levels = (cl_uint) random_log_in_range(2, (int)compute_max_mip_levels(imageInfo.width, 0, 0), seed);
160
161 if (gEnablePitch)
162 {
163 do {
164 rowPadding++;
165 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
166 } while ((imageInfo.rowPitch % pixelSize) != 0);
167 }
168
169 log_info( "Testing %d\n", (int)sizes[ idx ][ 0 ] );
170 if( gDebugTrace )
171 log_info( " at max size %d\n", (int)sizes[ idx ][ 0 ] );
172 if( test_copy_image_size_1D( context, queue, &imageInfo, seed ) )
173 return -1;
174 }
175 }
176 else
177 {
178 for( int i = 0; i < NUM_IMAGE_ITERATIONS; i++ )
179 {
180 cl_ulong size;
181 size_t rowPadding = gEnablePitch ? 48 : 0;
182 // Loop until we get a size that a) will fit in the max alloc size and b) that an allocation of that
183 // image, the result array, plus offset arrays, will fit in the global ram space
184 do
185 {
186 imageInfo.width = (size_t)random_log_in_range( 16, (int)maxWidth / 32, seed );
187
188 if (gTestMipmaps)
189 {
190 imageInfo.num_mip_levels = (cl_uint) random_log_in_range(2, (int)compute_max_mip_levels(imageInfo.width, 0, 0), seed);
191 imageInfo.rowPitch = imageInfo.width * get_pixel_size( imageInfo.format );
192 size = compute_mipmapped_image_size( imageInfo );
193 size = size*4;
194 }
195 else
196 {
197 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
198
199 if (gEnablePitch)
200 {
201 do {
202 rowPadding++;
203 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
204 } while ((imageInfo.rowPitch % pixelSize) != 0);
205 }
206
207 size = (size_t)imageInfo.rowPitch * 4;
208 }
209 } while( size > maxAllocSize || ( size * 3 ) > memSize );
210
211 if( gDebugTrace )
212 {
213 log_info( " at size %d (row pitch %d) out of %d\n", (int)imageInfo.width, (int)imageInfo.rowPitch, (int)maxWidth );
214 if ( gTestMipmaps )
215 log_info( " and %llu mip levels\n", (size_t) imageInfo.num_mip_levels );
216 }
217
218 int ret = test_copy_image_size_1D( context, queue, &imageInfo, seed );
219 if( ret )
220 return -1;
221 }
222 }
223
224 return 0;
225 }
226