1 /**************************************************************************
3 * Copyright 2009 VMware, Inc.
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:
14 * The above copyright notice and this permission notice (including the
15 * next paragraph) shall be included in all copies or substantial portions
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.
26 **************************************************************************/
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"
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"
47 static struct lp_build_format_cache
*cache_ptr
;
50 write_tsv_header(FILE *fp
)
61 write_tsv_row(FILE *fp
,
62 const struct util_format_description
*desc
,
65 fprintf(fp
, "%s\t", success
? "pass" : "fail");
67 fprintf(fp
, "%s\n", desc
->name
);
74 (*fetch_ptr_t
)(void *unpacked
, const void *packed
,
75 unsigned i
, unsigned j
, struct lp_build_format_cache
*cache
);
79 add_fetch_rgba_test(struct gallivm_state
*gallivm
, unsigned verbose
,
80 const struct util_format_description
*desc
,
85 LLVMContextRef context
= gallivm
->context
;
86 LLVMModuleRef module
= gallivm
->module
;
87 LLVMBuilderRef builder
= gallivm
->builder
;
90 LLVMValueRef packed_ptr
;
91 LLVMValueRef offset
= LLVMConstNull(LLVMInt32TypeInContext(context
));
92 LLVMValueRef rgba_ptr
;
95 LLVMBasicBlockRef block
;
97 LLVMValueRef cache
= NULL
;
99 snprintf(name
, sizeof name
, "fetch_%s_%s", desc
->short_name
,
100 type
.floating
? "float" : "unorm8");
102 args
[0] = LLVMPointerType(lp_build_vec_type(gallivm
, type
), 0);
103 args
[1] = LLVMPointerType(LLVMInt8TypeInContext(context
), 0);
104 args
[3] = args
[2] = LLVMInt32TypeInContext(context
);
105 args
[4] = LLVMPointerType(lp_build_format_cache_type(gallivm
), 0);
107 func
= LLVMAddFunction(module
, name
,
108 LLVMFunctionType(LLVMVoidTypeInContext(context
),
109 args
, ARRAY_SIZE(args
), 0));
110 LLVMSetFunctionCallConv(func
, LLVMCCallConv
);
111 rgba_ptr
= LLVMGetParam(func
, 0);
112 packed_ptr
= LLVMGetParam(func
, 1);
113 i
= LLVMGetParam(func
, 2);
114 j
= LLVMGetParam(func
, 3);
117 cache
= LLVMGetParam(func
, 4);
120 block
= LLVMAppendBasicBlockInContext(context
, func
, "entry");
121 LLVMPositionBuilderAtEnd(builder
, block
);
123 rgba
= lp_build_fetch_rgba_aos(gallivm
, desc
, type
, TRUE
,
124 packed_ptr
, offset
, i
, j
, cache
);
126 LLVMBuildStore(builder
, rgba
, rgba_ptr
);
128 LLVMBuildRetVoid(builder
);
130 gallivm_verify_function(gallivm
, func
);
138 test_format_float(unsigned verbose
, FILE *fp
,
139 const struct util_format_description
*desc
,
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
;
152 context
= LLVMContextCreate();
153 gallivm
= gallivm_create("test_module_float", context
);
155 fetch
= add_fetch_rgba_test(gallivm
, verbose
, desc
,
156 lp_float32_vec4_type(), use_cache
);
158 gallivm_compile_module(gallivm
);
160 fetch_ptr
= (fetch_ptr_t
) gallivm_jit_function(gallivm
, fetch
);
162 gallivm_free_ir(gallivm
);
164 for (l
= 0; l
< util_format_nr_test_cases
; ++l
) {
165 const struct util_format_test_case
*test
= &util_format_test_cases
[l
];
167 if (test
->format
== desc
->format
) {
170 printf("Testing %s (float) ...\n",
176 /* To ensure it's 16-byte aligned */
177 memcpy(packed
, test
->packed
, sizeof packed
);
179 for (i
= 0; i
< desc
->block
.height
; ++i
) {
180 for (j
= 0; j
< desc
->block
.width
; ++j
) {
181 boolean match
= TRUE
;
183 memset(unpacked
, 0, sizeof unpacked
);
185 fetch_ptr(unpacked
, packed
, j
, i
, use_cache
? cache_ptr
: NULL
);
187 for(k
= 0; k
< 4; ++k
) {
188 if (util_double_inf_sign(test
->unpacked
[i
][j
][k
]) != util_inf_sign(unpacked
[k
])) {
192 if (util_is_double_nan(test
->unpacked
[i
][j
][k
]) != util_is_nan(unpacked
[k
])) {
196 if (!util_is_double_inf_or_nan(test
->unpacked
[i
][j
][k
]) &&
197 fabs((float)test
->unpacked
[i
][j
][k
] - unpacked
[k
]) > FLT_EPSILON
) {
202 /* Ignore errors in S3TC for now */
203 if (desc
->layout
== UTIL_FORMAT_LAYOUT_S3TC
) {
209 printf(" Packed: %02x %02x %02x %02x\n",
210 test
->packed
[0], test
->packed
[1], test
->packed
[2], test
->packed
[3]);
211 printf(" Unpacked (%u,%u): %.9g %.9g %.9g %.9g obtained\n",
213 unpacked
[0], unpacked
[1], unpacked
[2], unpacked
[3]);
214 printf(" %.9g %.9g %.9g %.9g expected\n",
215 test
->unpacked
[i
][j
][0],
216 test
->unpacked
[i
][j
][1],
217 test
->unpacked
[i
][j
][2],
218 test
->unpacked
[i
][j
][3]);
227 gallivm_destroy(gallivm
);
228 LLVMContextDispose(context
);
231 write_tsv_row(fp
, desc
, success
);
239 test_format_unorm8(unsigned verbose
, FILE *fp
,
240 const struct util_format_description
*desc
,
243 LLVMContextRef context
;
244 struct gallivm_state
*gallivm
;
245 LLVMValueRef fetch
= NULL
;
246 fetch_ptr_t fetch_ptr
;
247 PIPE_ALIGN_VAR(16) uint8_t packed
[UTIL_FORMAT_MAX_PACKED_BYTES
];
249 boolean first
= TRUE
;
250 boolean success
= TRUE
;
253 context
= LLVMContextCreate();
254 gallivm
= gallivm_create("test_module_unorm8", context
);
256 fetch
= add_fetch_rgba_test(gallivm
, verbose
, desc
,
257 lp_unorm8_vec4_type(), use_cache
);
259 gallivm_compile_module(gallivm
);
261 fetch_ptr
= (fetch_ptr_t
) gallivm_jit_function(gallivm
, fetch
);
263 gallivm_free_ir(gallivm
);
265 for (l
= 0; l
< util_format_nr_test_cases
; ++l
) {
266 const struct util_format_test_case
*test
= &util_format_test_cases
[l
];
268 if (test
->format
== desc
->format
) {
271 printf("Testing %s (unorm8) ...\n",
276 /* To ensure it's 16-byte aligned */
277 /* Could skip this and use unaligned lp_build_fetch_rgba_aos */
278 memcpy(packed
, test
->packed
, sizeof packed
);
280 for (i
= 0; i
< desc
->block
.height
; ++i
) {
281 for (j
= 0; j
< desc
->block
.width
; ++j
) {
284 memset(unpacked
, 0, sizeof unpacked
);
286 fetch_ptr(unpacked
, packed
, j
, i
, use_cache
? cache_ptr
: NULL
);
289 for(k
= 0; k
< 4; ++k
) {
290 int error
= float_to_ubyte(test
->unpacked
[i
][j
][k
]) - unpacked
[k
];
292 if (util_is_double_nan(test
->unpacked
[i
][j
][k
]))
302 /* Ignore errors in S3TC as we only implement a poor man approach */
303 if (desc
->layout
== UTIL_FORMAT_LAYOUT_S3TC
) {
309 printf(" Packed: %02x %02x %02x %02x\n",
310 test
->packed
[0], test
->packed
[1], test
->packed
[2], test
->packed
[3]);
311 printf(" Unpacked (%u,%u): %02x %02x %02x %02x obtained\n",
313 unpacked
[0], unpacked
[1], unpacked
[2], unpacked
[3]);
314 printf(" %02x %02x %02x %02x expected\n",
315 float_to_ubyte(test
->unpacked
[i
][j
][0]),
316 float_to_ubyte(test
->unpacked
[i
][j
][1]),
317 float_to_ubyte(test
->unpacked
[i
][j
][2]),
318 float_to_ubyte(test
->unpacked
[i
][j
][3]));
327 gallivm_destroy(gallivm
);
328 LLVMContextDispose(context
);
331 write_tsv_row(fp
, desc
, success
);
340 test_one(unsigned verbose
, FILE *fp
,
341 const struct util_format_description
*format_desc
,
344 boolean success
= TRUE
;
346 if (!test_format_float(verbose
, fp
, format_desc
, use_cache
)) {
350 if (!test_format_unorm8(verbose
, fp
, format_desc
, use_cache
)) {
359 test_all(unsigned verbose
, FILE *fp
)
361 enum pipe_format format
;
362 boolean success
= TRUE
;
365 cache_ptr
= align_malloc(sizeof(struct lp_build_format_cache
), 16);
367 for (use_cache
= 0; use_cache
< 2; use_cache
++) {
368 for (format
= 1; format
< PIPE_FORMAT_COUNT
; ++format
) {
369 const struct util_format_description
*format_desc
;
371 format_desc
= util_format_description(format
);
380 if (format_desc
->colorspace
== UTIL_FORMAT_COLORSPACE_ZS
) {
384 if (util_format_is_pure_integer(format
))
387 /* only have util fetch func for etc1 */
388 if (format_desc
->layout
== UTIL_FORMAT_LAYOUT_ETC
&&
389 format
!= PIPE_FORMAT_ETC1_RGB8
) {
393 /* missing fetch funcs */
394 if (format_desc
->layout
== UTIL_FORMAT_LAYOUT_ASTC
||
395 format_desc
->layout
== UTIL_FORMAT_LAYOUT_ATC
) {
399 /* only test twice with formats which can use cache */
400 if (format_desc
->layout
!= UTIL_FORMAT_LAYOUT_S3TC
&& use_cache
) {
404 if (!test_one(verbose
, fp
, format_desc
, use_cache
)) {
409 align_free(cache_ptr
);
416 test_some(unsigned verbose
, FILE *fp
,
419 return test_all(verbose
, fp
);
424 test_single(unsigned verbose
, FILE *fp
)
426 printf("no test_single()");