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
  32 #include "gallivm/lp_bld.h"
  33 #include <llvm-c/Analysis.h>
  34 #include <llvm-c/ExecutionEngine.h>
  35 #include <llvm-c/Target.h>
  36 #include <llvm-c/Transforms/Scalar.h>
  37
  38 #include "util/u_cpu_detect.h"
  39 #include "util/u_format.h"
  40
  41 #include "gallivm/lp_bld_format.h"
  42 #include "lp_test.h"
  43
  44
  45 struct pixel_test_case
  46 {
  47    enum pipe_format format;
  48    uint32_t packed;
  49    double unpacked[4];
  50 };
  51
  52
  53 struct pixel_test_case test_cases[] =
  54 {
  55    {PIPE_FORMAT_B5G6R5_UNORM,   0x0000, {0.0, 0.0, 0.0, 1.0}},
  56    {PIPE_FORMAT_B5G6R5_UNORM,   0x001f, {0.0, 0.0, 1.0, 1.0}},
  57    {PIPE_FORMAT_B5G6R5_UNORM,   0x07e0, {0.0, 1.0, 0.0, 1.0}},
  58    {PIPE_FORMAT_B5G6R5_UNORM,   0xf800, {1.0, 0.0, 0.0, 1.0}},
  59    {PIPE_FORMAT_B5G6R5_UNORM,   0xffff, {1.0, 1.0, 1.0, 1.0}},
  60
  61    {PIPE_FORMAT_B5G5R5A1_UNORM, 0x0000, {0.0, 0.0, 0.0, 0.0}},
  62    {PIPE_FORMAT_B5G5R5A1_UNORM, 0x001f, {0.0, 0.0, 1.0, 0.0}},
  63    {PIPE_FORMAT_B5G5R5A1_UNORM, 0x03e0, {0.0, 1.0, 0.0, 0.0}},
  64    {PIPE_FORMAT_B5G5R5A1_UNORM, 0x7c00, {1.0, 0.0, 0.0, 0.0}},
  65    {PIPE_FORMAT_B5G5R5A1_UNORM, 0x8000, {0.0, 0.0, 0.0, 1.0}},
  66    {PIPE_FORMAT_B5G5R5A1_UNORM, 0xffff, {1.0, 1.0, 1.0, 1.0}},
  67
  68    {PIPE_FORMAT_B8G8R8A8_UNORM, 0x00000000, {0.0, 0.0, 0.0, 0.0}},
  69    {PIPE_FORMAT_B8G8R8A8_UNORM, 0x000000ff, {0.0, 0.0, 1.0, 0.0}},
  70    {PIPE_FORMAT_B8G8R8A8_UNORM, 0x0000ff00, {0.0, 1.0, 0.0, 0.0}},
  71    {PIPE_FORMAT_B8G8R8A8_UNORM, 0x00ff0000, {1.0, 0.0, 0.0, 0.0}},
  72    {PIPE_FORMAT_B8G8R8A8_UNORM, 0xff000000, {0.0, 0.0, 0.0, 1.0}},
  73    {PIPE_FORMAT_B8G8R8A8_UNORM, 0xffffffff, {1.0, 1.0, 1.0, 1.0}},
  74
  75 #if 0
  76    {PIPE_FORMAT_R8G8B8A8_UNORM, 0x00000000, {0.0, 0.0, 0.0, 0.0}},
  77    {PIPE_FORMAT_R8G8B8A8_UNORM, 0x000000ff, {0.0, 0.0, 0.0, 1.0}},
  78    {PIPE_FORMAT_R8G8B8A8_UNORM, 0x0000ff00, {0.0, 0.0, 1.0, 0.0}},
  79    {PIPE_FORMAT_R8G8B8A8_UNORM, 0x00ff0000, {0.0, 1.0, 0.0, 0.0}},
  80    {PIPE_FORMAT_R8G8B8A8_UNORM, 0xff000000, {1.0, 0.0, 0.0, 0.0}},
  81    {PIPE_FORMAT_R8G8B8A8_UNORM, 0xffffffff, {1.0, 1.0, 1.0, 1.0}},
  82 #endif
  83
  84    {PIPE_FORMAT_A8R8G8B8_UNORM, 0x00000000, {0.0, 0.0, 0.0, 0.0}},
  85    {PIPE_FORMAT_A8R8G8B8_UNORM, 0x000000ff, {0.0, 0.0, 0.0, 1.0}},
  86    {PIPE_FORMAT_A8R8G8B8_UNORM, 0x0000ff00, {1.0, 0.0, 0.0, 0.0}},
  87    {PIPE_FORMAT_A8R8G8B8_UNORM, 0x00ff0000, {0.0, 1.0, 0.0, 0.0}},
  88    {PIPE_FORMAT_A8R8G8B8_UNORM, 0xff000000, {0.0, 0.0, 1.0, 0.0}},
  89    {PIPE_FORMAT_A8R8G8B8_UNORM, 0xffffffff, {1.0, 1.0, 1.0, 1.0}},
  90 };
  91
  92
  93 void
  94 write_tsv_header(FILE *fp)
  95 {
  96    fprintf(fp,
  97            "result\t"
  98            "format\n");
  99
 100    fflush(fp);
 101 }
 102
 103
 104 static void
 105 write_tsv_row(FILE *fp,
 106               const struct util_format_description *desc,
 107               boolean success)
 108 {
 109    fprintf(fp, "%s\t", success ? "pass" : "fail");
 110
 111    fprintf(fp, "%s\n", desc->name);
 112
 113    fflush(fp);
 114 }
 115
 116
 117 typedef void (*load_ptr_t)(const uint32_t packed, float *);
 118
 119
 120 static LLVMValueRef
 121 add_load_rgba_test(LLVMModuleRef module,
 122                    const struct util_format_description *desc)
 123 {
 124    LLVMTypeRef args[2];
 125    LLVMValueRef func;
 126    LLVMValueRef packed;
 127    LLVMValueRef rgba_ptr;
 128    LLVMBasicBlockRef block;
 129    LLVMBuilderRef builder;
 130    LLVMValueRef rgba;
 131
 132    args[0] = LLVMInt32Type();
 133    args[1] = LLVMPointerType(LLVMVectorType(LLVMFloatType(), 4), 0);
 134
 135    func = LLVMAddFunction(module, "load", LLVMFunctionType(LLVMVoidType(), args, 2, 0));
 136    LLVMSetFunctionCallConv(func, LLVMCCallConv);
 137    packed = LLVMGetParam(func, 0);
 138    rgba_ptr = LLVMGetParam(func, 1);
 139
 140    block = LLVMAppendBasicBlock(func, "entry");
 141    builder = LLVMCreateBuilder();
 142    LLVMPositionBuilderAtEnd(builder, block);
 143
 144    if(desc->block.bits < 32)
 145       packed = LLVMBuildTrunc(builder, packed, LLVMIntType(desc->block.bits), "");
 146
 147    rgba = lp_build_unpack_rgba_aos(builder, desc, packed);
 148
 149    LLVMBuildStore(builder, rgba, rgba_ptr);
 150
 151    LLVMBuildRetVoid(builder);
 152
 153    LLVMDisposeBuilder(builder);
 154    return func;
 155 }
 156
 157
 158 typedef void (*store_ptr_t)(uint32_t *, const float *);
 159
 160
 161 static LLVMValueRef
 162 add_store_rgba_test(LLVMModuleRef module,
 163                     const struct util_format_description *desc)
 164 {
 165    LLVMTypeRef args[2];
 166    LLVMValueRef func;
 167    LLVMValueRef packed_ptr;
 168    LLVMValueRef rgba_ptr;
 169    LLVMBasicBlockRef block;
 170    LLVMBuilderRef builder;
 171    LLVMValueRef rgba;
 172    LLVMValueRef packed;
 173
 174    args[0] = LLVMPointerType(LLVMInt32Type(), 0);
 175    args[1] = LLVMPointerType(LLVMVectorType(LLVMFloatType(), 4), 0);
 176
 177    func = LLVMAddFunction(module, "store", LLVMFunctionType(LLVMVoidType(), args, 2, 0));
 178    LLVMSetFunctionCallConv(func, LLVMCCallConv);
 179    packed_ptr = LLVMGetParam(func, 0);
 180    rgba_ptr = LLVMGetParam(func, 1);
 181
 182    block = LLVMAppendBasicBlock(func, "entry");
 183    builder = LLVMCreateBuilder();
 184    LLVMPositionBuilderAtEnd(builder, block);
 185
 186    rgba = LLVMBuildLoad(builder, rgba_ptr, "");
 187
 188    packed = lp_build_pack_rgba_aos(builder, desc, rgba);
 189
 190    if(desc->block.bits < 32)
 191       packed = LLVMBuildZExt(builder, packed, LLVMInt32Type(), "");
 192
 193    LLVMBuildStore(builder, packed, packed_ptr);
 194
 195    LLVMBuildRetVoid(builder);
 196
 197    LLVMDisposeBuilder(builder);
 198    return func;
 199 }
 200
 201
 202 PIPE_ALIGN_STACK
 203 static boolean
 204 test_format(unsigned verbose, FILE *fp, const struct pixel_test_case *test)
 205 {
 206    LLVMModuleRef module = NULL;
 207    LLVMValueRef load = NULL;
 208    LLVMValueRef store = NULL;
 209    LLVMExecutionEngineRef engine = NULL;
 210    LLVMModuleProviderRef provider = NULL;
 211    LLVMPassManagerRef pass = NULL;
 212    char *error = NULL;
 213    const struct util_format_description *desc;
 214    load_ptr_t load_ptr;
 215    store_ptr_t store_ptr;
 216    float unpacked[4];
 217    unsigned packed;
 218    boolean success;
 219    unsigned i;
 220
 221    desc = util_format_description(test->format);
 222    fprintf(stderr, "%s\n", desc->name);
 223
 224    module = LLVMModuleCreateWithName("test");
 225
 226    load = add_load_rgba_test(module, desc);
 227    store = add_store_rgba_test(module, desc);
 228
 229    if(LLVMVerifyModule(module, LLVMPrintMessageAction, &error)) {
 230       LLVMDumpModule(module);
 231       abort();
 232    }
 233    LLVMDisposeMessage(error);
 234
 235    provider = LLVMCreateModuleProviderForExistingModule(module);
 236    if (LLVMCreateJITCompiler(&engine, provider, 1, &error)) {
 237       fprintf(stderr, "%s\n", error);
 238       LLVMDisposeMessage(error);
 239       abort();
 240    }
 241
 242 #if 0
 243    pass = LLVMCreatePassManager();
 244    LLVMAddTargetData(LLVMGetExecutionEngineTargetData(engine), pass);
 245    /* These are the passes currently listed in llvm-c/Transforms/Scalar.h,
 246     * but there are more on SVN. */
 247    LLVMAddConstantPropagationPass(pass);
 248    LLVMAddInstructionCombiningPass(pass);
 249    LLVMAddPromoteMemoryToRegisterPass(pass);
 250    LLVMAddGVNPass(pass);
 251    LLVMAddCFGSimplificationPass(pass);
 252    LLVMRunPassManager(pass, module);
 253 #else
 254    (void)pass;
 255 #endif
 256
 257    load_ptr  = (load_ptr_t) LLVMGetPointerToGlobal(engine, load);
 258    store_ptr = (store_ptr_t)LLVMGetPointerToGlobal(engine, store);
 259
 260    memset(unpacked, 0, sizeof unpacked);
 261    packed = 0;
 262
 263    load_ptr(test->packed, unpacked);
 264    store_ptr(&packed, unpacked);
 265
 266    success = TRUE;
 267    if(test->packed != packed)
 268       success = FALSE;
 269    for(i = 0; i < 4; ++i)
 270       if(test->unpacked[i] != unpacked[i])
 271          success = FALSE;
 272
 273    if (!success) {
 274       printf("FAILED\n");
 275       printf("  Packed: %08x\n", test->packed);
 276       printf("          %08x\n", packed);
 277       printf("  Unpacked: %f %f %f %f\n", unpacked[0], unpacked[1], unpacked[2], unpacked[3]);
 278       printf("            %f %f %f %f\n", test->unpacked[0], test->unpacked[1], test->unpacked[2], test->unpacked[3]);
 279       LLVMDumpModule(module);
 280    }
 281
 282    LLVMFreeMachineCodeForFunction(engine, store);
 283    LLVMFreeMachineCodeForFunction(engine, load);
 284
 285    LLVMDisposeExecutionEngine(engine);
 286    if(pass)
 287       LLVMDisposePassManager(pass);
 288
 289    if(fp)
 290       write_tsv_row(fp, desc, success);
 291
 292    return success;
 293 }
 294
 295
 296 boolean
 297 test_all(unsigned verbose, FILE *fp)
 298 {
 299    unsigned i;
 300    bool success = TRUE;
 301
 302    for (i = 0; i < sizeof(test_cases)/sizeof(test_cases[0]); ++i)
 303       if(!test_format(verbose, fp, &test_cases[i]))
 304         success = FALSE;
 305
 306    return success;
 307 }
 308
 309
 310 boolean
 311 test_some(unsigned verbose, FILE *fp, unsigned long n)
 312 {
 313    return test_all(verbose, fp);
 314 }