From e42111ecbaca8b6dab3c8a7a8cbc295bb6b404eb Mon Sep 17 00:00:00 2001
From: Vadim Girlin <vadimgirlin@gmail.com>
Date: Fri, 1 Feb 2013 11:46:29 +0400
Subject: [PATCH] r600g: implement shader disassembler v3

R600_DUMP_SHADERS environment var now allows to choose dump method:
 0 (default) - no dump
 1 - full dump (old dump)
 2 - disassemble
 3 - both

v2: fix output for burst_count > 1
v3: use more human-readable output for kcache data in CF_ALU_xxx clauses,
    improve output for ALU_EXTENDED, other minor fixes

Signed-off-by: Vadim Girlin <vadimgirlin@gmail.com>
---
 src/gallium/drivers/r600/r600_asm.c    | 436 ++++++++++++++++++++++++-
 src/gallium/drivers/r600/r600_asm.h    |   1 +
 src/gallium/drivers/r600/r600_shader.c |  11 +-
 3 files changed, 444 insertions(+), 4 deletions(-)

diff --git a/src/gallium/drivers/r600/r600_asm.c b/src/gallium/drivers/r600/r600_asm.c
index 6b60529f060..3632aa5763c 100644
--- a/src/gallium/drivers/r600/r600_asm.c
+++ b/src/gallium/drivers/r600/r600_asm.c
@@ -1651,6 +1651,433 @@ void r600_bytecode_clear(struct r600_bytecode *bc)
 	LIST_INITHEAD(&cf->list);
 }
 
+static int print_swizzle(unsigned swz)
+{
+	const char * swzchars = "xyzw01?_";
+	assert(swz<8 && swz != 6);
+	return fprintf(stderr, "%c", swzchars[swz]);
+}
+
+static int print_sel(unsigned sel, unsigned rel, unsigned index_mode,
+		unsigned need_brackets)
+{
+	int o = 0;
+	if (rel && index_mode >= 5 && sel < 128)
+		o += fprintf(stderr, "G");
+	if (rel || need_brackets) {
+		o += fprintf(stderr, "[");
+	}
+	o += fprintf(stderr, "%d", sel);
+	if (rel) {
+		if (index_mode == 0 || index_mode == 6)
+			o += fprintf(stderr, "+AR");
+		else if (index_mode == 4)
+			o += fprintf(stderr, "+AL");
+	}
+	if (rel || need_brackets) {
+		o += fprintf(stderr, "]");
+	}
+	return o;
+}
+
+static int print_dst(struct r600_bytecode_alu *alu)
+{
+	int o = 0;
+	unsigned sel = alu->dst.sel;
+	char reg_char = 'R';
+	if (sel > 128 - 4) { /* clause temporary gpr */
+		sel -= 128 - 4;
+		reg_char = 'T';
+	}
+
+	if (alu->dst.write || alu->is_op3) {
+		o += fprintf(stderr, "%c", reg_char);
+		o += print_sel(alu->dst.sel, alu->dst.rel, alu->index_mode, 0);
+	} else {
+		o += fprintf(stderr, "__");
+	}
+	o += fprintf(stderr, ".");
+	o += print_swizzle(alu->dst.chan);
+	return o;
+}
+
+static int print_src(struct r600_bytecode_alu *alu, unsigned idx)
+{
+	int o = 0;
+	struct r600_bytecode_alu_src *src = &alu->src[idx];
+	unsigned sel = src->sel, need_sel = 1, need_chan = 1, need_brackets = 0;
+
+	if (src->neg)
+		o += fprintf(stderr,"-");
+	if (src->abs)
+		o += fprintf(stderr,"|");
+
+	if (sel < 128 - 4) {
+		o += fprintf(stderr, "R");
+	} else if (sel < 128) {
+		o += fprintf(stderr, "T");
+		sel -= 128 - 4;
+	} else if (sel < 160) {
+		o += fprintf(stderr, "KC0");
+		need_brackets = 1;
+		sel -= 128;
+	} else if (sel < 192) {
+		o += fprintf(stderr, "KC1");
+		need_brackets = 1;
+		sel -= 160;
+	} else if (sel >= 512) {
+		o += fprintf(stderr, "C%d", src->kc_bank);
+		need_brackets = 1;
+		sel -= 512;
+	} else if (sel >= 448) {
+		o += fprintf(stderr, "Param");
+		sel -= 448;
+		need_chan = 0;
+	} else if (sel >= 288) {
+		o += fprintf(stderr, "KC3");
+		need_brackets = 1;
+		sel -= 288;
+	} else if (sel >= 256) {
+		o += fprintf(stderr, "KC2");
+		need_brackets = 1;
+		sel -= 256;
+	} else {
+		need_sel = 0;
+		need_chan = 0;
+		switch (sel) {
+		case V_SQ_ALU_SRC_PS:
+			o += fprintf(stderr, "PS");
+			break;
+		case V_SQ_ALU_SRC_PV:
+			o += fprintf(stderr, "PV");
+			need_chan = 1;
+			break;
+		case V_SQ_ALU_SRC_LITERAL:
+			o += fprintf(stderr, "[0x%08X %f]", src->value, *(float*)&src->value);
+			break;
+		case V_SQ_ALU_SRC_0_5:
+			o += fprintf(stderr, "0.5");
+			break;
+		case V_SQ_ALU_SRC_M_1_INT:
+			o += fprintf(stderr, "-1");
+			break;
+		case V_SQ_ALU_SRC_1_INT:
+			o += fprintf(stderr, "1");
+			break;
+		case V_SQ_ALU_SRC_1:
+			o += fprintf(stderr, "1.0");
+			break;
+		case V_SQ_ALU_SRC_0:
+			o += fprintf(stderr, "0");
+			break;
+		default:
+			o += fprintf(stderr, "??IMM_%d", sel);
+			break;
+		}
+	}
+
+	if (need_sel)
+		o += print_sel(sel, src->rel, alu->index_mode, need_brackets);
+
+	if (need_chan) {
+		o += fprintf(stderr, ".");
+		o += print_swizzle(src->chan);
+	}
+
+	if (src->abs)
+		o += fprintf(stderr,"|");
+
+	return o;
+}
+
+static int print_indent(int p, int c)
+{
+	int o = 0;
+	while (p++ < c)
+		o += fprintf(stderr, " ");
+	return o;
+}
+
+void r600_bytecode_disasm(struct r600_bytecode *bc)
+{
+	static int index = 0;
+	struct r600_bytecode_cf *cf = NULL;
+	struct r600_bytecode_alu *alu = NULL;
+	struct r600_bytecode_vtx *vtx = NULL;
+	struct r600_bytecode_tex *tex = NULL;
+
+	unsigned i, id, ngr = 0, last;
+	uint32_t literal[4];
+	unsigned nliteral;
+	char chip = '6';
+
+	switch (bc->chip_class) {
+	case R700:
+		chip = '7';
+		break;
+	case EVERGREEN:
+		chip = 'E';
+		break;
+	case CAYMAN:
+		chip = 'C';
+		break;
+	case R600:
+	default:
+		chip = '6';
+		break;
+	}
+	fprintf(stderr, "bytecode %d dw -- %d gprs ---------------------\n",
+	        bc->ndw, bc->ngpr);
+	fprintf(stderr, "shader %d -- %c\n", index++, chip);
+
+	LIST_FOR_EACH_ENTRY(cf, &bc->cf, list) {
+		id = cf->id;
+		if (cf->op == CF_NATIVE) {
+			fprintf(stderr, "%04d %08X %08X CF_NATIVE\n", id, bc->bytecode[id],
+					bc->bytecode[id + 1]);
+		} else {
+			const struct cf_op_info *cfop = r600_isa_cf(cf->op);
+			if (cfop->flags & CF_ALU) {
+				if (cf->eg_alu_extended) {
+					fprintf(stderr, "%04d %08X %08X  %s\n", id, bc->bytecode[id],
+							bc->bytecode[id + 1], "ALU_EXT");
+					id += 2;
+				}
+				fprintf(stderr, "%04d %08X %08X  %s ", id, bc->bytecode[id],
+						bc->bytecode[id + 1], cfop->name);
+				fprintf(stderr, "%d @%d ", cf->ndw / 2, cf->addr);
+				for (i = 0; i < 4; ++i) {
+					if (cf->kcache[i].mode) {
+						int c_start = (cf->kcache[i].addr << 4);
+						int c_end = c_start + (cf->kcache[i].mode << 4);
+						fprintf(stderr, "KC%d[CB%d:%d-%d] ",
+						        i, cf->kcache[i].bank, c_start, c_end);
+					}
+				}
+				fprintf(stderr, "\n");
+			} else if (cfop->flags & CF_FETCH) {
+				fprintf(stderr, "%04d %08X %08X  %s ", id, bc->bytecode[id],
+						bc->bytecode[id + 1], cfop->name);
+				fprintf(stderr, "%d @%d ", cf->ndw / 4, cf->addr);
+				fprintf(stderr, "\n");
+			} else if (cfop->flags & CF_EXP) {
+				int o = 0;
+				const char *exp_type[] = {"PIXEL", "POS  ", "PARAM"};
+				o += fprintf(stderr, "%04d %08X %08X  %s ", id, bc->bytecode[id],
+						bc->bytecode[id + 1], cfop->name);
+				o += print_indent(o, 43);
+				o += fprintf(stderr, "%s ", exp_type[cf->output.type]);
+				if (cf->output.burst_count > 1) {
+					o += fprintf(stderr, "%d-%d ", cf->output.array_base,
+							cf->output.array_base + cf->output.burst_count - 1);
+
+					o += print_indent(o, 55);
+					o += fprintf(stderr, "R%d-%d.", cf->output.gpr,
+							cf->output.gpr + cf->output.burst_count - 1);
+				} else {
+					o += fprintf(stderr, "%d ", cf->output.array_base);
+					o += print_indent(o, 55);
+					o += fprintf(stderr, "R%d.", cf->output.gpr);
+				}
+
+				o += print_swizzle(cf->output.swizzle_x);
+				o += print_swizzle(cf->output.swizzle_y);
+				o += print_swizzle(cf->output.swizzle_z);
+				o += print_swizzle(cf->output.swizzle_w);
+
+				print_indent(o, 67);
+
+				fprintf(stderr, " ES:%X ", cf->output.elem_size);
+				if (!cf->output.barrier)
+					fprintf(stderr, "NO_BARRIER ");
+				if (cf->output.end_of_program)
+					fprintf(stderr, "EOP ");
+				fprintf(stderr, "\n");
+			} else if (r600_isa_cf(cf->op)->flags & CF_STRM) {
+				int o = 0;
+				const char *exp_type[] = {"WRITE", "WRITE_IND", "WRITE_ACK",
+						"WRITE_IND_ACK"};
+				o += fprintf(stderr, "%04d %08X %08X  %s ", id,
+						bc->bytecode[id], bc->bytecode[id + 1], cfop->name);
+				o += print_indent(o, 43);
+				o += fprintf(stderr, "%s ", exp_type[cf->output.type]);
+				if (cf->output.burst_count > 1) {
+					o += fprintf(stderr, "%d-%d ", cf->output.array_base,
+							cf->output.array_base + cf->output.burst_count - 1);
+					o += print_indent(o, 55);
+					o += fprintf(stderr, "R%d-%d.", cf->output.gpr,
+							cf->output.gpr + cf->output.burst_count - 1);
+				} else {
+					o += fprintf(stderr, "%d ", cf->output.array_base);
+					o += print_indent(o, 55);
+					o += fprintf(stderr, "R%d.", cf->output.gpr);
+				}
+				for (i = 0; i < 4; ++i) {
+					if (cf->output.comp_mask & (1 << i))
+						o += print_swizzle(i);
+					else
+						o += print_swizzle(7);
+				}
+
+				o += print_indent(o, 67);
+
+				fprintf(stderr, " ES:%i ", cf->output.elem_size);
+				if (cf->output.array_size != 0xFFF)
+					fprintf(stderr, "AS:%i ", cf->output.array_size);
+				if (!cf->output.barrier)
+					fprintf(stderr, "NO_BARRIER ");
+				if (cf->output.end_of_program)
+					fprintf(stderr, "EOP ");
+				fprintf(stderr, "\n");
+			} else {
+				fprintf(stderr, "%04d %08X %08X  %s ", id, bc->bytecode[id],
+						bc->bytecode[id + 1], cfop->name);
+				fprintf(stderr, "@%d ", cf->cf_addr);
+				if (cf->cond)
+					fprintf(stderr, "CND:%X ", cf->cond);
+				if (cf->pop_count)
+					fprintf(stderr, "POP:%X ", cf->pop_count);
+				fprintf(stderr, "\n");
+			}
+		}
+
+		id = cf->addr;
+		nliteral = 0;
+		last = 1;
+		LIST_FOR_EACH_ENTRY(alu, &cf->alu, list) {
+			const char *omod_str[] = {"","*2","*4","/2"};
+			const struct alu_op_info *aop = r600_isa_alu(alu->op);
+			int o = 0;
+
+			r600_bytecode_alu_nliterals(bc, alu, literal, &nliteral);
+			o += fprintf(stderr, " %04d %08X %08X  ", id, bc->bytecode[id], bc->bytecode[id+1]);
+			if (last)
+				o += fprintf(stderr, "%4d ", ++ngr);
+			else
+				o += fprintf(stderr, "     ");
+			o += fprintf(stderr, "%c%c %c ", alu->execute_mask ? 'M':' ',
+					alu->update_pred ? 'P':' ',
+					alu->pred_sel ? alu->pred_sel==2 ? '0':'1':' ');
+
+			o += fprintf(stderr, "%s%s%s ", aop->name,
+					omod_str[alu->omod], alu->dst.clamp ? "_sat":"");
+
+			o += print_indent(o,60);
+			o += print_dst(alu);
+			for (i = 0; i < aop->src_count; ++i) {
+				o += fprintf(stderr, i == 0 ? ",  ": ", ");
+				o += print_src(alu, i);
+			}
+
+			if (alu->bank_swizzle) {
+				o += print_indent(o,75);
+				o += fprintf(stderr, "  BS:%d", alu->bank_swizzle);
+			}
+
+			fprintf(stderr, "\n");
+			id += 2;
+
+			if (alu->last) {
+				for (i = 0; i < nliteral; i++, id++) {
+					float *f = (float*)(bc->bytecode + id);
+					o = fprintf(stderr, " %04d %08X", id, bc->bytecode[id]);
+					print_indent(o, 60);
+					fprintf(stderr, " %f (%d)\n", *f, *(bc->bytecode + id));
+				}
+				id += nliteral & 1;
+				nliteral = 0;
+			}
+			last = alu->last;
+		}
+
+		LIST_FOR_EACH_ENTRY(tex, &cf->tex, list) {
+			int o = 0;
+			o += fprintf(stderr, " %04d %08X %08X %08X   ", id, bc->bytecode[id],
+					bc->bytecode[id + 1], bc->bytecode[id + 2]);
+
+			o += fprintf(stderr, "%s ", r600_isa_fetch(tex->op)->name);
+
+			o += print_indent(o, 50);
+
+			o += fprintf(stderr, "R%d.", tex->dst_gpr);
+			o += print_swizzle(tex->dst_sel_x);
+			o += print_swizzle(tex->dst_sel_y);
+			o += print_swizzle(tex->dst_sel_z);
+			o += print_swizzle(tex->dst_sel_w);
+
+			o += fprintf(stderr, ", R%d.", tex->src_gpr);
+			o += print_swizzle(tex->src_sel_x);
+			o += print_swizzle(tex->src_sel_y);
+			o += print_swizzle(tex->src_sel_z);
+			o += print_swizzle(tex->src_sel_w);
+
+			o += fprintf(stderr, ",  RID:%d", tex->resource_id);
+			o += fprintf(stderr, ", SID:%d  ", tex->sampler_id);
+
+			if (tex->lod_bias)
+				fprintf(stderr, "LB:%d ", tex->lod_bias);
+
+			fprintf(stderr, "CT:%c%c%c%c ",
+					tex->coord_type_x ? 'N' : 'U',
+					tex->coord_type_y ? 'N' : 'U',
+					tex->coord_type_z ? 'N' : 'U',
+					tex->coord_type_w ? 'N' : 'U');
+
+			if (tex->offset_x)
+				fprintf(stderr, "OX:%d ", tex->offset_x);
+			if (tex->offset_y)
+				fprintf(stderr, "OY:%d ", tex->offset_y);
+			if (tex->offset_z)
+				fprintf(stderr, "OZ:%d ", tex->offset_z);
+
+			id += 4;
+			fprintf(stderr, "\n");
+		}
+
+		LIST_FOR_EACH_ENTRY(vtx, &cf->vtx, list) {
+			int o = 0;
+			const char * fetch_type[] = {"VERTEX", "INSTANCE", ""};
+			o += fprintf(stderr, " %04d %08X %08X %08X   ", id, bc->bytecode[id],
+					bc->bytecode[id + 1], bc->bytecode[id + 2]);
+
+			o += fprintf(stderr, "%s ", r600_isa_fetch(vtx->op)->name);
+
+			o += print_indent(o, 50);
+
+			o += fprintf(stderr, "R%d.", vtx->dst_gpr);
+			o += print_swizzle(vtx->dst_sel_x);
+			o += print_swizzle(vtx->dst_sel_y);
+			o += print_swizzle(vtx->dst_sel_z);
+			o += print_swizzle(vtx->dst_sel_w);
+
+			o += fprintf(stderr, ", R%d.", vtx->src_gpr);
+			o += print_swizzle(vtx->src_sel_x);
+
+			if (vtx->offset)
+				fprintf(stderr, " +%db", vtx->offset);
+
+			o += print_indent(o, 55);
+
+			fprintf(stderr, ",  RID:%d ", vtx->buffer_id);
+
+			fprintf(stderr, "%s ", fetch_type[vtx->fetch_type]);
+
+			if (bc->chip_class < CAYMAN && vtx->mega_fetch_count)
+				fprintf(stderr, "MFC:%d ", vtx->mega_fetch_count);
+
+			fprintf(stderr, "UCF:%d ", vtx->use_const_fields);
+			fprintf(stderr, "FMT(DTA:%d ", vtx->data_format);
+			fprintf(stderr, "NUM:%d ", vtx->num_format_all);
+			fprintf(stderr, "COMP:%d ", vtx->format_comp_all);
+			fprintf(stderr, "MODE:%d)\n", vtx->srf_mode_all);
+
+			id += 4;
+		}
+	}
+
+	fprintf(stderr, "--------------------------------------\n");
+}
+
 void r600_bytecode_dump(struct r600_bytecode *bc)
 {
 	struct r600_bytecode_cf *cf = NULL;
@@ -2148,13 +2575,18 @@ void *r600_create_vertex_fetch_shader(struct pipe_context *ctx,
 	}
 
 	if (dump_shaders == -1)
-		dump_shaders = debug_get_bool_option("R600_DUMP_SHADERS", FALSE);
+		dump_shaders = debug_get_num_option("R600_DUMP_SHADERS", 0);
 
-	if (dump_shaders) {
+	if (dump_shaders & 1) {
 		fprintf(stderr, "--------------------------------------------------------------\n");
 		r600_bytecode_dump(&bc);
 		fprintf(stderr, "______________________________________________________________\n");
 	}
+	if (dump_shaders & 2) {
+		fprintf(stderr, "--------------------------------------------------------------\n");
+		r600_bytecode_disasm(&bc);
+		fprintf(stderr, "______________________________________________________________\n");
+	}
 
 	fs_size = bc.ndw*4;
 
diff --git a/src/gallium/drivers/r600/r600_asm.h b/src/gallium/drivers/r600/r600_asm.h
index b3dfc24ff45..03cd2382140 100644
--- a/src/gallium/drivers/r600/r600_asm.h
+++ b/src/gallium/drivers/r600/r600_asm.h
@@ -233,6 +233,7 @@ int r600_bytecode_add_alu_type(struct r600_bytecode *bc,
 		const struct r600_bytecode_alu *alu, unsigned type);
 void r600_bytecode_special_constants(uint32_t value,
 		unsigned *sel, unsigned *neg);
+void r600_bytecode_disasm(struct r600_bytecode *bc);
 void r600_bytecode_dump(struct r600_bytecode *bc);
 void r600_bytecode_alu_read(struct r600_bytecode *bc,
 		struct r600_bytecode_alu *alu, uint32_t word0, uint32_t word1);
diff --git a/src/gallium/drivers/r600/r600_shader.c b/src/gallium/drivers/r600/r600_shader.c
index f30ca42c16f..8d07b638555 100644
--- a/src/gallium/drivers/r600/r600_shader.c
+++ b/src/gallium/drivers/r600/r600_shader.c
@@ -142,7 +142,7 @@ int r600_pipe_shader_create(struct pipe_context *ctx,
 	/* Would like some magic "get_bool_option_once" routine.
 	*/
 	if (dump_shaders == -1)
-		dump_shaders = debug_get_bool_option("R600_DUMP_SHADERS", FALSE);
+		dump_shaders = debug_get_num_option("R600_DUMP_SHADERS", 0);
 
 	if (dump_shaders) {
 		fprintf(stderr, "--------------------------------------------------------------\n");
@@ -162,10 +162,17 @@ int r600_pipe_shader_create(struct pipe_context *ctx,
 		R600_ERR("building bytecode failed !\n");
 		return r;
 	}
-	if (dump_shaders) {
+	if (dump_shaders & 1) {
+		fprintf(stderr, "--------------------------------------------------------------\n");
 		r600_bytecode_dump(&shader->shader.bc);
 		fprintf(stderr, "______________________________________________________________\n");
 	}
+	if (dump_shaders & 2) {
+		fprintf(stderr, "--------------------------------------------------------------\n");
+		r600_bytecode_disasm(&shader->shader.bc);
+		fprintf(stderr, "______________________________________________________________\n");
+	}
+
 	return r600_pipe_shader(ctx, shader);
 }
 
-- 
2.30.2