src/gallium/drivers/r300/r300_tgsi_to_rc.c

   1 /*
   2  * Copyright 2009 Nicolai Hähnle <nhaehnle@gmail.com>
   3  *
   4  * Permission is hereby granted, free of charge, to any person obtaining a
   5  * copy of this software and associated documentation files (the "Software"),
   6  * to deal in the Software without restriction, including without limitation
   7  * on the rights to use, copy, modify, merge, publish, distribute, sub
   8  * license, and/or sell copies of the Software, and to permit persons to whom
   9  * the Software is furnished to do so, subject to the following conditions:
  10  *
  11  * The above copyright notice and this permission notice (including the next
  12  * paragraph) shall be included in all copies or substantial portions of the
  13  * Software.
  14  *
  15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
  16  * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
  17  * FITNESS FOR A PARTICULAR PURPOSE AND NON-INFRINGEMENT. IN NO EVENT SHALL
  18  * THE COPYRIGHT HOLDER(S) AND/OR THEIR SUPPLIERS BE LIABLE FOR ANY CLAIM,
  19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
  20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE
  21  * USE OR OTHER DEALINGS IN THE SOFTWARE. */
  22
  23 #include <stdio.h>
  24 #include "r300_tgsi_to_rc.h"
  25
  26 #include "compiler/radeon_compiler.h"
  27
  28 #include "tgsi/tgsi_info.h"
  29 #include "tgsi/tgsi_parse.h"
  30 #include "tgsi/tgsi_scan.h"
  31 #include "tgsi/tgsi_util.h"
  32
  33 static unsigned translate_opcode(unsigned opcode)
  34 {
  35     switch(opcode) {
  36         case TGSI_OPCODE_ARL: return RC_OPCODE_ARL;
  37         case TGSI_OPCODE_MOV: return RC_OPCODE_MOV;
  38         case TGSI_OPCODE_LIT: return RC_OPCODE_LIT;
  39         case TGSI_OPCODE_RCP: return RC_OPCODE_RCP;
  40         case TGSI_OPCODE_RSQ: return RC_OPCODE_RSQ;
  41         case TGSI_OPCODE_EXP: return RC_OPCODE_EXP;
  42         case TGSI_OPCODE_LOG: return RC_OPCODE_LOG;
  43         case TGSI_OPCODE_MUL: return RC_OPCODE_MUL;
  44         case TGSI_OPCODE_ADD: return RC_OPCODE_ADD;
  45         case TGSI_OPCODE_DP3: return RC_OPCODE_DP3;
  46         case TGSI_OPCODE_DP4: return RC_OPCODE_DP4;
  47         case TGSI_OPCODE_DST: return RC_OPCODE_DST;
  48         case TGSI_OPCODE_MIN: return RC_OPCODE_MIN;
  49         case TGSI_OPCODE_MAX: return RC_OPCODE_MAX;
  50         case TGSI_OPCODE_SLT: return RC_OPCODE_SLT;
  51         case TGSI_OPCODE_SGE: return RC_OPCODE_SGE;
  52         case TGSI_OPCODE_MAD: return RC_OPCODE_MAD;
  53         case TGSI_OPCODE_SUB: return RC_OPCODE_SUB;
  54         case TGSI_OPCODE_LRP: return RC_OPCODE_LRP;
  55      /* case TGSI_OPCODE_DP2A: return RC_OPCODE_DP2A; */
  56         case TGSI_OPCODE_FRC: return RC_OPCODE_FRC;
  57         case TGSI_OPCODE_CLAMP: return RC_OPCODE_CLAMP;
  58         case TGSI_OPCODE_FLR: return RC_OPCODE_FLR;
  59         case TGSI_OPCODE_ROUND: return RC_OPCODE_ROUND;
  60         case TGSI_OPCODE_EX2: return RC_OPCODE_EX2;
  61         case TGSI_OPCODE_LG2: return RC_OPCODE_LG2;
  62         case TGSI_OPCODE_POW: return RC_OPCODE_POW;
  63         case TGSI_OPCODE_XPD: return RC_OPCODE_XPD;
  64         case TGSI_OPCODE_ABS: return RC_OPCODE_ABS;
  65         case TGSI_OPCODE_DPH: return RC_OPCODE_DPH;
  66         case TGSI_OPCODE_COS: return RC_OPCODE_COS;
  67         case TGSI_OPCODE_DDX: return RC_OPCODE_DDX;
  68         case TGSI_OPCODE_DDY: return RC_OPCODE_DDY;
  69         case TGSI_OPCODE_KILL: return RC_OPCODE_KILP;
  70      /* case TGSI_OPCODE_PK2H: return RC_OPCODE_PK2H; */
  71      /* case TGSI_OPCODE_PK2US: return RC_OPCODE_PK2US; */
  72      /* case TGSI_OPCODE_PK4B: return RC_OPCODE_PK4B; */
  73      /* case TGSI_OPCODE_PK4UB: return RC_OPCODE_PK4UB; */
  74         case TGSI_OPCODE_SEQ: return RC_OPCODE_SEQ;
  75         case TGSI_OPCODE_SGT: return RC_OPCODE_SGT;
  76         case TGSI_OPCODE_SIN: return RC_OPCODE_SIN;
  77         case TGSI_OPCODE_SLE: return RC_OPCODE_SLE;
  78         case TGSI_OPCODE_SNE: return RC_OPCODE_SNE;
  79         case TGSI_OPCODE_TEX: return RC_OPCODE_TEX;
  80         case TGSI_OPCODE_TXD: return RC_OPCODE_TXD;
  81         case TGSI_OPCODE_TXP: return RC_OPCODE_TXP;
  82      /* case TGSI_OPCODE_UP2H: return RC_OPCODE_UP2H; */
  83      /* case TGSI_OPCODE_UP2US: return RC_OPCODE_UP2US; */
  84      /* case TGSI_OPCODE_UP4B: return RC_OPCODE_UP4B; */
  85      /* case TGSI_OPCODE_UP4UB: return RC_OPCODE_UP4UB; */
  86         case TGSI_OPCODE_ARR: return RC_OPCODE_ARR;
  87      /* case TGSI_OPCODE_CAL: return RC_OPCODE_CAL; */
  88      /* case TGSI_OPCODE_RET: return RC_OPCODE_RET; */
  89         case TGSI_OPCODE_SSG: return RC_OPCODE_SSG;
  90         case TGSI_OPCODE_CMP: return RC_OPCODE_CMP;
  91         case TGSI_OPCODE_SCS: return RC_OPCODE_SCS;
  92         case TGSI_OPCODE_TXB: return RC_OPCODE_TXB;
  93      /* case TGSI_OPCODE_DIV: return RC_OPCODE_DIV; */
  94         case TGSI_OPCODE_DP2: return RC_OPCODE_DP2;
  95         case TGSI_OPCODE_TXL: return RC_OPCODE_TXL;
  96         case TGSI_OPCODE_BRK: return RC_OPCODE_BRK;
  97         case TGSI_OPCODE_IF: return RC_OPCODE_IF;
  98         case TGSI_OPCODE_BGNLOOP: return RC_OPCODE_BGNLOOP;
  99         case TGSI_OPCODE_ELSE: return RC_OPCODE_ELSE;
 100         case TGSI_OPCODE_ENDIF: return RC_OPCODE_ENDIF;
 101         case TGSI_OPCODE_ENDLOOP: return RC_OPCODE_ENDLOOP;
 102      /* case TGSI_OPCODE_PUSHA: return RC_OPCODE_PUSHA; */
 103      /* case TGSI_OPCODE_POPA: return RC_OPCODE_POPA; */
 104         case TGSI_OPCODE_CEIL: return RC_OPCODE_CEIL;
 105      /* case TGSI_OPCODE_I2F: return RC_OPCODE_I2F; */
 106      /* case TGSI_OPCODE_NOT: return RC_OPCODE_NOT; */
 107         case TGSI_OPCODE_TRUNC: return RC_OPCODE_TRUNC;
 108      /* case TGSI_OPCODE_SHL: return RC_OPCODE_SHL; */
 109      /* case TGSI_OPCODE_ISHR: return RC_OPCODE_SHR; */
 110      /* case TGSI_OPCODE_AND: return RC_OPCODE_AND; */
 111      /* case TGSI_OPCODE_OR: return RC_OPCODE_OR; */
 112      /* case TGSI_OPCODE_MOD: return RC_OPCODE_MOD; */
 113      /* case TGSI_OPCODE_XOR: return RC_OPCODE_XOR; */
 114      /* case TGSI_OPCODE_SAD: return RC_OPCODE_SAD; */
 115      /* case TGSI_OPCODE_TXF: return RC_OPCODE_TXF; */
 116      /* case TGSI_OPCODE_TXQ: return RC_OPCODE_TXQ; */
 117         case TGSI_OPCODE_CONT: return RC_OPCODE_CONT;
 118      /* case TGSI_OPCODE_EMIT: return RC_OPCODE_EMIT; */
 119      /* case TGSI_OPCODE_ENDPRIM: return RC_OPCODE_ENDPRIM; */
 120      /* case TGSI_OPCODE_BGNLOOP2: return RC_OPCODE_BGNLOOP2; */
 121      /* case TGSI_OPCODE_BGNSUB: return RC_OPCODE_BGNSUB; */
 122      /* case TGSI_OPCODE_ENDLOOP2: return RC_OPCODE_ENDLOOP2; */
 123      /* case TGSI_OPCODE_ENDSUB: return RC_OPCODE_ENDSUB; */
 124         case TGSI_OPCODE_NOP: return RC_OPCODE_NOP;
 125      /* case TGSI_OPCODE_CALLNZ: return RC_OPCODE_CALLNZ; */
 126      /* case TGSI_OPCODE_BREAKC: return RC_OPCODE_BREAKC; */
 127         case TGSI_OPCODE_KILL_IF: return RC_OPCODE_KIL;
 128     }
 129
 130     fprintf(stderr, "r300: Unknown TGSI/RC opcode: %s\n", tgsi_get_opcode_name(opcode));
 131     return RC_OPCODE_ILLEGAL_OPCODE;
 132 }
 133
 134 static unsigned translate_saturate(unsigned saturate)
 135 {
 136     return saturate ? RC_SATURATE_ZERO_ONE : RC_SATURATE_NONE;
 137 }
 138
 139 static unsigned translate_register_file(unsigned file)
 140 {
 141     switch(file) {
 142         case TGSI_FILE_CONSTANT: return RC_FILE_CONSTANT;
 143         case TGSI_FILE_IMMEDIATE: return RC_FILE_CONSTANT;
 144         case TGSI_FILE_INPUT: return RC_FILE_INPUT;
 145         case TGSI_FILE_OUTPUT: return RC_FILE_OUTPUT;
 146         default:
 147             fprintf(stderr, "Unhandled register file: %i\n", file);
 148             /* fall-through */
 149         case TGSI_FILE_TEMPORARY: return RC_FILE_TEMPORARY;
 150         case TGSI_FILE_ADDRESS: return RC_FILE_ADDRESS;
 151     }
 152 }
 153
 154 static int translate_register_index(
 155     struct tgsi_to_rc * ttr,
 156     unsigned file,
 157     int index)
 158 {
 159     if (file == TGSI_FILE_IMMEDIATE)
 160         return ttr->immediate_offset + index;
 161
 162     return index;
 163 }
 164
 165 static void transform_dstreg(
 166     struct tgsi_to_rc * ttr,
 167     struct rc_dst_register * dst,
 168     struct tgsi_full_dst_register * src)
 169 {
 170     dst->File = translate_register_file(src->Register.File);
 171     dst->Index = translate_register_index(ttr, src->Register.File, src->Register.Index);
 172     dst->WriteMask = src->Register.WriteMask;
 173
 174     if (src->Register.Indirect) {
 175         ttr->error = TRUE;
 176         fprintf(stderr, "r300: Relative addressing of destination operands "
 177                 "is unsupported.\n");
 178     }
 179 }
 180
 181 static void transform_srcreg(
 182     struct tgsi_to_rc * ttr,
 183     struct rc_src_register * dst,
 184     struct tgsi_full_src_register * src)
 185 {
 186     unsigned i, j;
 187
 188     dst->File = translate_register_file(src->Register.File);
 189     dst->Index = translate_register_index(ttr, src->Register.File, src->Register.Index);
 190     dst->RelAddr = src->Register.Indirect;
 191     dst->Swizzle = tgsi_util_get_full_src_register_swizzle(src, 0);
 192     dst->Swizzle |= tgsi_util_get_full_src_register_swizzle(src, 1) << 3;
 193     dst->Swizzle |= tgsi_util_get_full_src_register_swizzle(src, 2) << 6;
 194     dst->Swizzle |= tgsi_util_get_full_src_register_swizzle(src, 3) << 9;
 195     dst->Abs = src->Register.Absolute;
 196     dst->Negate = src->Register.Negate ? RC_MASK_XYZW : 0;
 197
 198     if (src->Register.File == TGSI_FILE_IMMEDIATE) {
 199         for (i = 0; i < ttr->imms_to_swizzle_count; i++) {
 200             if (ttr->imms_to_swizzle[i].index == src->Register.Index) {
 201                 dst->File = RC_FILE_TEMPORARY;
 202                 dst->Index = 0;
 203                 dst->Swizzle = 0;
 204                 for (j = 0; j < 4; j++) {
 205                     dst->Swizzle |= GET_SWZ(ttr->imms_to_swizzle[i].swizzle,
 206                         tgsi_util_get_full_src_register_swizzle(src, j)) << (j * 3);
 207                 }
 208                 break;
 209             }
 210         }
 211     }
 212 }
 213
 214 static void transform_texture(struct rc_instruction * dst, struct tgsi_instruction_texture src,
 215                               uint32_t *shadowSamplers)
 216 {
 217     switch(src.Texture) {
 218         case TGSI_TEXTURE_1D:
 219             dst->U.I.TexSrcTarget = RC_TEXTURE_1D;
 220             break;
 221         case TGSI_TEXTURE_2D:
 222             dst->U.I.TexSrcTarget = RC_TEXTURE_2D;
 223             break;
 224         case TGSI_TEXTURE_3D:
 225             dst->U.I.TexSrcTarget = RC_TEXTURE_3D;
 226             break;
 227         case TGSI_TEXTURE_CUBE:
 228             dst->U.I.TexSrcTarget = RC_TEXTURE_CUBE;
 229             break;
 230         case TGSI_TEXTURE_RECT:
 231             dst->U.I.TexSrcTarget = RC_TEXTURE_RECT;
 232             break;
 233         case TGSI_TEXTURE_SHADOW1D:
 234             dst->U.I.TexSrcTarget = RC_TEXTURE_1D;
 235             dst->U.I.TexShadow = 1;
 236             *shadowSamplers |= 1 << dst->U.I.TexSrcUnit;
 237             break;
 238         case TGSI_TEXTURE_SHADOW2D:
 239             dst->U.I.TexSrcTarget = RC_TEXTURE_2D;
 240             dst->U.I.TexShadow = 1;
 241             *shadowSamplers |= 1 << dst->U.I.TexSrcUnit;
 242             break;
 243         case TGSI_TEXTURE_SHADOWRECT:
 244             dst->U.I.TexSrcTarget = RC_TEXTURE_RECT;
 245             dst->U.I.TexShadow = 1;
 246             *shadowSamplers |= 1 << dst->U.I.TexSrcUnit;
 247             break;
 248     }
 249     dst->U.I.TexSwizzle = RC_SWIZZLE_XYZW;
 250 }
 251
 252 static void transform_instruction(struct tgsi_to_rc * ttr, struct tgsi_full_instruction * src)
 253 {
 254     struct rc_instruction * dst;
 255     int i;
 256
 257     dst = rc_insert_new_instruction(ttr->compiler, ttr->compiler->Program.Instructions.Prev);
 258     dst->U.I.Opcode = translate_opcode(src->Instruction.Opcode);
 259     dst->U.I.SaturateMode = translate_saturate(src->Instruction.Saturate);
 260
 261     if (src->Instruction.NumDstRegs)
 262         transform_dstreg(ttr, &dst->U.I.DstReg, &src->Dst[0]);
 263
 264     for(i = 0; i < src->Instruction.NumSrcRegs; ++i) {
 265         if (src->Src[i].Register.File == TGSI_FILE_SAMPLER)
 266             dst->U.I.TexSrcUnit = src->Src[i].Register.Index;
 267         else
 268             transform_srcreg(ttr, &dst->U.I.SrcReg[i], &src->Src[i]);
 269     }
 270
 271     /* Texturing. */
 272     if (src->Instruction.Texture)
 273         transform_texture(dst, src->Texture,
 274                           &ttr->compiler->Program.ShadowSamplers);
 275 }
 276
 277 static void handle_immediate(struct tgsi_to_rc * ttr,
 278                              struct tgsi_full_immediate * imm,
 279                              unsigned index)
 280 {
 281     struct rc_constant constant;
 282     unsigned swizzle = 0;
 283     boolean can_swizzle = TRUE;
 284     unsigned i;
 285
 286     for (i = 0; i < 4; i++) {
 287         if (imm->u[i].Float == 0.0f) {
 288             swizzle |= RC_SWIZZLE_ZERO << (i * 3);
 289         } else if (imm->u[i].Float == 0.5f && ttr->use_half_swizzles) {
 290             swizzle |= RC_SWIZZLE_HALF << (i * 3);
 291         } else if (imm->u[i].Float == 1.0f) {
 292             swizzle |= RC_SWIZZLE_ONE << (i * 3);
 293         } else {
 294             can_swizzle = FALSE;
 295             break;
 296         }
 297     }
 298
 299     if (can_swizzle) {
 300         ttr->imms_to_swizzle[ttr->imms_to_swizzle_count].index = index;
 301         ttr->imms_to_swizzle[ttr->imms_to_swizzle_count].swizzle = swizzle;
 302         ttr->imms_to_swizzle_count++;
 303     } else {
 304         constant.Type = RC_CONSTANT_IMMEDIATE;
 305         constant.Size = 4;
 306         for(i = 0; i < 4; ++i)
 307             constant.u.Immediate[i] = imm->u[i].Float;
 308         rc_constants_add(&ttr->compiler->Program.Constants, &constant);
 309     }
 310 }
 311
 312 void r300_tgsi_to_rc(struct tgsi_to_rc * ttr,
 313                      const struct tgsi_token * tokens)
 314 {
 315     struct tgsi_full_instruction *inst;
 316     struct tgsi_parse_context parser;
 317     unsigned imm_index = 0;
 318     int i;
 319
 320     ttr->error = FALSE;
 321
 322     /* Allocate constants placeholders.
 323      *
 324      * Note: What if declared constants are not contiguous? */
 325     for(i = 0; i <= ttr->info->file_max[TGSI_FILE_CONSTANT]; ++i) {
 326         struct rc_constant constant;
 327         memset(&constant, 0, sizeof(constant));
 328         constant.Type = RC_CONSTANT_EXTERNAL;
 329         constant.Size = 4;
 330         constant.u.External = i;
 331         rc_constants_add(&ttr->compiler->Program.Constants, &constant);
 332     }
 333
 334     ttr->immediate_offset = ttr->compiler->Program.Constants.Count;
 335
 336     ttr->imms_to_swizzle = malloc(ttr->info->immediate_count * sizeof(struct swizzled_imms));
 337     ttr->imms_to_swizzle_count = 0;
 338
 339     tgsi_parse_init(&parser, tokens);
 340
 341     while (!tgsi_parse_end_of_tokens(&parser)) {
 342         tgsi_parse_token(&parser);
 343
 344         switch (parser.FullToken.Token.Type) {
 345             case TGSI_TOKEN_TYPE_DECLARATION:
 346                 break;
 347             case TGSI_TOKEN_TYPE_IMMEDIATE:
 348                 handle_immediate(ttr, &parser.FullToken.FullImmediate, imm_index);
 349                 imm_index++;
 350                 break;
 351             case TGSI_TOKEN_TYPE_INSTRUCTION:
 352                 inst = &parser.FullToken.FullInstruction;
 353                 if (inst->Instruction.Opcode == TGSI_OPCODE_END) {
 354                     break;
 355                 }
 356
 357                 transform_instruction(ttr, inst);
 358                 break;
 359         }
 360     }
 361
 362     tgsi_parse_free(&parser);
 363
 364     free(ttr->imms_to_swizzle);
 365
 366     rc_calculate_inputs_outputs(ttr->compiler);
 367 }