| /************************************************************************** |
| * |
| * Copyright 2009 VMware, Inc. |
| * All Rights Reserved. |
| * |
| * Permission is hereby granted, free of charge, to any person obtaining a |
| * copy of this software and associated documentation files (the |
| * "Software"), to deal in the Software without restriction, including |
| * without limitation the rights to use, copy, modify, merge, publish, |
| * distribute, sub license, and/or sell copies of the Software, and to |
| * permit persons to whom the Software is furnished to do so, subject to |
| * the following conditions: |
| * |
| * The above copyright notice and this permission notice (including the |
| * next paragraph) shall be included in all copies or substantial portions |
| * of the Software. |
| * |
| * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS |
| * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
| * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT. |
| * IN NO EVENT SHALL VMWARE AND/OR ITS SUPPLIERS BE LIABLE FOR |
| * ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, |
| * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE |
| * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
| * |
| **************************************************************************/ |
| |
| |
| #include <stdlib.h> |
| #include <stdio.h> |
| #include <float.h> |
| |
| #include "util/u_memory.h" |
| #include "util/u_pointer.h" |
| #include "util/u_string.h" |
| #include "util/u_format.h" |
| #include "util/u_format_tests.h" |
| #include "util/u_format_s3tc.h" |
| |
| #include "gallivm/lp_bld.h" |
| #include "gallivm/lp_bld_debug.h" |
| #include "gallivm/lp_bld_format.h" |
| #include "gallivm/lp_bld_init.h" |
| |
| #include "lp_test.h" |
| |
| #define USE_TEXTURE_CACHE 1 |
| |
| static struct lp_build_format_cache *cache_ptr; |
| |
| void |
| write_tsv_header(FILE *fp) |
| { |
| fprintf(fp, |
| "result\t" |
| "format\n"); |
| |
| fflush(fp); |
| } |
| |
| |
| static void |
| write_tsv_row(FILE *fp, |
| const struct util_format_description *desc, |
| boolean success) |
| { |
| fprintf(fp, "%s\t", success ? "pass" : "fail"); |
| |
| fprintf(fp, "%s\n", desc->name); |
| |
| fflush(fp); |
| } |
| |
| |
| typedef void |
| (*fetch_ptr_t)(void *unpacked, const void *packed, |
| unsigned i, unsigned j, struct lp_build_format_cache *cache); |
| |
| |
| static LLVMValueRef |
| add_fetch_rgba_test(struct gallivm_state *gallivm, unsigned verbose, |
| const struct util_format_description *desc, |
| struct lp_type type) |
| { |
| char name[256]; |
| LLVMContextRef context = gallivm->context; |
| LLVMModuleRef module = gallivm->module; |
| LLVMBuilderRef builder = gallivm->builder; |
| LLVMTypeRef args[5]; |
| LLVMValueRef func; |
| LLVMValueRef packed_ptr; |
| LLVMValueRef offset = LLVMConstNull(LLVMInt32TypeInContext(context)); |
| LLVMValueRef rgba_ptr; |
| LLVMValueRef i; |
| LLVMValueRef j; |
| LLVMBasicBlockRef block; |
| LLVMValueRef rgba; |
| LLVMValueRef cache = NULL; |
| |
| util_snprintf(name, sizeof name, "fetch_%s_%s", desc->short_name, |
| type.floating ? "float" : "unorm8"); |
| |
| args[0] = LLVMPointerType(lp_build_vec_type(gallivm, type), 0); |
| args[1] = LLVMPointerType(LLVMInt8TypeInContext(context), 0); |
| args[3] = args[2] = LLVMInt32TypeInContext(context); |
| args[4] = LLVMPointerType(lp_build_format_cache_type(gallivm), 0); |
| |
| func = LLVMAddFunction(module, name, |
| LLVMFunctionType(LLVMVoidTypeInContext(context), |
| args, ARRAY_SIZE(args), 0)); |
| LLVMSetFunctionCallConv(func, LLVMCCallConv); |
| rgba_ptr = LLVMGetParam(func, 0); |
| packed_ptr = LLVMGetParam(func, 1); |
| i = LLVMGetParam(func, 2); |
| j = LLVMGetParam(func, 3); |
| |
| if (cache_ptr) { |
| cache = LLVMGetParam(func, 4); |
| } |
| |
| block = LLVMAppendBasicBlockInContext(context, func, "entry"); |
| LLVMPositionBuilderAtEnd(builder, block); |
| |
| rgba = lp_build_fetch_rgba_aos(gallivm, desc, type, TRUE, |
| packed_ptr, offset, i, j, cache); |
| |
| LLVMBuildStore(builder, rgba, rgba_ptr); |
| |
| LLVMBuildRetVoid(builder); |
| |
| gallivm_verify_function(gallivm, func); |
| |
| return func; |
| } |
| |
| |
| PIPE_ALIGN_STACK |
| static boolean |
| test_format_float(unsigned verbose, FILE *fp, |
| const struct util_format_description *desc) |
| { |
| LLVMContextRef context; |
| struct gallivm_state *gallivm; |
| LLVMValueRef fetch = NULL; |
| fetch_ptr_t fetch_ptr; |
| PIPE_ALIGN_VAR(16) uint8_t packed[UTIL_FORMAT_MAX_PACKED_BYTES]; |
| PIPE_ALIGN_VAR(16) float unpacked[4]; |
| boolean first = TRUE; |
| boolean success = TRUE; |
| unsigned i, j, k, l; |
| |
| context = LLVMContextCreate(); |
| gallivm = gallivm_create("test_module_float", context); |
| |
| fetch = add_fetch_rgba_test(gallivm, verbose, desc, lp_float32_vec4_type()); |
| |
| gallivm_compile_module(gallivm); |
| |
| fetch_ptr = (fetch_ptr_t) gallivm_jit_function(gallivm, fetch); |
| |
| gallivm_free_ir(gallivm); |
| |
| for (l = 0; l < util_format_nr_test_cases; ++l) { |
| const struct util_format_test_case *test = &util_format_test_cases[l]; |
| |
| if (test->format == desc->format) { |
| |
| if (first) { |
| printf("Testing %s (float) ...\n", |
| desc->name); |
| fflush(stdout); |
| first = FALSE; |
| } |
| |
| /* To ensure it's 16-byte aligned */ |
| memcpy(packed, test->packed, sizeof packed); |
| |
| for (i = 0; i < desc->block.height; ++i) { |
| for (j = 0; j < desc->block.width; ++j) { |
| boolean match = TRUE; |
| |
| memset(unpacked, 0, sizeof unpacked); |
| |
| fetch_ptr(unpacked, packed, j, i, cache_ptr); |
| |
| for(k = 0; k < 4; ++k) { |
| if (util_double_inf_sign(test->unpacked[i][j][k]) != util_inf_sign(unpacked[k])) { |
| match = FALSE; |
| } |
| |
| if (util_is_double_nan(test->unpacked[i][j][k]) != util_is_nan(unpacked[k])) { |
| match = FALSE; |
| } |
| |
| if (!util_is_double_inf_or_nan(test->unpacked[i][j][k]) && |
| fabs((float)test->unpacked[i][j][k] - unpacked[k]) > FLT_EPSILON) { |
| match = FALSE; |
| } |
| } |
| |
| /* Ignore errors in S3TC for now */ |
| if (desc->layout == UTIL_FORMAT_LAYOUT_S3TC) { |
| match = TRUE; |
| } |
| |
| if (!match) { |
| printf("FAILED\n"); |
| printf(" Packed: %02x %02x %02x %02x\n", |
| test->packed[0], test->packed[1], test->packed[2], test->packed[3]); |
| printf(" Unpacked (%u,%u): %.9g %.9g %.9g %.9g obtained\n", |
| j, i, |
| unpacked[0], unpacked[1], unpacked[2], unpacked[3]); |
| printf(" %.9g %.9g %.9g %.9g expected\n", |
| test->unpacked[i][j][0], |
| test->unpacked[i][j][1], |
| test->unpacked[i][j][2], |
| test->unpacked[i][j][3]); |
| fflush(stdout); |
| success = FALSE; |
| } |
| } |
| } |
| } |
| } |
| |
| gallivm_destroy(gallivm); |
| LLVMContextDispose(context); |
| |
| if(fp) |
| write_tsv_row(fp, desc, success); |
| |
| return success; |
| } |
| |
| |
| PIPE_ALIGN_STACK |
| static boolean |
| test_format_unorm8(unsigned verbose, FILE *fp, |
| const struct util_format_description *desc) |
| { |
| LLVMContextRef context; |
| struct gallivm_state *gallivm; |
| LLVMValueRef fetch = NULL; |
| fetch_ptr_t fetch_ptr; |
| PIPE_ALIGN_VAR(16) uint8_t packed[UTIL_FORMAT_MAX_PACKED_BYTES]; |
| uint8_t unpacked[4]; |
| boolean first = TRUE; |
| boolean success = TRUE; |
| unsigned i, j, k, l; |
| |
| context = LLVMContextCreate(); |
| gallivm = gallivm_create("test_module_unorm8", context); |
| |
| fetch = add_fetch_rgba_test(gallivm, verbose, desc, lp_unorm8_vec4_type()); |
| |
| gallivm_compile_module(gallivm); |
| |
| fetch_ptr = (fetch_ptr_t) gallivm_jit_function(gallivm, fetch); |
| |
| gallivm_free_ir(gallivm); |
| |
| for (l = 0; l < util_format_nr_test_cases; ++l) { |
| const struct util_format_test_case *test = &util_format_test_cases[l]; |
| |
| if (test->format == desc->format) { |
| |
| if (first) { |
| printf("Testing %s (unorm8) ...\n", |
| desc->name); |
| first = FALSE; |
| } |
| |
| /* To ensure it's 16-byte aligned */ |
| /* Could skip this and use unaligned lp_build_fetch_rgba_aos */ |
| memcpy(packed, test->packed, sizeof packed); |
| |
| for (i = 0; i < desc->block.height; ++i) { |
| for (j = 0; j < desc->block.width; ++j) { |
| boolean match; |
| |
| memset(unpacked, 0, sizeof unpacked); |
| |
| fetch_ptr(unpacked, packed, j, i, cache_ptr); |
| |
| match = TRUE; |
| for(k = 0; k < 4; ++k) { |
| int error = float_to_ubyte(test->unpacked[i][j][k]) - unpacked[k]; |
| |
| if (util_is_double_nan(test->unpacked[i][j][k])) |
| continue; |
| |
| if (error < 0) |
| error = -error; |
| |
| if (error > 1) |
| match = FALSE; |
| } |
| |
| /* Ignore errors in S3TC as we only implement a poor man approach */ |
| if (desc->layout == UTIL_FORMAT_LAYOUT_S3TC) { |
| match = TRUE; |
| } |
| |
| if (!match) { |
| printf("FAILED\n"); |
| printf(" Packed: %02x %02x %02x %02x\n", |
| test->packed[0], test->packed[1], test->packed[2], test->packed[3]); |
| printf(" Unpacked (%u,%u): %02x %02x %02x %02x obtained\n", |
| j, i, |
| unpacked[0], unpacked[1], unpacked[2], unpacked[3]); |
| printf(" %02x %02x %02x %02x expected\n", |
| float_to_ubyte(test->unpacked[i][j][0]), |
| float_to_ubyte(test->unpacked[i][j][1]), |
| float_to_ubyte(test->unpacked[i][j][2]), |
| float_to_ubyte(test->unpacked[i][j][3])); |
| |
| success = FALSE; |
| } |
| } |
| } |
| } |
| } |
| |
| gallivm_destroy(gallivm); |
| LLVMContextDispose(context); |
| |
| if(fp) |
| write_tsv_row(fp, desc, success); |
| |
| return success; |
| } |
| |
| |
| |
| |
| static boolean |
| test_one(unsigned verbose, FILE *fp, |
| const struct util_format_description *format_desc) |
| { |
| boolean success = TRUE; |
| |
| if (!test_format_float(verbose, fp, format_desc)) { |
| success = FALSE; |
| } |
| |
| if (!test_format_unorm8(verbose, fp, format_desc)) { |
| success = FALSE; |
| } |
| |
| return success; |
| } |
| |
| |
| boolean |
| test_all(unsigned verbose, FILE *fp) |
| { |
| enum pipe_format format; |
| boolean success = TRUE; |
| |
| #if USE_TEXTURE_CACHE |
| cache_ptr = align_malloc(sizeof(struct lp_build_format_cache), 16); |
| #endif |
| |
| for (format = 1; format < PIPE_FORMAT_COUNT; ++format) { |
| const struct util_format_description *format_desc; |
| |
| format_desc = util_format_description(format); |
| if (!format_desc) { |
| continue; |
| } |
| |
| |
| /* |
| * TODO: test more |
| */ |
| |
| if (format_desc->colorspace == UTIL_FORMAT_COLORSPACE_ZS) { |
| continue; |
| } |
| |
| if (util_format_is_pure_integer(format)) |
| continue; |
| |
| /* only have util fetch func for etc1 */ |
| if (format_desc->layout == UTIL_FORMAT_LAYOUT_ETC && |
| format != PIPE_FORMAT_ETC1_RGB8) { |
| continue; |
| } |
| |
| /* missing fetch funcs */ |
| if (format_desc->layout == UTIL_FORMAT_LAYOUT_BPTC || |
| format_desc->layout == UTIL_FORMAT_LAYOUT_ASTC) { |
| continue; |
| } |
| |
| if (!test_one(verbose, fp, format_desc)) { |
| success = FALSE; |
| } |
| } |
| #if USE_TEXTURE_CACHE |
| align_free(cache_ptr); |
| #endif |
| |
| return success; |
| } |
| |
| |
| boolean |
| test_some(unsigned verbose, FILE *fp, |
| unsigned long n) |
| { |
| return test_all(verbose, fp); |
| } |
| |
| |
| boolean |
| test_single(unsigned verbose, FILE *fp) |
| { |
| printf("no test_single()"); |
| return TRUE; |
| } |