2 * Copyright (C) 2005 Ben Skeggs.
6 * Permission is hereby granted, free of charge, to any person obtaining
7 * a 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, sublicense, 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:
14 * The above copyright notice and this permission notice (including the
15 * next paragraph) shall be included in all copies or substantial
16 * portions of the Software.
18 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
19 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
20 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
21 * IN NO EVENT SHALL THE COPYRIGHT OWNER(S) AND/OR ITS SUPPLIERS BE
22 * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
23 * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
24 * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
31 * \author Ben Skeggs <darktama@iinet.net.au>
33 * \author Jerome Glisse <j.glisse@gmail.com>
35 * \author Corbin Simpson <MostAwesomeDude@gmail.com>
37 * \todo Depth write, WPOS/FOGC inputs
41 * \todo Verify results of opcodes for accuracy, I've only checked them in
48 #include "shader/prog_instruction.h"
49 #include "shader/prog_parameter.h"
50 #include "shader/prog_print.h"
52 #include "r300_context.h"
53 #include "r500_fragprog.h"
55 #include "r300_state.h"
58 * Useful macros and values
60 #define ERROR(fmt, args...) do { \
61 fprintf(stderr, "%s::%s(): " fmt "\n", \
62 __FILE__, __FUNCTION__, ##args); \
63 fp->error = GL_TRUE; \
66 #define COMPILE_STATE struct r300_pfs_compile_state *cs = fp->cs
68 #define R500_US_NUM_TEMP_REGS 128
69 #define R500_US_NUM_CONST_REGS 256
71 /* "Register" flags */
72 #define REG_CONSTANT (1 << 8)
73 #define REG_SRC_REL (1 << 9)
74 #define REG_DEST_REL (1 << 7)
77 #define R500_SWIZZLE_ZERO 4
78 #define R500_SWIZZLE_HALF 5
79 #define R500_SWIZZLE_ONE 6
80 #define R500_SWIZ_RGB_ZERO ((4 << 0) | (4 << 3) | (4 << 6))
81 #define R500_SWIZ_RGB_ONE ((6 << 0) | (6 << 3) | (6 << 6))
82 #define R500_SWIZ_RGB_RGB ((0 << 0) | (1 << 3) | (2 << 6))
83 /* Swizzles for inst2 */
84 #define MAKE_SWIZ_TEX_STRQ(x) (x << 8)
85 #define MAKE_SWIZ_TEX_RGBA(x) (x << 24)
86 /* Swizzles for inst3 */
87 #define MAKE_SWIZ_RGB_A(x) (x << 2)
88 #define MAKE_SWIZ_RGB_B(x) (x << 15)
89 /* Swizzles for inst4 */
90 #define MAKE_SWIZ_ALPHA_A(x) (x << 14)
91 #define MAKE_SWIZ_ALPHA_B(x) (x << 21)
92 /* Swizzle for inst5 */
93 #define MAKE_SWIZ_RGBA_C(x) (x << 14)
94 #define MAKE_SWIZ_ALPHA_C(x) (x << 27)
97 #define R500_WRITEMASK_ARGB 0xF
99 static void dump_program(struct r500_fragment_program
*fp
);
101 static inline GLuint
make_rgb_swizzle(struct prog_src_register src
) {
104 /* This could be optimized, but it should be plenty fast already. */
106 for (i
= 0; i
< 3; i
++) {
107 temp
= GET_SWZ(src
.Swizzle
, i
);
108 /* Fix SWIZZLE_ONE */
109 if (temp
== 5) temp
++;
115 static inline GLuint
make_alpha_swizzle(struct prog_src_register src
) {
116 GLuint swiz
= GET_SWZ(src
.Swizzle
, 3);
118 if (swiz
== 5) swiz
++;
122 static inline GLuint
make_sop_swizzle(struct prog_src_register src
) {
123 GLuint swiz
= GET_SWZ(src
.Swizzle
, 0);
125 if (swiz
== 5) swiz
++;
129 static inline GLuint
make_strq_swizzle(struct prog_src_register src
) {
131 GLuint temp
= src
.Swizzle
;
133 for (i
= 0; i
< 4; i
++) {
134 swiz
+= (temp
& 0x3) << i
*2;
140 static int get_temp(struct r500_fragment_program
*fp
, int slot
) {
144 int r
= cs
->temp_in_use
+ 1 + slot
;
146 if (r
> R500_US_NUM_TEMP_REGS
) {
147 ERROR("Too many temporary registers requested, can't compile!\n");
153 /* Borrowed verbatim from r300_fragprog since it hasn't changed. */
154 static GLuint
emit_const4fv(struct r500_fragment_program
*fp
,
160 for (index
= 0; index
< fp
->const_nr
; ++index
) {
161 if (fp
->constant
[index
] == cp
)
165 if (index
>= fp
->const_nr
) {
166 if (index
>= R500_US_NUM_CONST_REGS
) {
167 ERROR("Out of hw constants!\n");
172 fp
->constant
[index
] = cp
;
175 reg
= index
| REG_CONSTANT
;
179 static GLuint
make_src(struct r500_fragment_program
*fp
, struct prog_src_register src
) {
183 case PROGRAM_TEMPORARY
:
184 reg
= src
.Index
+ fp
->temp_reg_offset
;
187 reg
= cs
->inputs
[src
.Index
].reg
;
189 case PROGRAM_LOCAL_PARAM
:
190 reg
= emit_const4fv(fp
,
191 fp
->mesa_program
.Base
.LocalParams
[src
.
194 case PROGRAM_ENV_PARAM
:
195 reg
= emit_const4fv(fp
,
196 fp
->ctx
->FragmentProgram
.Parameters
[src
.
199 case PROGRAM_STATE_VAR
:
200 case PROGRAM_NAMED_PARAM
:
201 case PROGRAM_CONSTANT
:
202 reg
= emit_const4fv(fp
, fp
->mesa_program
.Base
.Parameters
->
203 ParameterValues
[src
.Index
]);
206 ERROR("Can't handle src.File %x\n", src
.File
);
213 static GLuint
make_dest(struct r500_fragment_program
*fp
, struct prog_dst_register dest
) {
216 case PROGRAM_TEMPORARY
:
217 reg
= dest
.Index
+ fp
->temp_reg_offset
;
220 /* Eventually we may need to handle multiple
221 * rendering targets... */
225 ERROR("Can't handle dest.File %x\n", dest
.File
);
232 static void emit_tex(struct r500_fragment_program
*fp
,
233 struct prog_instruction
*fpi
, int opcode
, int dest
, int counter
)
238 mask
= fpi
->DstReg
.WriteMask
<< 11;
239 hwsrc
= make_src(fp
, fpi
->SrcReg
[0]);
241 if (fpi
->DstReg
.File
== PROGRAM_OUTPUT
) {
242 hwdest
= get_temp(fp
, 0);
247 fp
->inst
[counter
].inst0
= R500_INST_TYPE_TEX
| mask
248 | R500_INST_TEX_SEM_WAIT
;
250 fp
->inst
[counter
].inst1
= R500_TEX_ID(fpi
->TexSrcUnit
)
251 | R500_TEX_SEM_ACQUIRE
| R500_TEX_IGNORE_UNCOVERED
;
253 if (fpi
->TexSrcTarget
== TEXTURE_RECT_INDEX
)
254 fp
->inst
[counter
].inst1
|= R500_TEX_UNSCALED
;
258 fp
->inst
[counter
].inst1
|= R500_TEX_INST_TEXKILL
;
261 fp
->inst
[counter
].inst1
|= R500_TEX_INST_LD
;
264 fp
->inst
[counter
].inst1
|= R500_TEX_INST_LODBIAS
;
267 fp
->inst
[counter
].inst1
|= R500_TEX_INST_PROJ
;
270 ERROR("emit_tex can't handle opcode %x\n", opcode
);
273 fp
->inst
[counter
].inst2
= R500_TEX_SRC_ADDR(hwsrc
)
274 /* | MAKE_SWIZ_TEX_STRQ(make_strq_swizzle(fpi->SrcReg[0])) */
275 | R500_TEX_SRC_S_SWIZ_R
| R500_TEX_SRC_T_SWIZ_G
276 | R500_TEX_SRC_R_SWIZ_B
| R500_TEX_SRC_Q_SWIZ_A
277 | R500_TEX_DST_ADDR(hwdest
)
278 | R500_TEX_DST_R_SWIZ_R
| R500_TEX_DST_G_SWIZ_G
279 | R500_TEX_DST_B_SWIZ_B
| R500_TEX_DST_A_SWIZ_A
;
281 fp
->inst
[counter
].inst3
= 0x0;
282 fp
->inst
[counter
].inst4
= 0x0;
283 fp
->inst
[counter
].inst5
= 0x0;
285 if (fpi
->DstReg
.File
== PROGRAM_OUTPUT
) {
287 fp
->inst
[counter
].inst0
= R500_INST_TYPE_OUT
288 | R500_INST_TEX_SEM_WAIT
| (mask
<< 4);
289 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(get_temp(fp
, 0));
290 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(get_temp(fp
, 0));
291 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
292 | MAKE_SWIZ_RGB_A(R500_SWIZ_RGB_RGB
)
293 | R500_ALU_RGB_SEL_B_SRC0
294 | MAKE_SWIZ_RGB_B(R500_SWIZ_RGB_RGB
)
295 | R500_ALU_RGB_OMOD_DISABLE
;
296 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_CMP
297 | R500_ALPHA_ADDRD(dest
)
298 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(R500_ALPHA_SWIZ_A_A
)
299 | R500_ALPHA_SEL_B_SRC0
| MAKE_SWIZ_ALPHA_B(R500_ALPHA_SWIZ_A_A
)
300 | R500_ALPHA_OMOD_DISABLE
;
301 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_CMP
302 | R500_ALU_RGBA_ADDRD(dest
)
303 | MAKE_SWIZ_RGBA_C(R500_SWIZ_RGB_ZERO
)
304 | MAKE_SWIZ_ALPHA_C(R500_SWIZZLE_ZERO
);
308 static void dumb_shader(struct r500_fragment_program
*fp
)
310 fp
->inst
[0].inst0
= R500_INST_TYPE_TEX
311 | R500_INST_TEX_SEM_WAIT
312 | R500_INST_RGB_WMASK_R
313 | R500_INST_RGB_WMASK_G
314 | R500_INST_RGB_WMASK_B
315 | R500_INST_ALPHA_WMASK
316 | R500_INST_RGB_CLAMP
317 | R500_INST_ALPHA_CLAMP
;
318 fp
->inst
[0].inst1
= R500_TEX_ID(0)
320 | R500_TEX_SEM_ACQUIRE
321 | R500_TEX_IGNORE_UNCOVERED
;
322 fp
->inst
[0].inst2
= R500_TEX_SRC_ADDR(0)
323 | R500_TEX_SRC_S_SWIZ_R
324 | R500_TEX_SRC_T_SWIZ_G
325 | R500_TEX_DST_ADDR(0)
326 | R500_TEX_DST_R_SWIZ_R
327 | R500_TEX_DST_G_SWIZ_G
328 | R500_TEX_DST_B_SWIZ_B
329 | R500_TEX_DST_A_SWIZ_A
;
330 fp
->inst
[0].inst3
= R500_DX_ADDR(0)
340 fp
->inst
[0].inst4
= 0x0;
341 fp
->inst
[0].inst5
= 0x0;
343 fp
->inst
[1].inst0
= R500_INST_TYPE_OUT
|
344 R500_INST_TEX_SEM_WAIT
|
346 R500_INST_RGB_OMASK_R
|
347 R500_INST_RGB_OMASK_G
|
348 R500_INST_RGB_OMASK_B
|
349 R500_INST_ALPHA_OMASK
;
350 fp
->inst
[1].inst1
= R500_RGB_ADDR0(0) |
352 R500_RGB_ADDR1_CONST
|
354 R500_RGB_ADDR2_CONST
|
355 R500_RGB_SRCP_OP_1_MINUS_2RGB0
;
356 fp
->inst
[1].inst2
= R500_ALPHA_ADDR0(0) |
357 R500_ALPHA_ADDR1(0) |
358 R500_ALPHA_ADDR1_CONST
|
359 R500_ALPHA_ADDR2(0) |
360 R500_ALPHA_ADDR2_CONST
|
361 R500_ALPHA_SRCP_OP_1_MINUS_2A0
;
362 fp
->inst
[1].inst3
= R500_ALU_RGB_SEL_A_SRC0
|
363 R500_ALU_RGB_R_SWIZ_A_R
|
364 R500_ALU_RGB_G_SWIZ_A_G
|
365 R500_ALU_RGB_B_SWIZ_A_B
|
366 R500_ALU_RGB_SEL_B_SRC0
|
367 R500_ALU_RGB_R_SWIZ_B_1
|
368 R500_ALU_RGB_B_SWIZ_B_1
|
369 R500_ALU_RGB_G_SWIZ_B_1
;
370 fp
->inst
[1].inst4
= R500_ALPHA_OP_MAD
|
371 R500_ALPHA_SWIZ_A_A
|
373 fp
->inst
[1].inst5
= R500_ALU_RGBA_OP_MAD
|
374 R500_ALU_RGBA_R_SWIZ_0
|
375 R500_ALU_RGBA_G_SWIZ_0
|
376 R500_ALU_RGBA_B_SWIZ_0
|
377 R500_ALU_RGBA_A_SWIZ_0
;
380 fp
->translated
= GL_TRUE
;
383 static void emit_alu(struct r500_fragment_program
*fp
, int counter
, struct prog_instruction
*fpi
) {
384 if (fpi
->DstReg
.File
== PROGRAM_OUTPUT
) {
385 fp
->inst
[counter
].inst0
= R500_INST_TYPE_OUT
387 | (fpi
->DstReg
.WriteMask
<< 15);
389 fp
->inst
[counter
].inst0
= R500_INST_TYPE_ALU
391 | (fpi
->DstReg
.WriteMask
<< 11);
394 fp
->inst
[counter
].inst0
|= R500_INST_TEX_SEM_WAIT
;
397 static void emit_mov(struct r500_fragment_program
*fp
, int counter
, struct prog_src_register src
, GLuint dest
) {
398 /* The r3xx shader uses MAD to implement MOV. We are using CMP, since
399 * it is technically more accurate and recommended by ATI/AMD. */
400 GLuint src_reg
= make_src(fp
, src
);
401 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src_reg
);
402 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src_reg
);
403 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
404 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(src
))
405 | R500_ALU_RGB_SEL_B_SRC0
406 | MAKE_SWIZ_RGB_B(make_rgb_swizzle(src
))
407 | R500_ALU_RGB_OMOD_DISABLE
;
408 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_CMP
409 | R500_ALPHA_ADDRD(dest
)
410 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(src
))
411 | R500_ALPHA_SEL_B_SRC0
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(src
))
412 | R500_ALPHA_OMOD_DISABLE
;
413 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_CMP
414 | R500_ALU_RGBA_ADDRD(dest
)
415 | MAKE_SWIZ_RGBA_C(R500_SWIZ_RGB_ZERO
)
416 | MAKE_SWIZ_ALPHA_C(R500_SWIZZLE_ZERO
);
419 static GLboolean
parse_program(struct r500_fragment_program
*fp
)
421 struct gl_fragment_program
*mp
= &fp
->mesa_program
;
422 const struct prog_instruction
*inst
= mp
->Base
.Instructions
;
423 struct prog_instruction
*fpi
;
424 GLuint src
[3], dest
, temp
[2];
425 int flags
, pixel_mask
= 0, output_mask
= 0, counter
= 0;
427 if (!inst
|| inst
[0].Opcode
== OPCODE_END
) {
428 ERROR("The program is empty!\n");
432 for (fpi
= mp
->Base
.Instructions
; fpi
->Opcode
!= OPCODE_END
; fpi
++) {
434 if (fpi
->Opcode
!= OPCODE_KIL
) {
435 dest
= make_dest(fp
, fpi
->DstReg
);
437 pixel_mask
= fpi
->DstReg
.WriteMask
<< 11;
438 output_mask
= fpi
->DstReg
.WriteMask
<< 15;
441 switch (fpi
->Opcode
) {
443 emit_alu(fp
, counter
, fpi
);
444 emit_mov(fp
, counter
, fpi
->SrcReg
[0], dest
);
445 fp
->inst
[counter
].inst3
|= R500_ALU_RGB_MOD_A_ABS
446 | R500_ALU_RGB_MOD_B_ABS
;
447 fp
->inst
[counter
].inst4
|= R500_ALPHA_MOD_A_ABS
448 | R500_ALPHA_MOD_B_ABS
;
451 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
452 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
453 /* Variation on MAD: 1*src0+src1 */
454 emit_alu(fp
, counter
, fpi
);
455 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0])
456 | R500_RGB_ADDR1(src
[1]) | R500_RGB_ADDR2(0);
457 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0])
458 | R500_ALPHA_ADDR1(src
[1]) | R500_ALPHA_ADDR2(0);
459 fp
->inst
[counter
].inst3
= /* 1 */
460 MAKE_SWIZ_RGB_A(R500_SWIZ_RGB_ONE
)
461 | R500_ALU_RGB_SEL_B_SRC0
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[0]));
462 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_MAD
463 | R500_ALPHA_ADDRD(dest
)
464 | MAKE_SWIZ_ALPHA_A(R500_SWIZZLE_ONE
)
465 | R500_ALPHA_SEL_B_SRC0
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[0]));
466 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_MAD
467 | R500_ALU_RGBA_ADDRD(dest
)
468 | R500_ALU_RGBA_SEL_C_SRC1
469 | MAKE_SWIZ_RGBA_C(make_rgb_swizzle(fpi
->SrcReg
[1]))
470 | R500_ALU_RGBA_ALPHA_SEL_C_SRC1
471 | MAKE_SWIZ_ALPHA_C(make_alpha_swizzle(fpi
->SrcReg
[1]));
474 /* This inst's selects need to be swapped as follows:
475 * 0 -> C ; 1 -> B ; 2 -> A */
476 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
477 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
478 src
[2] = make_src(fp
, fpi
->SrcReg
[2]);
479 emit_alu(fp
, counter
, fpi
);
480 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[2])
481 | R500_RGB_ADDR1(src
[1]) | R500_RGB_ADDR2(src
[0]);
482 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[2])
483 | R500_ALPHA_ADDR1(src
[1]) | R500_ALPHA_ADDR2(src
[0]);
484 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
485 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[2]))
486 | R500_ALU_RGB_SEL_B_SRC1
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
487 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_CMP
488 | R500_ALPHA_ADDRD(dest
)
489 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[2]))
490 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
491 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_CMP
492 | R500_ALU_RGBA_ADDRD(dest
)
493 | R500_ALU_RGBA_SEL_C_SRC2
494 | MAKE_SWIZ_RGBA_C(make_rgb_swizzle(fpi
->SrcReg
[0]))
495 | R500_ALU_RGBA_ALPHA_SEL_C_SRC2
496 | MAKE_SWIZ_ALPHA_C(make_alpha_swizzle(fpi
->SrcReg
[0]));
499 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
500 emit_alu(fp
, counter
, fpi
);
501 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
502 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
503 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
;
504 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_COS
505 | R500_ALPHA_ADDRD(dest
)
506 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
507 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
508 | R500_ALU_RGBA_ADDRD(dest
);
511 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
512 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
513 emit_alu(fp
, counter
, fpi
);
514 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0])
515 | R500_RGB_ADDR1(src
[1]);
516 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0])
517 | R500_ALPHA_ADDR1(src
[1]);
518 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
519 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]))
520 | R500_ALU_RGB_SEL_B_SRC1
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
521 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_DP
522 | R500_ALPHA_ADDRD(dest
)
523 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[0]))
524 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
525 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_DP3
526 | R500_ALU_RGBA_ADDRD(dest
);
529 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
530 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
532 emit_alu(fp
, counter
, fpi
);
533 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0])
534 | R500_RGB_ADDR1(src
[1]);
535 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0])
536 | R500_ALPHA_ADDR1(src
[1]);
537 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
538 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]))
539 | R500_ALU_RGB_SEL_B_SRC1
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
540 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_DP
541 | R500_ALPHA_ADDRD(dest
)
542 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[0]))
543 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
544 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_DP4
545 | R500_ALU_RGBA_ADDRD(dest
);
548 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
549 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
551 emit_alu(fp
, counter
, fpi
);
552 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0])
553 | R500_RGB_ADDR1(src
[1]);
554 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0])
555 | R500_ALPHA_ADDR1(src
[1]);
556 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
557 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]))
558 | R500_ALU_RGB_SEL_B_SRC1
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
559 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_DP
560 | R500_ALPHA_ADDRD(dest
)
561 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(R500_SWIZZLE_ONE
)
562 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
563 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_DP4
564 | R500_ALU_RGBA_ADDRD(dest
);
567 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
568 emit_alu(fp
, counter
, fpi
);
569 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
570 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
571 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
572 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
573 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_EX2
574 | R500_ALPHA_ADDRD(dest
)
575 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
576 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
577 | R500_ALU_RGBA_ADDRD(dest
);
580 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
581 emit_alu(fp
, counter
, fpi
);
582 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
583 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
584 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
585 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
586 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_FRC
587 | R500_ALPHA_ADDRD(dest
)
588 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[0]));
589 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_FRC
590 | R500_ALU_RGBA_ADDRD(dest
);
593 emit_tex(fp
, fpi
, OPCODE_KIL
, dest
, counter
);
596 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
597 emit_alu(fp
, counter
, fpi
);
598 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
599 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
600 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
601 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
602 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_LN2
603 | R500_ALPHA_ADDRD(dest
)
604 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
605 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
606 | R500_ALU_RGBA_ADDRD(dest
);
609 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
610 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
611 src
[2] = make_src(fp
, fpi
->SrcReg
[2]);
612 emit_alu(fp
, counter
, fpi
);
613 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0])
614 | R500_RGB_ADDR1(src
[1]) | R500_RGB_ADDR2(src
[2]);
615 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0])
616 | R500_ALPHA_ADDR1(src
[1]) | R500_ALPHA_ADDR2(src
[2]);
617 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
618 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]))
619 | R500_ALU_RGB_SEL_B_SRC1
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
620 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_MAD
621 | R500_ALPHA_ADDRD(dest
)
622 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[0]))
623 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
624 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_MAD
625 | R500_ALU_RGBA_ADDRD(dest
)
626 | R500_ALU_RGBA_SEL_C_SRC2
627 | MAKE_SWIZ_RGBA_C(make_rgb_swizzle(fpi
->SrcReg
[2]))
628 | R500_ALU_RGBA_ALPHA_SEL_C_SRC2
629 | MAKE_SWIZ_ALPHA_C(make_alpha_swizzle(fpi
->SrcReg
[2]));
632 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
633 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
634 emit_alu(fp
, counter
, fpi
);
635 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]) | R500_RGB_ADDR1(src
[1]);
636 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]) | R500_ALPHA_ADDR1(src
[1]);
637 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
638 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]))
639 | R500_ALU_RGB_SEL_B_SRC1
640 | MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
641 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_MAX
642 | R500_ALPHA_ADDRD(dest
)
643 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[0]))
644 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
645 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_MAX
646 | R500_ALU_RGBA_ADDRD(dest
);
649 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
650 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
651 emit_alu(fp
, counter
, fpi
);
652 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]) | R500_RGB_ADDR1(src
[1]);
653 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]) | R500_ALPHA_ADDR1(src
[1]);
654 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
655 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]))
656 | R500_ALU_RGB_SEL_B_SRC1
657 | MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
658 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_MIN
659 | R500_ALPHA_ADDRD(dest
)
660 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[0]))
661 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
662 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_MIN
663 | R500_ALU_RGBA_ADDRD(dest
);
666 emit_alu(fp
, counter
, fpi
);
667 emit_mov(fp
, counter
, fpi
->SrcReg
[0], dest
);
670 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
671 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
672 /* Variation on MAD: src0*src1+0 */
673 emit_alu(fp
, counter
, fpi
);
674 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0])
675 | R500_RGB_ADDR1(src
[1]);
676 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0])
677 | R500_ALPHA_ADDR1(src
[1]);
678 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
679 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]))
680 | R500_ALU_RGB_SEL_B_SRC1
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
681 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_MAD
682 | R500_ALPHA_ADDRD(dest
)
683 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[0]))
684 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
685 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_MAD
686 | R500_ALU_RGBA_ADDRD(dest
)
687 // | R500_ALU_RGBA_SEL_C_SRC2
688 | MAKE_SWIZ_RGBA_C(R500_SWIZ_RGB_ZERO
)
689 // | R500_ALU_RGBA_ALPHA_SEL_C_SRC2
690 | MAKE_SWIZ_ALPHA_C(R500_SWIZZLE_ZERO
);
693 /* POW(a,b) = EX2(LN2(a)*b) */
694 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
695 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
696 fp
->inst
[counter
].inst0
= R500_INST_TYPE_ALU
| R500_INST_TEX_SEM_WAIT
697 | (R500_WRITEMASK_ARGB
<< 11);
698 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
699 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
700 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
701 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
702 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_LN2
703 | R500_ALPHA_ADDRD(get_temp(fp
, 0))
704 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
705 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
706 | R500_ALU_RGBA_ADDRD(get_temp(fp
, 0));
708 fp
->inst
[counter
].inst0
= R500_INST_TYPE_ALU
| (R500_WRITEMASK_ARGB
<< 11);
709 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(get_temp(fp
, 0))
710 | R500_RGB_ADDR1(src
[1]);
711 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(get_temp(fp
, 0))
712 | R500_ALPHA_ADDR1(src
[1]);
713 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
714 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]))
715 | R500_ALU_RGB_SEL_B_SRC1
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[1]));
716 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_MAD
717 | R500_ALPHA_ADDRD(get_temp(fp
, 1))
718 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_alpha_swizzle(fpi
->SrcReg
[0]))
719 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[1]));
720 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_MAD
721 | R500_ALU_RGBA_ADDRD(get_temp(fp
, 1))
722 | MAKE_SWIZ_RGBA_C(R500_SWIZ_RGB_ZERO
)
723 | MAKE_SWIZ_ALPHA_C(R500_SWIZZLE_ZERO
);
725 emit_alu(fp
, counter
, fpi
);
726 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(get_temp(fp
, 1));
727 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(get_temp(fp
, 1));
728 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
729 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
730 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_EX2
731 | R500_ALPHA_ADDRD(dest
)
732 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
733 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
734 | R500_ALU_RGBA_ADDRD(dest
);
737 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
738 emit_alu(fp
, counter
, fpi
);
739 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
740 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
741 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
742 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
743 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_RCP
744 | R500_ALPHA_ADDRD(dest
)
745 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
746 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
747 | R500_ALU_RGBA_ADDRD(dest
);
750 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
751 emit_alu(fp
, counter
, fpi
);
752 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
753 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
754 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
755 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
756 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_RSQ
757 | R500_ALPHA_ADDRD(dest
)
758 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
759 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
760 | R500_ALU_RGBA_ADDRD(dest
);
763 /* TODO: Make this elegant! */
764 /* Do a cosine, then a sine, masking out the channels we want to protect. */
765 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
766 /* Cosine only goes in R (x) channel. */
767 fpi
->DstReg
.WriteMask
= 0x1;
768 emit_alu(fp
, counter
, fpi
);
769 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
770 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
771 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
772 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
773 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_COS
774 | R500_ALPHA_ADDRD(dest
)
775 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
776 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
777 | R500_ALU_RGBA_ADDRD(dest
);
779 /* Sine only goes in G (y) channel. */
780 fpi
->DstReg
.WriteMask
= 0x2;
781 emit_alu(fp
, counter
, fpi
);
782 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
783 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
784 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
785 | MAKE_SWIZ_RGB_A(make_rgb_swizzle(fpi
->SrcReg
[0]));
786 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_SIN
787 | R500_ALPHA_ADDRD(dest
)
788 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
789 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
790 | R500_ALU_RGBA_ADDRD(dest
);
791 /* Put 0 into B,A (z,w) channels.
793 fpi->DstReg.WriteMask = 0xC;
794 emit_alu(fp, counter, fpi);
795 fp->inst[counter].inst1 = R500_RGB_ADDR0(src[0]);
796 fp->inst[counter].inst2 = R500_ALPHA_ADDR0(src[0]);
797 fp->inst[counter].inst3 = R500_ALU_RGB_SEL_A_SRC0
798 | MAKE_SWIZ_RGB_A(R500_SWIZ_RGB_ZERO)
799 | R500_ALU_RGB_SEL_B_SRC0
800 | MAKE_SWIZ_RGB_B(R500_SWIZ_RGB_ZERO);
801 fp->inst[counter].inst4 = R500_ALPHA_OP_CMP
802 | R500_ALPHA_ADDRD(dest)
803 | R500_ALPHA_SEL_A_SRC0 | MAKE_SWIZ_ALPHA_A(R500_SWIZZLE_ZERO)
804 | R500_ALPHA_SEL_B_SRC0 | MAKE_SWIZ_ALPHA_B(R500_SWIZZLE_ZERO);
805 fp->inst[counter].inst5 = R500_ALU_RGBA_OP_CMP
806 | R500_ALU_RGBA_ADDRD(dest)
807 | MAKE_SWIZ_RGBA_C(R500_SWIZ_RGB_ZERO)
808 | MAKE_SWIZ_ALPHA_C(R500_SWIZZLE_ZERO); */
811 /* We use SRCP, so as a precaution we're
812 * going to set NOP in previous inst, if possible. */
813 /* This inst's selects need to be swapped as follows:
814 * 0 -> C ; 1 -> B ; 2 -> A */
815 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
816 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
817 emit_alu(fp
, counter
, fpi
);
818 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0])
819 | R500_RGB_ADDR1(src
[1])
820 | R500_RGB_SRCP_OP_RGB1_MINUS_RGB0
;
821 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0])
822 | R500_ALPHA_ADDR1(src
[1])
823 | R500_ALPHA_SRCP_OP_A1_MINUS_A0
;
824 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
825 | MAKE_SWIZ_RGB_A(R500_SWIZ_RGB_ONE
)
826 | R500_ALU_RGB_SEL_B_SRC1
827 | MAKE_SWIZ_RGB_B(R500_SWIZ_RGB_ZERO
);
828 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_CMP
829 | R500_ALPHA_ADDRD(dest
)
830 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(R500_SWIZZLE_ONE
)
831 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(R500_SWIZZLE_ZERO
);
832 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_CMP
833 | R500_ALU_RGBA_ADDRD(dest
)
834 | R500_ALU_RGBA_SEL_C_SRCP
835 | MAKE_SWIZ_RGBA_C(make_rgb_swizzle(fpi
->SrcReg
[0]))
836 | R500_ALU_RGBA_ALPHA_SEL_C_SRCP
837 | MAKE_SWIZ_ALPHA_C(make_alpha_swizzle(fpi
->SrcReg
[0]));
840 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
841 emit_alu(fp
, counter
, fpi
);
842 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0]);
843 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0]);
844 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
;
845 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_SIN
846 | R500_ALPHA_ADDRD(dest
)
847 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(make_sop_swizzle(fpi
->SrcReg
[0]));
848 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_SOP
849 | R500_ALU_RGBA_ADDRD(dest
);
852 /* We use SRCP, so as a precaution we're
853 * going to set NOP in previous inst, if possible. */
854 /* This inst's selects need to be swapped as follows:
855 * 0 -> C ; 1 -> B ; 2 -> A */
856 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
857 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
858 emit_alu(fp
, counter
, fpi
);
859 fp
->inst
[counter
].inst1
= R500_RGB_ADDR0(src
[0])
860 | R500_RGB_ADDR1(src
[1])
861 | R500_RGB_SRCP_OP_RGB1_MINUS_RGB0
;
862 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR0(src
[0])
863 | R500_ALPHA_ADDR1(src
[1])
864 | R500_ALPHA_SRCP_OP_A1_MINUS_A0
;
865 fp
->inst
[counter
].inst3
= R500_ALU_RGB_SEL_A_SRC0
866 | MAKE_SWIZ_RGB_A(R500_SWIZ_RGB_ZERO
)
867 | R500_ALU_RGB_SEL_B_SRC1
868 | MAKE_SWIZ_RGB_B(R500_SWIZ_RGB_ONE
);
869 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_CMP
870 | R500_ALPHA_ADDRD(dest
)
871 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(R500_SWIZZLE_ZERO
)
872 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(R500_SWIZZLE_ONE
);
873 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_CMP
874 | R500_ALU_RGBA_ADDRD(dest
)
875 | R500_ALU_RGBA_SEL_C_SRCP
876 | MAKE_SWIZ_RGBA_C(make_rgb_swizzle(fpi
->SrcReg
[0]))
877 | R500_ALU_RGBA_ALPHA_SEL_C_SRCP
878 | MAKE_SWIZ_ALPHA_C(make_alpha_swizzle(fpi
->SrcReg
[0]));
881 src
[0] = make_src(fp
, fpi
->SrcReg
[0]);
882 src
[1] = make_src(fp
, fpi
->SrcReg
[1]);
883 /* Variation on MAD: 1*src0-src1 */
884 emit_alu(fp
, counter
, fpi
);
885 fp
->inst
[counter
].inst1
= R500_RGB_ADDR1(src
[0])
886 | R500_RGB_ADDR2(src
[1]);
887 fp
->inst
[counter
].inst2
= R500_ALPHA_ADDR1(src
[0])
888 | R500_ALPHA_ADDR2(src
[1]);
889 fp
->inst
[counter
].inst3
= /* 1 */
890 MAKE_SWIZ_RGB_A(R500_SWIZ_RGB_ONE
)
891 | R500_ALU_RGB_SEL_B_SRC1
| MAKE_SWIZ_RGB_B(make_rgb_swizzle(fpi
->SrcReg
[0]));
892 fp
->inst
[counter
].inst4
= R500_ALPHA_OP_MAD
893 | R500_ALPHA_ADDRD(dest
)
894 | R500_ALPHA_SEL_A_SRC0
| MAKE_SWIZ_ALPHA_A(R500_SWIZZLE_ONE
)
895 | R500_ALPHA_SEL_B_SRC1
| MAKE_SWIZ_ALPHA_B(make_alpha_swizzle(fpi
->SrcReg
[0]));
896 fp
->inst
[counter
].inst5
= R500_ALU_RGBA_OP_MAD
897 | R500_ALU_RGBA_ADDRD(dest
)
898 | R500_ALU_RGBA_SEL_C_SRC2
899 | MAKE_SWIZ_RGBA_C(make_rgb_swizzle(fpi
->SrcReg
[1]))
900 | R500_ALU_RGBA_MOD_C_NEG
901 | R500_ALU_RGBA_ALPHA_SEL_C_SRC2
902 | MAKE_SWIZ_ALPHA_C(make_alpha_swizzle(fpi
->SrcReg
[1]))
903 | R500_ALU_RGBA_ALPHA_MOD_C_NEG
;
906 /* TODO: Negation masks! */
907 emit_alu(fp
, counter
, fpi
);
908 emit_mov(fp
, counter
, fpi
->SrcReg
[0], dest
);
911 emit_tex(fp
, fpi
, OPCODE_TEX
, dest
, counter
);
912 if (fpi
->DstReg
.File
== PROGRAM_OUTPUT
)
916 emit_tex(fp
, fpi
, OPCODE_TXB
, dest
, counter
);
917 if (fpi
->DstReg
.File
== PROGRAM_OUTPUT
)
921 emit_tex(fp
, fpi
, OPCODE_TXP
, dest
, counter
);
922 if (fpi
->DstReg
.File
== PROGRAM_OUTPUT
)
926 ERROR("unknown fpi->Opcode %s\n", _mesa_opcode_string(fpi
->Opcode
));
930 /* Finishing touches */
931 if (fpi
->SaturateMode
== SATURATE_ZERO_ONE
) {
932 fp
->inst
[counter
].inst0
|= R500_INST_RGB_CLAMP
| R500_INST_ALPHA_CLAMP
;
942 /* Finish him! (If it's an ALU/OUT instruction...) */
943 if ((fp
->inst
[counter
-1].inst0
& 0x3) == 1) {
944 fp
->inst
[counter
-1].inst0
|= R500_INST_LAST
;
946 /* We still need to put an output inst, right? */
947 WARN_ONCE("Final FP instruction is not an OUT.\n");
953 fp
->cs
->nrslots
= counter
;
960 static void init_program(r300ContextPtr r300
, struct r500_fragment_program
*fp
)
962 struct r300_pfs_compile_state
*cs
= NULL
;
963 struct gl_fragment_program
*mp
= &fp
->mesa_program
;
964 struct prog_instruction
*fpi
;
965 GLuint InputsRead
= mp
->Base
.InputsRead
;
966 GLuint temps_used
= 0;
969 /* New compile, reset tracking data */
971 driQueryOptioni(&r300
->radeon
.optionCache
, "fp_optimization");
972 fp
->translated
= GL_FALSE
;
973 fp
->error
= GL_FALSE
;
974 fp
->cs
= cs
= &(R300_CONTEXT(fp
->ctx
)->state
.pfs_compile
);
976 fp
->first_node_has_tex
= 0;
978 /* Size of pixel stack, plus 1. */
979 fp
->max_temp_idx
= 1;
980 /* Temp register offset. */
981 fp
->temp_reg_offset
= 0;
982 fp
->node
[0].alu_end
= -1;
983 fp
->node
[0].tex_end
= -1;
985 _mesa_memset(cs
, 0, sizeof(*fp
->cs
));
986 for (i
= 0; i
< PFS_MAX_ALU_INST
; i
++) {
987 for (j
= 0; j
< 3; j
++) {
988 cs
->slot
[i
].vsrc
[j
] = SRC_CONST
;
989 cs
->slot
[i
].ssrc
[j
] = SRC_CONST
;
993 /* Work out what temps the Mesa inputs correspond to, this must match
994 * what setup_rs_unit does, which shouldn't be a problem as rs_unit
995 * configures itself based on the fragprog's InputsRead
997 * NOTE: this depends on get_hw_temp() allocating registers in order,
998 * starting from register 0, so we're just going to do that instead.
1001 /* Texcoords come first */
1002 for (i
= 0; i
< fp
->ctx
->Const
.MaxTextureUnits
; i
++) {
1003 if (InputsRead
& (FRAG_BIT_TEX0
<< i
)) {
1004 cs
->inputs
[FRAG_ATTRIB_TEX0
+ i
].refcount
= 0;
1005 cs
->inputs
[FRAG_ATTRIB_TEX0
+ i
].reg
=
1006 fp
->temp_reg_offset
;
1007 fp
->temp_reg_offset
++;
1010 InputsRead
&= ~FRAG_BITS_TEX_ANY
;
1012 /* fragment position treated as a texcoord */
1013 if (InputsRead
& FRAG_BIT_WPOS
) {
1014 cs
->inputs
[FRAG_ATTRIB_WPOS
].refcount
= 0;
1015 cs
->inputs
[FRAG_ATTRIB_WPOS
].reg
=
1016 fp
->temp_reg_offset
;
1017 fp
->temp_reg_offset
++;
1019 InputsRead
&= ~FRAG_BIT_WPOS
;
1021 /* Then primary colour */
1022 if (InputsRead
& FRAG_BIT_COL0
) {
1023 cs
->inputs
[FRAG_ATTRIB_COL0
].refcount
= 0;
1024 cs
->inputs
[FRAG_ATTRIB_COL0
].reg
=
1025 fp
->temp_reg_offset
;
1026 fp
->temp_reg_offset
++;
1028 InputsRead
&= ~FRAG_BIT_COL0
;
1030 /* Secondary color */
1031 if (InputsRead
& FRAG_BIT_COL1
) {
1032 cs
->inputs
[FRAG_ATTRIB_COL1
].refcount
= 0;
1033 cs
->inputs
[FRAG_ATTRIB_COL1
].reg
=
1034 fp
->temp_reg_offset
;
1035 fp
->temp_reg_offset
++;
1037 InputsRead
&= ~FRAG_BIT_COL1
;
1041 WARN_ONCE("Don't know how to handle inputs 0x%x\n", InputsRead
);
1042 /* force read from hwreg 0 for now */
1043 for (i
= 0; i
< 32; i
++)
1044 if (InputsRead
& (1 << i
))
1045 cs
->inputs
[i
].reg
= 0;
1048 if (!mp
->Base
.Instructions
) {
1049 ERROR("No instructions found in program, going to go die now.\n");
1053 for (fpi
= mp
->Base
.Instructions
; fpi
->Opcode
!= OPCODE_END
; fpi
++) {
1054 for (i
= 0; i
< 3; i
++) {
1055 if (fpi
->SrcReg
[i
].File
== PROGRAM_TEMPORARY
) {
1056 if (fpi
->SrcReg
[i
].Index
> temps_used
)
1057 temps_used
= fpi
->SrcReg
[i
].Index
;
1062 cs
->temp_in_use
= temps_used
;
1064 fp
->max_temp_idx
= fp
->temp_reg_offset
+ cs
->temp_in_use
+ 1;
1067 static void update_params(struct r500_fragment_program
*fp
)
1069 struct gl_fragment_program
*mp
= &fp
->mesa_program
;
1071 /* Ask Mesa nicely to fill in ParameterValues for us */
1072 if (mp
->Base
.Parameters
)
1073 _mesa_load_state_parameters(fp
->ctx
, mp
->Base
.Parameters
);
1076 void r500TranslateFragmentShader(r300ContextPtr r300
,
1077 struct r500_fragment_program
*fp
)
1080 struct r300_pfs_compile_state
*cs
= NULL
;
1082 if (!fp
->translated
) {
1086 init_program(r300
, fp
);
1089 if (parse_program(fp
) == GL_FALSE
) {
1090 ERROR("Huh. Couldn't parse program. There should be additional errors explaining why.\nUsing dumb shader...\n");
1092 fp
->inst_offset
= 0;
1093 fp
->inst_end
= cs
->nrslots
- 1;
1096 fp
->inst_offset
= 0;
1097 fp
->inst_end
= cs
->nrslots
- 1;
1099 fp
->translated
= GL_TRUE
;
1100 if (RADEON_DEBUG
& DEBUG_PIXEL
) {
1102 fprintf(stderr
, "Mesa program:\n");
1103 fprintf(stderr
, "-------------\n");
1104 _mesa_print_program(&fp
->mesa_program
.Base
);
1109 r300UpdateStateParameters(fp
->ctx
, _NEW_PROGRAM
);
1116 static char *toswiz(int swiz_val
) {
1123 case 5: return "1/2";
1130 static char *toop(int op_val
)
1134 case 0: str
= "MAD"; break;
1135 case 1: str
= "DP3"; break;
1136 case 2: str
= "DP4"; break;
1137 case 3: str
= "D2A"; break;
1138 case 4: str
= "MIN"; break;
1139 case 5: str
= "MAX"; break;
1140 case 6: str
= "Reserved"; break;
1141 case 7: str
= "CND"; break;
1142 case 8: str
= "CMP"; break;
1143 case 9: str
= "FRC"; break;
1144 case 10: str
= "SOP"; break;
1145 case 11: str
= "MDH"; break;
1146 case 12: str
= "MDV"; break;
1151 static char *to_alpha_op(int op_val
)
1155 case 0: str
= "MAD"; break;
1156 case 1: str
= "DP"; break;
1157 case 2: str
= "MIN"; break;
1158 case 3: str
= "MAX"; break;
1159 case 4: str
= "Reserved"; break;
1160 case 5: str
= "CND"; break;
1161 case 6: str
= "CMP"; break;
1162 case 7: str
= "FRC"; break;
1163 case 8: str
= "EX2"; break;
1164 case 9: str
= "LN2"; break;
1165 case 10: str
= "RCP"; break;
1166 case 11: str
= "RSQ"; break;
1167 case 12: str
= "SIN"; break;
1168 case 13: str
= "COS"; break;
1169 case 14: str
= "MDH"; break;
1170 case 15: str
= "MDV"; break;
1175 static char *to_mask(int val
)
1179 case 0: str
= "NONE"; break;
1180 case 1: str
= "R"; break;
1181 case 2: str
= "G"; break;
1182 case 3: str
= "RG"; break;
1183 case 4: str
= "B"; break;
1184 case 5: str
= "RB"; break;
1185 case 6: str
= "GB"; break;
1186 case 7: str
= "RGB"; break;
1187 case 8: str
= "A"; break;
1188 case 9: str
= "AR"; break;
1189 case 10: str
= "AG"; break;
1190 case 11: str
= "ARG"; break;
1191 case 12: str
= "AB"; break;
1192 case 13: str
= "ARB"; break;
1193 case 14: str
= "AGB"; break;
1194 case 15: str
= "ARGB"; break;
1199 static char *to_texop(int val
)
1202 case 0: return "NOP";
1203 case 1: return "LD";
1204 case 2: return "TEXKILL";
1205 case 3: return "PROJ";
1206 case 4: return "LODBIAS";
1207 case 5: return "LOD";
1208 case 6: return "DXDY";
1213 static void dump_program(struct r500_fragment_program
*fp
)
1221 for (n
= 0; n
< fp
->inst_end
+1; n
++) {
1222 inst0
= inst
= fp
->inst
[n
].inst0
;
1223 fprintf(stderr
,"%d\t0:CMN_INST 0x%08x:", n
, inst
);
1224 switch(inst
& 0x3) {
1225 case R500_INST_TYPE_ALU
: str
= "ALU"; break;
1226 case R500_INST_TYPE_OUT
: str
= "OUT"; break;
1227 case R500_INST_TYPE_FC
: str
= "FC"; break;
1228 case R500_INST_TYPE_TEX
: str
= "TEX"; break;
1230 fprintf(stderr
,"%s %s %s %s %s ", str
,
1231 inst
& R500_INST_TEX_SEM_WAIT
? "TEX_WAIT" : "",
1232 inst
& R500_INST_LAST
? "LAST" : "",
1233 inst
& R500_INST_NOP
? "NOP" : "",
1234 inst
& R500_INST_ALU_WAIT
? "ALU WAIT" : "");
1235 fprintf(stderr
,"wmask: %s omask: %s\n", to_mask((inst
>> 11) & 0xf),
1236 to_mask((inst
>> 15) & 0xf));
1238 switch(inst0
& 0x3) {
1241 fprintf(stderr
,"\t1:RGB_ADDR 0x%08x:", fp
->inst
[n
].inst1
);
1242 inst
= fp
->inst
[n
].inst1
;
1244 fprintf(stderr
,"Addr0: %d%c, Addr1: %d%c, Addr2: %d%c, srcp:%d\n",
1245 inst
& 0xff, (inst
& (1<<8)) ? 'c' : 't',
1246 (inst
>> 10) & 0xff, (inst
& (1<<18)) ? 'c' : 't',
1247 (inst
>> 20) & 0xff, (inst
& (1<<28)) ? 'c' : 't',
1250 fprintf(stderr
,"\t2:ALPHA_ADDR 0x%08x:", fp
->inst
[n
].inst2
);
1251 inst
= fp
->inst
[n
].inst2
;
1252 fprintf(stderr
,"Addr0: %d%c, Addr1: %d%c, Addr2: %d%c, srcp:%d\n",
1253 inst
& 0xff, (inst
& (1<<8)) ? 'c' : 't',
1254 (inst
>> 10) & 0xff, (inst
& (1<<18)) ? 'c' : 't',
1255 (inst
>> 20) & 0xff, (inst
& (1<<28)) ? 'c' : 't',
1257 fprintf(stderr
,"\t3 RGB_INST: 0x%08x:", fp
->inst
[n
].inst3
);
1258 inst
= fp
->inst
[n
].inst3
;
1259 fprintf(stderr
,"rgb_A_src:%d %s/%s/%s %d rgb_B_src:%d %s/%s/%s %d\n",
1260 (inst
) & 0x3, toswiz((inst
>> 2) & 0x7), toswiz((inst
>> 5) & 0x7), toswiz((inst
>> 8) & 0x7),
1262 (inst
>> 13) & 0x3, toswiz((inst
>> 15) & 0x7), toswiz((inst
>> 18) & 0x7), toswiz((inst
>> 21) & 0x7),
1263 (inst
>> 24) & 0x3);
1266 fprintf(stderr
,"\t4 ALPHA_INST:0x%08x:", fp
->inst
[n
].inst4
);
1267 inst
= fp
->inst
[n
].inst4
;
1268 fprintf(stderr
,"%s dest:%d%s alp_A_src:%d %s %d alp_B_src:%d %s %d\n", to_alpha_op(inst
& 0xf),
1269 (inst
>> 4) & 0x7f, inst
& (1<<11) ? "(rel)":"",
1270 (inst
>> 12) & 0x3, toswiz((inst
>> 14) & 0x7), (inst
>> 17) & 0x3,
1271 (inst
>> 19) & 0x3, toswiz((inst
>> 21) & 0x7), (inst
>> 24) & 0x3);
1273 fprintf(stderr
,"\t5 RGBA_INST: 0x%08x:", fp
->inst
[n
].inst5
);
1274 inst
= fp
->inst
[n
].inst5
;
1275 fprintf(stderr
,"%s dest:%d%s rgb_C_src:%d %s/%s/%s %d alp_C_src:%d %s %d\n", toop(inst
& 0xf),
1276 (inst
>> 4) & 0x7f, inst
& (1<<11) ? "(rel)":"",
1277 (inst
>> 12) & 0x3, toswiz((inst
>> 14) & 0x7), toswiz((inst
>> 17) & 0x7), toswiz((inst
>> 20) & 0x7),
1279 (inst
>> 25) & 0x3, toswiz((inst
>> 27) & 0x7), (inst
>> 30) & 0x3);
1284 inst
= fp
->inst
[n
].inst1
;
1285 fprintf(stderr
,"\t1:TEX_INST: 0x%08x: id: %d op:%s, %s, %s %s\n", inst
, (inst
>> 16) & 0xf,
1286 to_texop((inst
>> 22) & 0x7), (inst
& (1<<25)) ? "ACQ" : "",
1287 (inst
& (1<<26)) ? "IGNUNC" : "", (inst
& (1<<27)) ? "UNSCALED" : "SCALED");
1288 inst
= fp
->inst
[n
].inst2
;
1289 fprintf(stderr
,"\t2:TEX_ADDR: 0x%08x: src: %d%s %s/%s/%s/%s dst: %d%s %s/%s/%s/%s\n", inst
,
1290 inst
& 127, inst
& (1<<7) ? "(rel)" : "",
1291 toswiz((inst
>> 8) & 0x3), toswiz((inst
>> 10) & 0x3),
1292 toswiz((inst
>> 12) & 0x3), toswiz((inst
>> 14) & 0x3),
1293 (inst
>> 16) & 127, inst
& (1<<23) ? "(rel)" : "",
1294 toswiz((inst
>> 24) & 0x3), toswiz((inst
>> 26) & 0x3),
1295 toswiz((inst
>> 28) & 0x3), toswiz((inst
>> 30) & 0x3));
1297 fprintf(stderr
,"\t3:TEX_DXDY: 0x%08x\n", fp
->inst
[n
].inst3
);
1300 fprintf(stderr
,"\n");