• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
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 
48 void
write_tsv_header(FILE * fp)49 write_tsv_header(FILE *fp)
50 {
51    fprintf(fp,
52            "result\t"
53            "format\n");
54 
55    fflush(fp);
56 }
57 
58 
59 static void
write_tsv_row(FILE * fp,const struct util_format_description * desc,boolean success)60 write_tsv_row(FILE *fp,
61               const struct util_format_description *desc,
62               boolean success)
63 {
64    fprintf(fp, "%s\t", success ? "pass" : "fail");
65 
66    fprintf(fp, "%s\n", desc->name);
67 
68    fflush(fp);
69 }
70 
71 
72 typedef void
73 (*fetch_ptr_t)(void *unpacked, const void *packed,
74                unsigned i, unsigned j);
75 
76 
77 static LLVMValueRef
add_fetch_rgba_test(struct gallivm_state * gallivm,unsigned verbose,const struct util_format_description * desc,struct lp_type type)78 add_fetch_rgba_test(struct gallivm_state *gallivm, unsigned verbose,
79                     const struct util_format_description *desc,
80                     struct lp_type type)
81 {
82    char name[256];
83    LLVMContextRef context = gallivm->context;
84    LLVMModuleRef module = gallivm->module;
85    LLVMBuilderRef builder = gallivm->builder;
86    LLVMTypeRef args[4];
87    LLVMValueRef func;
88    LLVMValueRef packed_ptr;
89    LLVMValueRef offset = LLVMConstNull(LLVMInt32TypeInContext(context));
90    LLVMValueRef rgba_ptr;
91    LLVMValueRef i;
92    LLVMValueRef j;
93    LLVMBasicBlockRef block;
94    LLVMValueRef rgba;
95 
96    util_snprintf(name, sizeof name, "fetch_%s_%s", desc->short_name,
97                  type.floating ? "float" : "unorm8");
98 
99    args[0] = LLVMPointerType(lp_build_vec_type(gallivm, type), 0);
100    args[1] = LLVMPointerType(LLVMInt8TypeInContext(context), 0);
101    args[3] = args[2] = LLVMInt32TypeInContext(context);
102 
103    func = LLVMAddFunction(module, name,
104                           LLVMFunctionType(LLVMVoidTypeInContext(context),
105                                            args, Elements(args), 0));
106    LLVMSetFunctionCallConv(func, LLVMCCallConv);
107    rgba_ptr = LLVMGetParam(func, 0);
108    packed_ptr = LLVMGetParam(func, 1);
109    i = LLVMGetParam(func, 2);
110    j = LLVMGetParam(func, 3);
111 
112    block = LLVMAppendBasicBlockInContext(context, func, "entry");
113    LLVMPositionBuilderAtEnd(builder, block);
114 
115    rgba = lp_build_fetch_rgba_aos(gallivm, desc, type,
116                                   packed_ptr, offset, i, j);
117 
118    LLVMBuildStore(builder, rgba, rgba_ptr);
119 
120    LLVMBuildRetVoid(builder);
121 
122    gallivm_verify_function(gallivm, func);
123 
124    return func;
125 }
126 
127 
128 PIPE_ALIGN_STACK
129 static boolean
test_format_float(unsigned verbose,FILE * fp,const struct util_format_description * desc)130 test_format_float(unsigned verbose, FILE *fp,
131                   const struct util_format_description *desc)
132 {
133    struct gallivm_state *gallivm;
134    LLVMValueRef fetch = NULL;
135    fetch_ptr_t fetch_ptr;
136    PIPE_ALIGN_VAR(16) float unpacked[4];
137    boolean first = TRUE;
138    boolean success = TRUE;
139    unsigned i, j, k, l;
140 
141    gallivm = gallivm_create();
142 
143    fetch = add_fetch_rgba_test(gallivm, verbose, desc, lp_float32_vec4_type());
144 
145    gallivm_compile_module(gallivm);
146 
147    fetch_ptr = (fetch_ptr_t) gallivm_jit_function(gallivm, fetch);
148 
149    for (l = 0; l < util_format_nr_test_cases; ++l) {
150       const struct util_format_test_case *test = &util_format_test_cases[l];
151 
152       if (test->format == desc->format) {
153 
154          if (first) {
155             printf("Testing %s (float) ...\n",
156                    desc->name);
157             first = FALSE;
158          }
159 
160          for (i = 0; i < desc->block.height; ++i) {
161             for (j = 0; j < desc->block.width; ++j) {
162                boolean match = TRUE;
163 
164                memset(unpacked, 0, sizeof unpacked);
165 
166                fetch_ptr(unpacked, test->packed, j, i);
167 
168                for(k = 0; k < 4; ++k) {
169                   if (util_double_inf_sign(test->unpacked[i][j][k]) != util_inf_sign(unpacked[k])) {
170                      match = FALSE;
171                   }
172 
173                   if (util_is_double_nan(test->unpacked[i][j][k]) != util_is_nan(unpacked[k])) {
174                      match = FALSE;
175                   }
176 
177                   if (!util_is_double_inf_or_nan(test->unpacked[i][j][k]) &&
178                       fabs((float)test->unpacked[i][j][k] - unpacked[k]) > FLT_EPSILON) {
179                      match = FALSE;
180                   }
181                }
182 
183                if (!match) {
184                   printf("FAILED\n");
185                   printf("  Packed: %02x %02x %02x %02x\n",
186                          test->packed[0], test->packed[1], test->packed[2], test->packed[3]);
187                   printf("  Unpacked (%u,%u): %.9g %.9g %.9g %.9g obtained\n",
188                          j, i,
189                          unpacked[0], unpacked[1], unpacked[2], unpacked[3]);
190                   printf("                  %.9g %.9g %.9g %.9g expected\n",
191                          test->unpacked[i][j][0],
192                          test->unpacked[i][j][1],
193                          test->unpacked[i][j][2],
194                          test->unpacked[i][j][3]);
195                   success = FALSE;
196                }
197             }
198          }
199       }
200    }
201 
202    gallivm_free_function(gallivm, fetch, fetch_ptr);
203 
204    gallivm_destroy(gallivm);
205 
206    if(fp)
207       write_tsv_row(fp, desc, success);
208 
209    return success;
210 }
211 
212 
213 PIPE_ALIGN_STACK
214 static boolean
test_format_unorm8(unsigned verbose,FILE * fp,const struct util_format_description * desc)215 test_format_unorm8(unsigned verbose, FILE *fp,
216                    const struct util_format_description *desc)
217 {
218    struct gallivm_state *gallivm;
219    LLVMValueRef fetch = NULL;
220    fetch_ptr_t fetch_ptr;
221    uint8_t unpacked[4];
222    boolean first = TRUE;
223    boolean success = TRUE;
224    unsigned i, j, k, l;
225 
226    gallivm = gallivm_create();
227 
228    fetch = add_fetch_rgba_test(gallivm, verbose, desc, lp_unorm8_vec4_type());
229 
230    gallivm_compile_module(gallivm);
231 
232    fetch_ptr = (fetch_ptr_t) gallivm_jit_function(gallivm, fetch);
233 
234    for (l = 0; l < util_format_nr_test_cases; ++l) {
235       const struct util_format_test_case *test = &util_format_test_cases[l];
236 
237       if (test->format == desc->format) {
238 
239          if (first) {
240             printf("Testing %s (unorm8) ...\n",
241                    desc->name);
242             first = FALSE;
243          }
244 
245          for (i = 0; i < desc->block.height; ++i) {
246             for (j = 0; j < desc->block.width; ++j) {
247                boolean match;
248 
249                memset(unpacked, 0, sizeof unpacked);
250 
251                fetch_ptr(unpacked, test->packed, j, i);
252 
253                match = TRUE;
254                for(k = 0; k < 4; ++k) {
255                   int error = float_to_ubyte(test->unpacked[i][j][k]) - unpacked[k];
256 
257                   if (util_is_double_nan(test->unpacked[i][j][k]))
258                      continue;
259 
260                   if (error < 0)
261                      error = -error;
262 
263                   if (error > 1)
264                      match = FALSE;
265                }
266 
267                if (!match) {
268                   printf("FAILED\n");
269                   printf("  Packed: %02x %02x %02x %02x\n",
270                          test->packed[0], test->packed[1], test->packed[2], test->packed[3]);
271                   printf("  Unpacked (%u,%u): %02x %02x %02x %02x obtained\n",
272                          j, i,
273                          unpacked[0], unpacked[1], unpacked[2], unpacked[3]);
274                   printf("                  %02x %02x %02x %02x expected\n",
275                          float_to_ubyte(test->unpacked[i][j][0]),
276                          float_to_ubyte(test->unpacked[i][j][1]),
277                          float_to_ubyte(test->unpacked[i][j][2]),
278                          float_to_ubyte(test->unpacked[i][j][3]));
279 
280                   success = FALSE;
281                }
282             }
283          }
284       }
285    }
286 
287    gallivm_free_function(gallivm, fetch, fetch_ptr);
288 
289    gallivm_destroy(gallivm);
290 
291    if(fp)
292       write_tsv_row(fp, desc, success);
293 
294    return success;
295 }
296 
297 
298 
299 
300 static boolean
test_one(unsigned verbose,FILE * fp,const struct util_format_description * format_desc)301 test_one(unsigned verbose, FILE *fp,
302          const struct util_format_description *format_desc)
303 {
304    boolean success = TRUE;
305 
306    if (!test_format_float(verbose, fp, format_desc)) {
307      success = FALSE;
308    }
309 
310    if (!test_format_unorm8(verbose, fp, format_desc)) {
311      success = FALSE;
312    }
313 
314    return success;
315 }
316 
317 
318 boolean
test_all(unsigned verbose,FILE * fp)319 test_all(unsigned verbose, FILE *fp)
320 {
321    enum pipe_format format;
322    boolean success = TRUE;
323 
324    util_format_s3tc_init();
325 
326    for (format = 1; format < PIPE_FORMAT_COUNT; ++format) {
327       const struct util_format_description *format_desc;
328 
329       format_desc = util_format_description(format);
330       if (!format_desc) {
331          continue;
332       }
333 
334 
335       /*
336        * TODO: test more
337        */
338 
339       if (format_desc->colorspace == UTIL_FORMAT_COLORSPACE_ZS) {
340          continue;
341       }
342 
343       if (util_format_is_pure_integer(format))
344 	 continue;
345 
346       if (format_desc->layout == UTIL_FORMAT_LAYOUT_S3TC &&
347           !util_format_s3tc_enabled) {
348          continue;
349       }
350 
351       if (!test_one(verbose, fp, format_desc)) {
352            success = FALSE;
353       }
354    }
355 
356    return success;
357 }
358 
359 
360 boolean
test_some(unsigned verbose,FILE * fp,unsigned long n)361 test_some(unsigned verbose, FILE *fp,
362           unsigned long n)
363 {
364    return test_all(verbose, fp);
365 }
366 
367 
368 boolean
test_single(unsigned verbose,FILE * fp)369 test_single(unsigned verbose, FILE *fp)
370 {
371    printf("no test_single()");
372    return TRUE;
373 }
374