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 maxAllocSize = (cl_ulong)SIZE_MAX;
117 }
118
119 if( gTestSmallImages )
120 {
121 for( imageInfo.width = 1; imageInfo.width < 13; imageInfo.width++ )
122 {
123 size_t rowPadding = gEnablePitch ? 48 : 0;
124 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
125
126 if (gTestMipmaps)
127 imageInfo.num_mip_levels = (cl_uint) random_log_in_range(2, (int)compute_max_mip_levels(imageInfo.width, 0, 0), seed);
128
129 if (gEnablePitch)
130 {
131 do {
132 rowPadding++;
133 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
134 } while ((imageInfo.rowPitch % pixelSize) != 0);
135 }
136
137 if( gDebugTrace )
138 log_info( " at size %d\n", (int)imageInfo.width );
139
140 int ret = test_copy_image_size_1D( context, queue, &imageInfo, seed );
141 if( ret )
142 return -1;
143 }
144 }
145 else if( gTestMaxImages )
146 {
147 // Try a specific set of maximum sizes
148 size_t numbeOfSizes;
149 size_t sizes[100][3];
150
151 get_max_sizes(&numbeOfSizes, 100, sizes, maxWidth, 1, 1, 1, maxAllocSize, memSize, CL_MEM_OBJECT_IMAGE1D, imageInfo.format);
152
153 for( size_t idx = 0; idx < numbeOfSizes; idx++ )
154 {
155 size_t rowPadding = gEnablePitch ? 48 : 0;
156 imageInfo.width = sizes[ idx ][ 0 ];
157 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
158
159 if (gTestMipmaps)
160 imageInfo.num_mip_levels = (cl_uint) random_log_in_range(2, (int)compute_max_mip_levels(imageInfo.width, 0, 0), seed);
161
162 if (gEnablePitch)
163 {
164 do {
165 rowPadding++;
166 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
167 } while ((imageInfo.rowPitch % pixelSize) != 0);
168 }
169
170 log_info( "Testing %d\n", (int)sizes[ idx ][ 0 ] );
171 if( gDebugTrace )
172 log_info( " at max size %d\n", (int)sizes[ idx ][ 0 ] );
173 if( test_copy_image_size_1D( context, queue, &imageInfo, seed ) )
174 return -1;
175 }
176 }
177 else
178 {
179 for( int i = 0; i < NUM_IMAGE_ITERATIONS; i++ )
180 {
181 cl_ulong size;
182 size_t rowPadding = gEnablePitch ? 48 : 0;
183 // Loop until we get a size that a) will fit in the max alloc size and b) that an allocation of that
184 // image, the result array, plus offset arrays, will fit in the global ram space
185 do
186 {
187 imageInfo.width = (size_t)random_log_in_range( 16, (int)maxWidth / 32, seed );
188
189 if (gTestMipmaps)
190 {
191 imageInfo.num_mip_levels = (cl_uint) random_log_in_range(2, (int)compute_max_mip_levels(imageInfo.width, 0, 0), seed);
192 imageInfo.rowPitch = imageInfo.width * get_pixel_size( imageInfo.format );
193 size = compute_mipmapped_image_size( imageInfo );
194 size = size*4;
195 }
196 else
197 {
198 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
199
200 if (gEnablePitch)
201 {
202 do {
203 rowPadding++;
204 imageInfo.rowPitch = imageInfo.width * pixelSize + rowPadding;
205 } while ((imageInfo.rowPitch % pixelSize) != 0);
206 }
207
208 size = (size_t)imageInfo.rowPitch * 4;
209 }
210 } while( size > maxAllocSize || ( size * 3 ) > memSize );
211
212 if( gDebugTrace )
213 {
214 log_info( " at size %d (row pitch %d) out of %d\n", (int)imageInfo.width, (int)imageInfo.rowPitch, (int)maxWidth );
215 if ( gTestMipmaps )
216 log_info( " and %llu mip levels\n", (size_t) imageInfo.num_mip_levels );
217 }
218
219 int ret = test_copy_image_size_1D( context, queue, &imageInfo, seed );
220 if( ret )
221 return -1;
222 }
223 }
224
225 return 0;
226 }
227