2 * Copyright 2009 Nicolai Hähnle <nhaehnle@gmail.com>
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:
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
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. */
23 #include "r300_tgsi_to_rc.h"
25 #include "radeon_compiler.h"
26 #include "radeon_program.h"
28 #include "tgsi/tgsi_parse.h"
29 #include "tgsi/tgsi_scan.h"
30 #include "tgsi/tgsi_util.h"
33 static unsigned translate_opcode(unsigned opcode
)
36 case TGSI_OPCODE_ARL
: return OPCODE_ARL
;
37 case TGSI_OPCODE_MOV
: return OPCODE_MOV
;
38 case TGSI_OPCODE_LIT
: return OPCODE_LIT
;
39 case TGSI_OPCODE_RCP
: return OPCODE_RCP
;
40 case TGSI_OPCODE_RSQ
: return OPCODE_RSQ
;
41 case TGSI_OPCODE_EXP
: return OPCODE_EXP
;
42 case TGSI_OPCODE_LOG
: return OPCODE_LOG
;
43 case TGSI_OPCODE_MUL
: return OPCODE_MUL
;
44 case TGSI_OPCODE_ADD
: return OPCODE_ADD
;
45 case TGSI_OPCODE_DP3
: return OPCODE_DP3
;
46 case TGSI_OPCODE_DP4
: return OPCODE_DP4
;
47 case TGSI_OPCODE_DST
: return OPCODE_DST
;
48 case TGSI_OPCODE_MIN
: return OPCODE_MIN
;
49 case TGSI_OPCODE_MAX
: return OPCODE_MAX
;
50 case TGSI_OPCODE_SLT
: return OPCODE_SLT
;
51 case TGSI_OPCODE_SGE
: return OPCODE_SGE
;
52 case TGSI_OPCODE_MAD
: return OPCODE_MAD
;
53 case TGSI_OPCODE_SUB
: return OPCODE_SUB
;
54 case TGSI_OPCODE_LRP
: return OPCODE_LRP
;
55 /* case TGSI_OPCODE_CND: return OPCODE_CND; */
56 /* case TGSI_OPCODE_CND0: return OPCODE_CND0; */
57 case TGSI_OPCODE_DP2A
: return OPCODE_DP2A
;
59 case TGSI_OPCODE_FRC
: return OPCODE_FRC
;
60 /* case TGSI_OPCODE_CLAMP: return OPCODE_CLAMP; */
61 case TGSI_OPCODE_FLR
: return OPCODE_FLR
;
62 /* case TGSI_OPCODE_ROUND: return OPCODE_ROUND; */
63 case TGSI_OPCODE_EX2
: return OPCODE_EX2
;
64 case TGSI_OPCODE_LG2
: return OPCODE_LG2
;
65 case TGSI_OPCODE_POW
: return OPCODE_POW
;
66 case TGSI_OPCODE_XPD
: return OPCODE_XPD
;
68 case TGSI_OPCODE_ABS
: return OPCODE_ABS
;
69 case TGSI_OPCODE_RCC
: return OPCODE_RCC
;
70 case TGSI_OPCODE_DPH
: return OPCODE_DPH
;
71 case TGSI_OPCODE_COS
: return OPCODE_COS
;
72 case TGSI_OPCODE_DDX
: return OPCODE_DDX
;
73 case TGSI_OPCODE_DDY
: return OPCODE_DDY
;
74 /* case TGSI_OPCODE_KILP: return OPCODE_KILP; */
75 case TGSI_OPCODE_PK2H
: return OPCODE_PK2H
;
76 case TGSI_OPCODE_PK2US
: return OPCODE_PK2US
;
77 case TGSI_OPCODE_PK4B
: return OPCODE_PK4B
;
78 case TGSI_OPCODE_PK4UB
: return OPCODE_PK4UB
;
79 case TGSI_OPCODE_RFL
: return OPCODE_RFL
;
80 case TGSI_OPCODE_SEQ
: return OPCODE_SEQ
;
81 case TGSI_OPCODE_SFL
: return OPCODE_SFL
;
82 case TGSI_OPCODE_SGT
: return OPCODE_SGT
;
83 case TGSI_OPCODE_SIN
: return OPCODE_SIN
;
84 case TGSI_OPCODE_SLE
: return OPCODE_SLE
;
85 case TGSI_OPCODE_SNE
: return OPCODE_SNE
;
86 case TGSI_OPCODE_STR
: return OPCODE_STR
;
87 case TGSI_OPCODE_TEX
: return OPCODE_TEX
;
88 case TGSI_OPCODE_TXD
: return OPCODE_TXD
;
89 case TGSI_OPCODE_TXP
: return OPCODE_TXP
;
90 case TGSI_OPCODE_UP2H
: return OPCODE_UP2H
;
91 case TGSI_OPCODE_UP2US
: return OPCODE_UP2US
;
92 case TGSI_OPCODE_UP4B
: return OPCODE_UP4B
;
93 case TGSI_OPCODE_UP4UB
: return OPCODE_UP4UB
;
94 case TGSI_OPCODE_X2D
: return OPCODE_X2D
;
95 case TGSI_OPCODE_ARA
: return OPCODE_ARA
;
96 case TGSI_OPCODE_ARR
: return OPCODE_ARR
;
97 case TGSI_OPCODE_BRA
: return OPCODE_BRA
;
98 case TGSI_OPCODE_CAL
: return OPCODE_CAL
;
99 case TGSI_OPCODE_RET
: return OPCODE_RET
;
100 case TGSI_OPCODE_SSG
: return OPCODE_SSG
;
101 case TGSI_OPCODE_CMP
: return OPCODE_CMP
;
102 case TGSI_OPCODE_SCS
: return OPCODE_SCS
;
103 case TGSI_OPCODE_TXB
: return OPCODE_TXB
;
104 /* case TGSI_OPCODE_NRM: return OPCODE_NRM; */
105 /* case TGSI_OPCODE_DIV: return OPCODE_DIV; */
106 case TGSI_OPCODE_DP2
: return OPCODE_DP2
;
107 case TGSI_OPCODE_TXL
: return OPCODE_TXL
;
108 case TGSI_OPCODE_BRK
: return OPCODE_BRK
;
109 case TGSI_OPCODE_IF
: return OPCODE_IF
;
110 /* case TGSI_OPCODE_LOOP: return OPCODE_LOOP; */
111 /* case TGSI_OPCODE_REP: return OPCODE_REP; */
112 case TGSI_OPCODE_ELSE
: return OPCODE_ELSE
;
113 case TGSI_OPCODE_ENDIF
: return OPCODE_ENDIF
;
114 case TGSI_OPCODE_ENDLOOP
: return OPCODE_ENDLOOP
;
115 /* case TGSI_OPCODE_ENDREP: return OPCODE_ENDREP; */
116 case TGSI_OPCODE_PUSHA
: return OPCODE_PUSHA
;
117 case TGSI_OPCODE_POPA
: return OPCODE_POPA
;
118 /* case TGSI_OPCODE_CEIL: return OPCODE_CEIL; */
119 /* case TGSI_OPCODE_I2F: return OPCODE_I2F; */
120 case TGSI_OPCODE_NOT
: return OPCODE_NOT
;
121 case TGSI_OPCODE_TRUNC
: return OPCODE_TRUNC
;
122 /* case TGSI_OPCODE_SHL: return OPCODE_SHL; */
123 /* case TGSI_OPCODE_SHR: return OPCODE_SHR; */
124 case TGSI_OPCODE_AND
: return OPCODE_AND
;
125 case TGSI_OPCODE_OR
: return OPCODE_OR
;
126 /* case TGSI_OPCODE_MOD: return OPCODE_MOD; */
127 case TGSI_OPCODE_XOR
: return OPCODE_XOR
;
128 /* case TGSI_OPCODE_SAD: return OPCODE_SAD; */
129 /* case TGSI_OPCODE_TXF: return OPCODE_TXF; */
130 /* case TGSI_OPCODE_TXQ: return OPCODE_TXQ; */
131 case TGSI_OPCODE_CONT
: return OPCODE_CONT
;
132 /* case TGSI_OPCODE_EMIT: return OPCODE_EMIT; */
133 /* case TGSI_OPCODE_ENDPRIM: return OPCODE_ENDPRIM; */
134 /* case TGSI_OPCODE_BGNLOOP2: return OPCODE_BGNLOOP2; */
135 case TGSI_OPCODE_BGNSUB
: return OPCODE_BGNSUB
;
136 /* case TGSI_OPCODE_ENDLOOP2: return OPCODE_ENDLOOP2; */
137 case TGSI_OPCODE_ENDSUB
: return OPCODE_ENDSUB
;
138 case TGSI_OPCODE_NOISE1
: return OPCODE_NOISE1
;
139 case TGSI_OPCODE_NOISE2
: return OPCODE_NOISE2
;
140 case TGSI_OPCODE_NOISE3
: return OPCODE_NOISE3
;
141 case TGSI_OPCODE_NOISE4
: return OPCODE_NOISE4
;
142 case TGSI_OPCODE_NOP
: return OPCODE_NOP
;
144 case TGSI_OPCODE_NRM4
: return OPCODE_NRM4
;
145 /* case TGSI_OPCODE_CALLNZ: return OPCODE_CALLNZ; */
146 /* case TGSI_OPCODE_IFC: return OPCODE_IFC; */
147 /* case TGSI_OPCODE_BREAKC: return OPCODE_BREAKC; */
148 case TGSI_OPCODE_KIL
: return OPCODE_KIL
;
149 case TGSI_OPCODE_END
: return OPCODE_END
;
150 case TGSI_OPCODE_SWZ
: return OPCODE_SWZ
;
153 fprintf(stderr
, "Unknown opcode: %i\n", opcode
);
157 static unsigned translate_saturate(unsigned saturate
)
160 case TGSI_SAT_NONE
: return SATURATE_OFF
;
161 case TGSI_SAT_ZERO_ONE
: return SATURATE_ZERO_ONE
;
162 case TGSI_SAT_MINUS_PLUS_ONE
: return SATURATE_PLUS_MINUS_ONE
;
165 fprintf(stderr
, "Unknown saturate mode: %i\n", saturate
);
169 static unsigned translate_register_file(unsigned file
)
172 case TGSI_FILE_CONSTANT
: return PROGRAM_CONSTANT
;
173 case TGSI_FILE_IMMEDIATE
: return PROGRAM_CONSTANT
;
174 case TGSI_FILE_INPUT
: return PROGRAM_INPUT
;
175 case TGSI_FILE_OUTPUT
: return PROGRAM_OUTPUT
;
176 case TGSI_FILE_TEMPORARY
: return PROGRAM_TEMPORARY
;
177 case TGSI_FILE_ADDRESS
: return PROGRAM_ADDRESS
;
180 fprintf(stderr
, "Unhandled register file: %i\n", file
);
184 static int translate_register_index(
185 struct tgsi_to_rc
* ttr
,
189 if (file
== TGSI_FILE_IMMEDIATE
)
190 return ttr
->immediate_offset
+ index
;
195 static void transform_dstreg(
196 struct tgsi_to_rc
* ttr
,
197 struct prog_dst_register
* dst
,
198 struct tgsi_full_dst_register
* src
)
200 dst
->File
= translate_register_file(src
->DstRegister
.File
);
201 dst
->Index
= translate_register_index(ttr
, src
->DstRegister
.File
, src
->DstRegister
.Index
);
202 dst
->WriteMask
= src
->DstRegister
.WriteMask
;
203 dst
->RelAddr
= src
->DstRegister
.Indirect
;
206 static void transform_srcreg(
207 struct tgsi_to_rc
* ttr
,
208 struct prog_src_register
* dst
,
209 struct tgsi_full_src_register
* src
)
211 dst
->File
= translate_register_file(src
->SrcRegister
.File
);
212 dst
->Index
= translate_register_index(ttr
, src
->SrcRegister
.File
, src
->SrcRegister
.Index
);
213 dst
->RelAddr
= src
->SrcRegister
.Indirect
;
214 dst
->Swizzle
= tgsi_util_get_full_src_register_extswizzle(src
, 0);
215 dst
->Swizzle
|= tgsi_util_get_full_src_register_extswizzle(src
, 1) << 3;
216 dst
->Swizzle
|= tgsi_util_get_full_src_register_extswizzle(src
, 2) << 6;
217 dst
->Swizzle
|= tgsi_util_get_full_src_register_extswizzle(src
, 3) << 9;
218 dst
->Abs
= src
->SrcRegisterExtMod
.Absolute
;
220 src
->SrcRegisterExtSwz
.NegateX
|
221 (src
->SrcRegisterExtSwz
.NegateY
<< 1) |
222 (src
->SrcRegisterExtSwz
.NegateZ
<< 2) |
223 (src
->SrcRegisterExtSwz
.NegateW
<< 3);
224 dst
->Negate
^= src
->SrcRegister
.Negate
? NEGATE_XYZW
: 0;
227 static void transform_texture(struct rc_instruction
* dst
, struct tgsi_instruction_ext_texture src
)
229 switch(src
.Texture
) {
230 case TGSI_TEXTURE_1D
:
231 dst
->I
.TexSrcTarget
= TEXTURE_1D_INDEX
;
233 case TGSI_TEXTURE_2D
:
234 dst
->I
.TexSrcTarget
= TEXTURE_2D_INDEX
;
236 case TGSI_TEXTURE_3D
:
237 dst
->I
.TexSrcTarget
= TEXTURE_3D_INDEX
;
239 case TGSI_TEXTURE_CUBE
:
240 dst
->I
.TexSrcTarget
= TEXTURE_CUBE_INDEX
;
242 case TGSI_TEXTURE_RECT
:
243 dst
->I
.TexSrcTarget
= TEXTURE_RECT_INDEX
;
245 case TGSI_TEXTURE_SHADOW1D
:
246 dst
->I
.TexSrcTarget
= TEXTURE_1D_INDEX
;
247 dst
->I
.TexShadow
= 1;
249 case TGSI_TEXTURE_SHADOW2D
:
250 dst
->I
.TexSrcTarget
= TEXTURE_2D_INDEX
;
251 dst
->I
.TexShadow
= 1;
253 case TGSI_TEXTURE_SHADOWRECT
:
254 dst
->I
.TexSrcTarget
= TEXTURE_RECT_INDEX
;
255 dst
->I
.TexShadow
= 1;
260 static void transform_instruction(struct tgsi_to_rc
* ttr
, struct tgsi_full_instruction
* src
)
262 if (src
->Instruction
.Opcode
== TGSI_OPCODE_END
)
265 struct rc_instruction
* dst
= rc_insert_new_instruction(ttr
->compiler
, ttr
->compiler
->Program
.Instructions
.Prev
);
268 dst
->I
.Opcode
= translate_opcode(src
->Instruction
.Opcode
);
269 dst
->I
.SaturateMode
= translate_saturate(src
->Instruction
.Saturate
);
271 if (src
->Instruction
.NumDstRegs
)
272 transform_dstreg(ttr
, &dst
->I
.DstReg
, &src
->FullDstRegisters
[0]);
274 for(i
= 0; i
< src
->Instruction
.NumSrcRegs
; ++i
) {
275 if (src
->FullSrcRegisters
[i
].SrcRegister
.File
== TGSI_FILE_SAMPLER
)
276 dst
->I
.TexSrcUnit
= src
->FullSrcRegisters
[i
].SrcRegister
.Index
;
278 transform_srcreg(ttr
, &dst
->I
.SrcReg
[i
], &src
->FullSrcRegisters
[i
]);
282 transform_texture(dst
, src
->InstructionExtTexture
);
285 static void handle_immediate(struct tgsi_to_rc
* ttr
, struct tgsi_full_immediate
* imm
)
287 struct rc_constant constant
;
290 constant
.Type
= RC_CONSTANT_IMMEDIATE
;
292 for(i
= 0; i
< 4; ++i
)
293 constant
.u
.Immediate
[i
] = imm
->u
[i
].Float
;
294 rc_constants_add(&ttr
->compiler
->Program
.Constants
, &constant
);
297 void r300_tgsi_to_rc(struct tgsi_to_rc
* ttr
, const struct tgsi_token
* tokens
)
299 struct tgsi_parse_context parser
;
302 /* Allocate constants placeholders.
304 * Note: What if declared constants are not contiguous? */
305 for(i
= 0; i
<= ttr
->info
->file_max
[TGSI_FILE_CONSTANT
]; ++i
) {
306 struct rc_constant constant
;
307 memset(&constant
, 0, sizeof(constant
));
308 constant
.Type
= RC_CONSTANT_EXTERNAL
;
310 constant
.u
.External
= i
;
311 rc_constants_add(&ttr
->compiler
->Program
.Constants
, &constant
);
314 ttr
->immediate_offset
= ttr
->compiler
->Program
.Constants
.Count
;
316 tgsi_parse_init(&parser
, tokens
);
318 while (!tgsi_parse_end_of_tokens(&parser
)) {
319 tgsi_parse_token(&parser
);
321 switch (parser
.FullToken
.Token
.Type
) {
322 case TGSI_TOKEN_TYPE_DECLARATION
:
324 case TGSI_TOKEN_TYPE_IMMEDIATE
:
325 handle_immediate(ttr
, &parser
.FullToken
.FullImmediate
);
327 case TGSI_TOKEN_TYPE_INSTRUCTION
:
328 transform_instruction(ttr
, &parser
.FullToken
.FullInstruction
);
333 tgsi_parse_free(&parser
);
335 rc_calculate_inputs_outputs(ttr
->compiler
);