1 /**************************************************************************
2 *
3 * Copyright 2009 VMware, Inc.
4 * All Rights Reserved.
5 *
6 * Permission is hereby granted, free of charge, to any person obtaining a
7 * copy of this software and associated documentation files (the
8 * "Software"), to deal in the Software without restriction, including
9 * without limitation the rights to use, copy, modify, merge, publish,
10 * distribute, sub license, and/or sell copies of the Software, and to
11 * permit persons to whom the Software is furnished to do so, subject to
12 * the following conditions:
13 *
14 * The above copyright notice and this permission notice (including the
15 * next paragraph) shall be included in all copies or substantial portions
16 * of the Software.
17 *
18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
19 * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT.
21 * IN NO EVENT SHALL VMWARE AND/OR ITS SUPPLIERS BE LIABLE FOR
22 * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
23 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
24 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
25 *
26 **************************************************************************/
27
28
29 #include <stdlib.h>
30 #include <stdio.h>
31 #include <float.h>
32
33 #include "util/u_memory.h"
34 #include "util/u_pointer.h"
35 #include "util/u_string.h"
36 #include "util/u_format.h"
37 #include "util/u_format_tests.h"
38 #include "util/u_format_s3tc.h"
39
40 #include "gallivm/lp_bld.h"
41 #include "gallivm/lp_bld_debug.h"
42 #include "gallivm/lp_bld_format.h"
43 #include "gallivm/lp_bld_init.h"
44
45 #include "lp_test.h"
46
47 #define USE_TEXTURE_CACHE 1
48
49 static struct lp_build_format_cache *cache_ptr;
50
51 void
write_tsv_header(FILE * fp)52 write_tsv_header(FILE *fp)
53 {
54 fprintf(fp,
55 "result\t"
56 "format\n");
57
58 fflush(fp);
59 }
60
61
62 static void
write_tsv_row(FILE * fp,const struct util_format_description * desc,boolean success)63 write_tsv_row(FILE *fp,
64 const struct util_format_description *desc,
65 boolean success)
66 {
67 fprintf(fp, "%s\t", success ? "pass" : "fail");
68
69 fprintf(fp, "%s\n", desc->name);
70
71 fflush(fp);
72 }
73
74
75 typedef void
76 (*fetch_ptr_t)(void *unpacked, const void *packed,
77 unsigned i, unsigned j, struct lp_build_format_cache *cache);
78
79
80 static LLVMValueRef
add_fetch_rgba_test(struct gallivm_state * gallivm,unsigned verbose,const struct util_format_description * desc,struct lp_type type)81 add_fetch_rgba_test(struct gallivm_state *gallivm, unsigned verbose,
82 const struct util_format_description *desc,
83 struct lp_type type)
84 {
85 char name[256];
86 LLVMContextRef context = gallivm->context;
87 LLVMModuleRef module = gallivm->module;
88 LLVMBuilderRef builder = gallivm->builder;
89 LLVMTypeRef args[5];
90 LLVMValueRef func;
91 LLVMValueRef packed_ptr;
92 LLVMValueRef offset = LLVMConstNull(LLVMInt32TypeInContext(context));
93 LLVMValueRef rgba_ptr;
94 LLVMValueRef i;
95 LLVMValueRef j;
96 LLVMBasicBlockRef block;
97 LLVMValueRef rgba;
98 LLVMValueRef cache = NULL;
99
100 util_snprintf(name, sizeof name, "fetch_%s_%s", desc->short_name,
101 type.floating ? "float" : "unorm8");
102
103 args[0] = LLVMPointerType(lp_build_vec_type(gallivm, type), 0);
104 args[1] = LLVMPointerType(LLVMInt8TypeInContext(context), 0);
105 args[3] = args[2] = LLVMInt32TypeInContext(context);
106 args[4] = LLVMPointerType(lp_build_format_cache_type(gallivm), 0);
107
108 func = LLVMAddFunction(module, name,
109 LLVMFunctionType(LLVMVoidTypeInContext(context),
110 args, ARRAY_SIZE(args), 0));
111 LLVMSetFunctionCallConv(func, LLVMCCallConv);
112 rgba_ptr = LLVMGetParam(func, 0);
113 packed_ptr = LLVMGetParam(func, 1);
114 i = LLVMGetParam(func, 2);
115 j = LLVMGetParam(func, 3);
116
117 if (cache_ptr) {
118 cache = LLVMGetParam(func, 4);
119 }
120
121 block = LLVMAppendBasicBlockInContext(context, func, "entry");
122 LLVMPositionBuilderAtEnd(builder, block);
123
124 rgba = lp_build_fetch_rgba_aos(gallivm, desc, type, TRUE,
125 packed_ptr, offset, i, j, cache);
126
127 LLVMBuildStore(builder, rgba, rgba_ptr);
128
129 LLVMBuildRetVoid(builder);
130
131 gallivm_verify_function(gallivm, func);
132
133 return func;
134 }
135
136
137 PIPE_ALIGN_STACK
138 static boolean
test_format_float(unsigned verbose,FILE * fp,const struct util_format_description * desc)139 test_format_float(unsigned verbose, FILE *fp,
140 const struct util_format_description *desc)
141 {
142 LLVMContextRef context;
143 struct gallivm_state *gallivm;
144 LLVMValueRef fetch = NULL;
145 fetch_ptr_t fetch_ptr;
146 PIPE_ALIGN_VAR(16) uint8_t packed[UTIL_FORMAT_MAX_PACKED_BYTES];
147 PIPE_ALIGN_VAR(16) float unpacked[4];
148 boolean first = TRUE;
149 boolean success = TRUE;
150 unsigned i, j, k, l;
151
152 context = LLVMContextCreate();
153 gallivm = gallivm_create("test_module_float", context);
154
155 fetch = add_fetch_rgba_test(gallivm, verbose, desc, lp_float32_vec4_type());
156
157 gallivm_compile_module(gallivm);
158
159 fetch_ptr = (fetch_ptr_t) gallivm_jit_function(gallivm, fetch);
160
161 gallivm_free_ir(gallivm);
162
163 for (l = 0; l < util_format_nr_test_cases; ++l) {
164 const struct util_format_test_case *test = &util_format_test_cases[l];
165
166 if (test->format == desc->format) {
167
168 if (first) {
169 printf("Testing %s (float) ...\n",
170 desc->name);
171 fflush(stdout);
172 first = FALSE;
173 }
174
175 /* To ensure it's 16-byte aligned */
176 memcpy(packed, test->packed, sizeof packed);
177
178 for (i = 0; i < desc->block.height; ++i) {
179 for (j = 0; j < desc->block.width; ++j) {
180 boolean match = TRUE;
181
182 memset(unpacked, 0, sizeof unpacked);
183
184 fetch_ptr(unpacked, packed, j, i, cache_ptr);
185
186 for(k = 0; k < 4; ++k) {
187 if (util_double_inf_sign(test->unpacked[i][j][k]) != util_inf_sign(unpacked[k])) {
188 match = FALSE;
189 }
190
191 if (util_is_double_nan(test->unpacked[i][j][k]) != util_is_nan(unpacked[k])) {
192 match = FALSE;
193 }
194
195 if (!util_is_double_inf_or_nan(test->unpacked[i][j][k]) &&
196 fabs((float)test->unpacked[i][j][k] - unpacked[k]) > FLT_EPSILON) {
197 match = FALSE;
198 }
199 }
200
201 /* Ignore errors in S3TC for now */
202 if (desc->layout == UTIL_FORMAT_LAYOUT_S3TC) {
203 match = TRUE;
204 }
205
206 if (!match) {
207 printf("FAILED\n");
208 printf(" Packed: %02x %02x %02x %02x\n",
209 test->packed[0], test->packed[1], test->packed[2], test->packed[3]);
210 printf(" Unpacked (%u,%u): %.9g %.9g %.9g %.9g obtained\n",
211 j, i,
212 unpacked[0], unpacked[1], unpacked[2], unpacked[3]);
213 printf(" %.9g %.9g %.9g %.9g expected\n",
214 test->unpacked[i][j][0],
215 test->unpacked[i][j][1],
216 test->unpacked[i][j][2],
217 test->unpacked[i][j][3]);
218 fflush(stdout);
219 success = FALSE;
220 }
221 }
222 }
223 }
224 }
225
226 gallivm_destroy(gallivm);
227 LLVMContextDispose(context);
228
229 if(fp)
230 write_tsv_row(fp, desc, success);
231
232 return success;
233 }
234
235
236 PIPE_ALIGN_STACK
237 static boolean
test_format_unorm8(unsigned verbose,FILE * fp,const struct util_format_description * desc)238 test_format_unorm8(unsigned verbose, FILE *fp,
239 const struct util_format_description *desc)
240 {
241 LLVMContextRef context;
242 struct gallivm_state *gallivm;
243 LLVMValueRef fetch = NULL;
244 fetch_ptr_t fetch_ptr;
245 PIPE_ALIGN_VAR(16) uint8_t packed[UTIL_FORMAT_MAX_PACKED_BYTES];
246 uint8_t unpacked[4];
247 boolean first = TRUE;
248 boolean success = TRUE;
249 unsigned i, j, k, l;
250
251 context = LLVMContextCreate();
252 gallivm = gallivm_create("test_module_unorm8", context);
253
254 fetch = add_fetch_rgba_test(gallivm, verbose, desc, lp_unorm8_vec4_type());
255
256 gallivm_compile_module(gallivm);
257
258 fetch_ptr = (fetch_ptr_t) gallivm_jit_function(gallivm, fetch);
259
260 gallivm_free_ir(gallivm);
261
262 for (l = 0; l < util_format_nr_test_cases; ++l) {
263 const struct util_format_test_case *test = &util_format_test_cases[l];
264
265 if (test->format == desc->format) {
266
267 if (first) {
268 printf("Testing %s (unorm8) ...\n",
269 desc->name);
270 first = FALSE;
271 }
272
273 /* To ensure it's 16-byte aligned */
274 /* Could skip this and use unaligned lp_build_fetch_rgba_aos */
275 memcpy(packed, test->packed, sizeof packed);
276
277 for (i = 0; i < desc->block.height; ++i) {
278 for (j = 0; j < desc->block.width; ++j) {
279 boolean match;
280
281 memset(unpacked, 0, sizeof unpacked);
282
283 fetch_ptr(unpacked, packed, j, i, cache_ptr);
284
285 match = TRUE;
286 for(k = 0; k < 4; ++k) {
287 int error = float_to_ubyte(test->unpacked[i][j][k]) - unpacked[k];
288
289 if (util_is_double_nan(test->unpacked[i][j][k]))
290 continue;
291
292 if (error < 0)
293 error = -error;
294
295 if (error > 1)
296 match = FALSE;
297 }
298
299 /* Ignore errors in S3TC as we only implement a poor man approach */
300 if (desc->layout == UTIL_FORMAT_LAYOUT_S3TC) {
301 match = TRUE;
302 }
303
304 if (!match) {
305 printf("FAILED\n");
306 printf(" Packed: %02x %02x %02x %02x\n",
307 test->packed[0], test->packed[1], test->packed[2], test->packed[3]);
308 printf(" Unpacked (%u,%u): %02x %02x %02x %02x obtained\n",
309 j, i,
310 unpacked[0], unpacked[1], unpacked[2], unpacked[3]);
311 printf(" %02x %02x %02x %02x expected\n",
312 float_to_ubyte(test->unpacked[i][j][0]),
313 float_to_ubyte(test->unpacked[i][j][1]),
314 float_to_ubyte(test->unpacked[i][j][2]),
315 float_to_ubyte(test->unpacked[i][j][3]));
316
317 success = FALSE;
318 }
319 }
320 }
321 }
322 }
323
324 gallivm_destroy(gallivm);
325 LLVMContextDispose(context);
326
327 if(fp)
328 write_tsv_row(fp, desc, success);
329
330 return success;
331 }
332
333
334
335
336 static boolean
test_one(unsigned verbose,FILE * fp,const struct util_format_description * format_desc)337 test_one(unsigned verbose, FILE *fp,
338 const struct util_format_description *format_desc)
339 {
340 boolean success = TRUE;
341
342 if (!test_format_float(verbose, fp, format_desc)) {
343 success = FALSE;
344 }
345
346 if (!test_format_unorm8(verbose, fp, format_desc)) {
347 success = FALSE;
348 }
349
350 return success;
351 }
352
353
354 boolean
test_all(unsigned verbose,FILE * fp)355 test_all(unsigned verbose, FILE *fp)
356 {
357 enum pipe_format format;
358 boolean success = TRUE;
359
360 #if USE_TEXTURE_CACHE
361 cache_ptr = align_malloc(sizeof(struct lp_build_format_cache), 16);
362 #endif
363
364 for (format = 1; format < PIPE_FORMAT_COUNT; ++format) {
365 const struct util_format_description *format_desc;
366
367 format_desc = util_format_description(format);
368 if (!format_desc) {
369 continue;
370 }
371
372
373 /*
374 * TODO: test more
375 */
376
377 if (format_desc->colorspace == UTIL_FORMAT_COLORSPACE_ZS) {
378 continue;
379 }
380
381 if (util_format_is_pure_integer(format))
382 continue;
383
384 /* only have util fetch func for etc1 */
385 if (format_desc->layout == UTIL_FORMAT_LAYOUT_ETC &&
386 format != PIPE_FORMAT_ETC1_RGB8) {
387 continue;
388 }
389
390 /* missing fetch funcs */
391 if (format_desc->layout == UTIL_FORMAT_LAYOUT_BPTC ||
392 format_desc->layout == UTIL_FORMAT_LAYOUT_ASTC) {
393 continue;
394 }
395
396 if (!test_one(verbose, fp, format_desc)) {
397 success = FALSE;
398 }
399 }
400 #if USE_TEXTURE_CACHE
401 align_free(cache_ptr);
402 #endif
403
404 return success;
405 }
406
407
408 boolean
test_some(unsigned verbose,FILE * fp,unsigned long n)409 test_some(unsigned verbose, FILE *fp,
410 unsigned long n)
411 {
412 return test_all(verbose, fp);
413 }
414
415
416 boolean
test_single(unsigned verbose,FILE * fp)417 test_single(unsigned verbose, FILE *fp)
418 {
419 printf("no test_single()");
420 return TRUE;
421 }
422