src/gallium/drivers/llvmpipe/lp_test_format.c

   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
  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
  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
  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, TRUE,
 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
 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) uint8_t packed[UTIL_FORMAT_MAX_PACKED_BYTES];
 137    PIPE_ALIGN_VAR(16) float unpacked[4];
 138    boolean first = TRUE;
 139    boolean success = TRUE;
 140    unsigned i, j, k, l;
 141
 142    gallivm = gallivm_create("test_module_float", LLVMGetGlobalContext());
 143
 144    fetch = add_fetch_rgba_test(gallivm, verbose, desc, lp_float32_vec4_type());
 145
 146    gallivm_compile_module(gallivm);
 147
 148    fetch_ptr = (fetch_ptr_t) gallivm_jit_function(gallivm, fetch);
 149
 150    gallivm_free_ir(gallivm);
 151
 152    for (l = 0; l < util_format_nr_test_cases; ++l) {
 153       const struct util_format_test_case *test = &util_format_test_cases[l];
 154
 155       if (test->format == desc->format) {
 156
 157          if (first) {
 158             printf("Testing %s (float) ...\n",
 159                    desc->name);
 160             fflush(stdout);
 161             first = FALSE;
 162          }
 163
 164          /* To ensure it's 16-byte aligned */
 165          memcpy(packed, test->packed, sizeof packed);
 166
 167          for (i = 0; i < desc->block.height; ++i) {
 168             for (j = 0; j < desc->block.width; ++j) {
 169                boolean match = TRUE;
 170
 171                memset(unpacked, 0, sizeof unpacked);
 172
 173                fetch_ptr(unpacked, packed, j, i);
 174
 175                for(k = 0; k < 4; ++k) {
 176                   if (util_double_inf_sign(test->unpacked[i][j][k]) != util_inf_sign(unpacked[k])) {
 177                      match = FALSE;
 178                   }
 179
 180                   if (util_is_double_nan(test->unpacked[i][j][k]) != util_is_nan(unpacked[k])) {
 181                      match = FALSE;
 182                   }
 183
 184                   if (!util_is_double_inf_or_nan(test->unpacked[i][j][k]) &&
 185                       fabs((float)test->unpacked[i][j][k] - unpacked[k]) > FLT_EPSILON) {
 186                      match = FALSE;
 187                   }
 188                }
 189
 190                if (!match) {
 191                   printf("FAILED\n");
 192                   printf("  Packed: %02x %02x %02x %02x\n",
 193                          test->packed[0], test->packed[1], test->packed[2], test->packed[3]);
 194                   printf("  Unpacked (%u,%u): %.9g %.9g %.9g %.9g obtained\n",
 195                          j, i,
 196                          unpacked[0], unpacked[1], unpacked[2], unpacked[3]);
 197                   printf("                  %.9g %.9g %.9g %.9g expected\n",
 198                          test->unpacked[i][j][0],
 199                          test->unpacked[i][j][1],
 200                          test->unpacked[i][j][2],
 201                          test->unpacked[i][j][3]);
 202                   fflush(stdout);
 203                   success = FALSE;
 204                }
 205             }
 206          }
 207       }
 208    }
 209
 210    gallivm_destroy(gallivm);
 211
 212    if(fp)
 213       write_tsv_row(fp, desc, success);
 214
 215    return success;
 216 }
 217
 218
 219 PIPE_ALIGN_STACK
 220 static boolean
 221 test_format_unorm8(unsigned verbose, FILE *fp,
 222                    const struct util_format_description *desc)
 223 {
 224    struct gallivm_state *gallivm;
 225    LLVMValueRef fetch = NULL;
 226    fetch_ptr_t fetch_ptr;
 227    PIPE_ALIGN_VAR(16) uint8_t packed[UTIL_FORMAT_MAX_PACKED_BYTES];
 228    uint8_t unpacked[4];
 229    boolean first = TRUE;
 230    boolean success = TRUE;
 231    unsigned i, j, k, l;
 232
 233    gallivm = gallivm_create("test_module_unorm8", LLVMGetGlobalContext());
 234
 235    fetch = add_fetch_rgba_test(gallivm, verbose, desc, lp_unorm8_vec4_type());
 236
 237    gallivm_compile_module(gallivm);
 238
 239    fetch_ptr = (fetch_ptr_t) gallivm_jit_function(gallivm, fetch);
 240
 241    gallivm_free_ir(gallivm);
 242
 243    for (l = 0; l < util_format_nr_test_cases; ++l) {
 244       const struct util_format_test_case *test = &util_format_test_cases[l];
 245
 246       if (test->format == desc->format) {
 247
 248          if (first) {
 249             printf("Testing %s (unorm8) ...\n",
 250                    desc->name);
 251             first = FALSE;
 252          }
 253
 254          /* To ensure it's 16-byte aligned */
 255          /* Could skip this and use unaligned lp_build_fetch_rgba_aos */
 256          memcpy(packed, test->packed, sizeof packed);
 257
 258          for (i = 0; i < desc->block.height; ++i) {
 259             for (j = 0; j < desc->block.width; ++j) {
 260                boolean match;
 261
 262                memset(unpacked, 0, sizeof unpacked);
 263
 264                fetch_ptr(unpacked, packed, j, i);
 265
 266                match = TRUE;
 267                for(k = 0; k < 4; ++k) {
 268                   int error = float_to_ubyte(test->unpacked[i][j][k]) - unpacked[k];
 269
 270                   if (util_is_double_nan(test->unpacked[i][j][k]))
 271                      continue;
 272
 273                   if (error < 0)
 274                      error = -error;
 275
 276                   if (error > 1)
 277                      match = FALSE;
 278                }
 279
 280                if (!match) {
 281                   printf("FAILED\n");
 282                   printf("  Packed: %02x %02x %02x %02x\n",
 283                          test->packed[0], test->packed[1], test->packed[2], test->packed[3]);
 284                   printf("  Unpacked (%u,%u): %02x %02x %02x %02x obtained\n",
 285                          j, i,
 286                          unpacked[0], unpacked[1], unpacked[2], unpacked[3]);
 287                   printf("                  %02x %02x %02x %02x expected\n",
 288                          float_to_ubyte(test->unpacked[i][j][0]),
 289                          float_to_ubyte(test->unpacked[i][j][1]),
 290                          float_to_ubyte(test->unpacked[i][j][2]),
 291                          float_to_ubyte(test->unpacked[i][j][3]));
 292
 293                   success = FALSE;
 294                }
 295             }
 296          }
 297       }
 298    }
 299
 300    gallivm_destroy(gallivm);
 301
 302    if(fp)
 303       write_tsv_row(fp, desc, success);
 304
 305    return success;
 306 }
 307
 308
 309
 310
 311 static boolean
 312 test_one(unsigned verbose, FILE *fp,
 313          const struct util_format_description *format_desc)
 314 {
 315    boolean success = TRUE;
 316
 317    if (!test_format_float(verbose, fp, format_desc)) {
 318      success = FALSE;
 319    }
 320
 321    if (!test_format_unorm8(verbose, fp, format_desc)) {
 322      success = FALSE;
 323    }
 324
 325    return success;
 326 }
 327
 328
 329 boolean
 330 test_all(unsigned verbose, FILE *fp)
 331 {
 332    enum pipe_format format;
 333    boolean success = TRUE;
 334
 335    util_format_s3tc_init();
 336
 337    for (format = 1; format < PIPE_FORMAT_COUNT; ++format) {
 338       const struct util_format_description *format_desc;
 339
 340       format_desc = util_format_description(format);
 341       if (!format_desc) {
 342          continue;
 343       }
 344
 345
 346       /*
 347        * TODO: test more
 348        */
 349
 350       if (format_desc->colorspace == UTIL_FORMAT_COLORSPACE_ZS) {
 351          continue;
 352       }
 353
 354       if (util_format_is_pure_integer(format))
 355          continue;
 356
 357       if (format_desc->layout == UTIL_FORMAT_LAYOUT_S3TC &&
 358           !util_format_s3tc_enabled) {
 359          continue;
 360       }
 361
 362       if (!test_one(verbose, fp, format_desc)) {
 363            success = FALSE;
 364       }
 365    }
 366
 367    return success;
 368 }
 369
 370
 371 boolean
 372 test_some(unsigned verbose, FILE *fp,
 373           unsigned long n)
 374 {
 375    return test_all(verbose, fp);
 376 }
 377
 378
 379 boolean
 380 test_single(unsigned verbose, FILE *fp)
 381 {
 382    printf("no test_single()");
 383    return TRUE;
 384 }