/* * Copyright (C) 2020 Collabora Ltd. * * Permission is hereby granted, free of charge, to any person obtaining a * copy of this software and associated documentation files (the "Software"), * to deal in the Software without restriction, including without limitation * the rights to use, copy, modify, merge, publish, distribute, sublicense, * and/or sell copies of the Software, and to permit persons to whom the * Software is furnished to do so, subject to the following conditions: * * The above copyright notice and this permission notice (including the next * paragraph) shall be included in all copies or substantial portions of the * Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE * SOFTWARE. * * Authors (Collabora): * Alyssa Rosenzweig */ #ifndef __BIFROST_COMPILER_H #define __BIFROST_COMPILER_H #include "bifrost.h" #include "bi_opcodes.h" #include "compiler/nir/nir.h" #include "panfrost/util/pan_ir.h" #include "util/u_math.h" #include "util/half_float.h" #include "util/u_worklist.h" #ifdef __cplusplus extern "C" { #endif /* Swizzles across bytes in a 32-bit word. Expresses swz in the XML directly. * To express widen, use the correpsonding replicated form, i.e. H01 = identity * for widen = none, H00 for widen = h0, B1111 for widen = b1. For lane, also * use the replicated form (interpretation is governed by the opcode). For * 8-bit lanes with two channels, use replicated forms for replicated forms * (TODO: what about others?). For 8-bit lanes with four channels using * matching form (TODO: what about others?). */ enum bi_swizzle { /* 16-bit swizzle ordering deliberate for fast compute */ BI_SWIZZLE_H00 = 0, /* = B0101 */ BI_SWIZZLE_H01 = 1, /* = B0123 = W0 */ BI_SWIZZLE_H10 = 2, /* = B2301 */ BI_SWIZZLE_H11 = 3, /* = B2323 */ /* replication order should be maintained for fast compute */ BI_SWIZZLE_B0000 = 4, /* single channel (replicate) */ BI_SWIZZLE_B1111 = 5, BI_SWIZZLE_B2222 = 6, BI_SWIZZLE_B3333 = 7, /* totally special for explicit pattern matching */ BI_SWIZZLE_B0011 = 8, /* +SWZ.v4i8 */ BI_SWIZZLE_B2233 = 9, /* +SWZ.v4i8 */ BI_SWIZZLE_B1032 = 10, /* +SWZ.v4i8 */ BI_SWIZZLE_B3210 = 11, /* +SWZ.v4i8 */ BI_SWIZZLE_B0022 = 12, /* for b02 lanes */ }; /* Given a packed i16vec2/i8vec4 constant, apply a swizzle. Useful for constant * folding and Valhall constant optimization. */ static inline uint32_t bi_apply_swizzle(uint32_t value, enum bi_swizzle swz) { const uint16_t *h = (const uint16_t *) &value; const uint8_t *b = (const uint8_t *) &value; #define H(h0, h1) (h[h0] | (h[h1] << 16)) #define B(b0, b1, b2, b3) (b[b0] | (b[b1] << 8) | (b[b2] << 16) | (b[b3] << 24)) switch (swz) { case BI_SWIZZLE_H00: return H(0, 0); case BI_SWIZZLE_H01: return H(0, 1); case BI_SWIZZLE_H10: return H(1, 0); case BI_SWIZZLE_H11: return H(1, 1); case BI_SWIZZLE_B0000: return B(0, 0, 0, 0); case BI_SWIZZLE_B1111: return B(1, 1, 1, 1); case BI_SWIZZLE_B2222: return B(2, 2, 2, 2); case BI_SWIZZLE_B3333: return B(3, 3, 3, 3); case BI_SWIZZLE_B0011: return B(0, 0, 1, 1); case BI_SWIZZLE_B2233: return B(2, 2, 3, 3); case BI_SWIZZLE_B1032: return B(1, 0, 3, 2); case BI_SWIZZLE_B3210: return B(3, 2, 1, 0); case BI_SWIZZLE_B0022: return B(0, 0, 2, 2); } #undef H #undef B unreachable("Invalid swizzle"); } enum bi_index_type { BI_INDEX_NULL = 0, BI_INDEX_NORMAL = 1, BI_INDEX_REGISTER = 2, BI_INDEX_CONSTANT = 3, BI_INDEX_PASS = 4, BI_INDEX_FAU = 5 }; typedef struct { uint32_t value; /* modifiers, should only be set if applicable for a given instruction. * For *IDP.v4i8, abs plays the role of sign. For bitwise ops where * applicable, neg plays the role of not */ bool abs : 1; bool neg : 1; /* The last use of a value, should be purged from the register cache. * Set by liveness analysis. */ bool discard : 1; /* For a source, the swizzle. For a destination, acts a bit like a * write mask. Identity for the full 32-bit, H00 for only caring about * the lower half, other values unused. */ enum bi_swizzle swizzle : 4; uint32_t offset : 3; bool reg : 1; enum bi_index_type type : 3; /* Must be zeroed so we can hash the whole 64-bits at a time */ unsigned padding : (32 - 14); } bi_index; static inline bi_index bi_get_index(unsigned value, bool is_reg, unsigned offset) { return (bi_index) { .value = value, .swizzle = BI_SWIZZLE_H01, .offset = offset, .reg = is_reg, .type = BI_INDEX_NORMAL, }; } static inline bi_index bi_register(unsigned reg) { assert(reg < 64); return (bi_index) { .value = reg, .swizzle = BI_SWIZZLE_H01, .type = BI_INDEX_REGISTER, }; } static inline bi_index bi_imm_u32(uint32_t imm) { return (bi_index) { .value = imm, .swizzle = BI_SWIZZLE_H01, .type = BI_INDEX_CONSTANT, }; } static inline bi_index bi_imm_f32(float imm) { return bi_imm_u32(fui(imm)); } static inline bi_index bi_null() { return (bi_index) { .type = BI_INDEX_NULL }; } static inline bi_index bi_zero() { return bi_imm_u32(0); } static inline bi_index bi_passthrough(enum bifrost_packed_src value) { return (bi_index) { .value = value, .swizzle = BI_SWIZZLE_H01, .type = BI_INDEX_PASS, }; } /* Helps construct swizzles */ static inline bi_index bi_swz_16(bi_index idx, bool x, bool y) { assert(idx.swizzle == BI_SWIZZLE_H01); idx.swizzle = (enum bi_swizzle)(BI_SWIZZLE_H00 | (x << 1) | y); return idx; } static inline bi_index bi_half(bi_index idx, bool upper) { return bi_swz_16(idx, upper, upper); } static inline bi_index bi_byte(bi_index idx, unsigned lane) { assert(idx.swizzle == BI_SWIZZLE_H01); assert(lane < 4); idx.swizzle = (enum bi_swizzle)(BI_SWIZZLE_B0000 + lane); return idx; } static inline bi_index bi_abs(bi_index idx) { idx.abs = true; return idx; } static inline bi_index bi_neg(bi_index idx) { idx.neg ^= true; return idx; } static inline bi_index bi_discard(bi_index idx) { idx.discard = true; return idx; } /* Additive identity in IEEE 754 arithmetic */ static inline bi_index bi_negzero() { return bi_neg(bi_zero()); } /* Replaces an index, preserving any modifiers */ static inline bi_index bi_replace_index(bi_index old, bi_index replacement) { replacement.abs = old.abs; replacement.neg = old.neg; replacement.swizzle = old.swizzle; replacement.discard = false; /* needs liveness analysis to set */ return replacement; } /* Remove any modifiers. This has the property: * * replace_index(x, strip_index(x)) = x * * This ensures it is suitable to use when lowering sources to moves */ static inline bi_index bi_strip_index(bi_index index) { index.abs = index.neg = false; index.swizzle = BI_SWIZZLE_H01; return index; } /* For bitwise instructions */ #define bi_not(x) bi_neg(x) static inline bi_index bi_imm_u8(uint8_t imm) { return bi_byte(bi_imm_u32(imm), 0); } static inline bi_index bi_imm_u16(uint16_t imm) { return bi_half(bi_imm_u32(imm), false); } static inline bi_index bi_imm_uintN(uint32_t imm, unsigned sz) { assert(sz == 8 || sz == 16 || sz == 32); return (sz == 8) ? bi_imm_u8(imm) : (sz == 16) ? bi_imm_u16(imm) : bi_imm_u32(imm); } static inline bi_index bi_imm_f16(float imm) { return bi_imm_u16(_mesa_float_to_half(imm)); } static inline bool bi_is_null(bi_index idx) { return idx.type == BI_INDEX_NULL; } static inline bool bi_is_ssa(bi_index idx) { return idx.type == BI_INDEX_NORMAL && !idx.reg; } /* Compares equivalence as references. Does not compare offsets, swizzles, or * modifiers. In other words, this forms bi_index equivalence classes by * partitioning memory. E.g. -abs(foo[1].yx) == foo.xy but foo != bar */ static inline bool bi_is_equiv(bi_index left, bi_index right) { return (left.type == right.type) && (left.reg == right.reg) && (left.value == right.value); } /* A stronger equivalence relation that requires the indices access the * same offset, useful for RA/scheduling to see what registers will * correspond to */ static inline bool bi_is_word_equiv(bi_index left, bi_index right) { return bi_is_equiv(left, right) && left.offset == right.offset; } /* An even stronger equivalence that checks if indices correspond to the * right value when evaluated */ static inline bool bi_is_value_equiv(bi_index left, bi_index right) { if (left.type == BI_INDEX_CONSTANT && right.type == BI_INDEX_CONSTANT) { return (bi_apply_swizzle(left.value, left.swizzle) == bi_apply_swizzle(right.value, right.swizzle)) && (left.abs == right.abs) && (left.neg == right.neg); } else { return (left.value == right.value) && (left.abs == right.abs) && (left.neg == right.neg) && (left.swizzle == right.swizzle) && (left.offset == right.offset) && (left.reg == right.reg) && (left.type == right.type); } } #define BI_MAX_VEC 8 #define BI_MAX_DESTS 4 #define BI_MAX_SRCS 6 typedef struct { /* Must be first */ struct list_head link; enum bi_opcode op; uint8_t nr_srcs; uint8_t nr_dests; /* Data flow */ bi_index dest[BI_MAX_DESTS]; bi_index src[BI_MAX_SRCS]; /* For a branch */ struct bi_block *branch_target; /* These don't fit neatly with anything else.. */ enum bi_register_format register_format; enum bi_vecsize vecsize; /* Flow control associated with a Valhall instruction */ uint8_t flow; /* Slot associated with a message-passing instruction */ uint8_t slot; /* Can we spill the value written here? Used to prevent * useless double fills */ bool no_spill; /* On Bifrost: A value of bi_table to override the table, inducing a * DTSEL_IMM pair if nonzero. * * On Valhall: the table index to use for resource instructions. * * These two interpretations are equivalent if you squint a bit. */ unsigned table; /* Everything after this MUST NOT be accessed directly, since * interpretation depends on opcodes */ /* Destination modifiers */ union { enum bi_clamp clamp; bool saturate; bool not_result; unsigned dest_mod; }; /* Immediates. All seen alone in an instruction, except for varying/texture * which are specified jointly for VARTEX */ union { uint32_t shift; uint32_t fill; uint32_t index; uint32_t attribute_index; struct { uint32_t varying_index; uint32_t sampler_index; uint32_t texture_index; }; /* TEXC, ATOM_CX: # of staging registers used */ struct { uint32_t sr_count; uint32_t sr_count_2; union { /* Atomics effectively require all three */ int32_t byte_offset; /* BLEND requires all three */ int32_t branch_offset; }; }; }; /* Modifiers specific to particular instructions are thrown in a union */ union { enum bi_adj adj; /* FEXP_TABLE.u4 */ enum bi_atom_opc atom_opc; /* atomics */ enum bi_func func; /* FPOW_SC_DET */ enum bi_function function; /* LD_VAR_FLAT */ enum bi_mux mux; /* MUX */ enum bi_sem sem; /* FMAX, FMIN */ enum bi_source source; /* LD_GCLK */ bool scale; /* VN_ASST2, FSINCOS_OFFSET */ bool offset; /* FSIN_TABLE, FOCS_TABLE */ bool mask; /* CLZ */ bool threads; /* IMULD, IMOV_FMA */ bool combine; /* BRANCHC */ bool format; /* LEA_TEX */ struct { enum bi_special special; /* FADD_RSCALE, FMA_RSCALE */ enum bi_round round; /* FMA, converts, FADD, _RSCALE, etc */ bool ftz; /* Flush-to-zero for F16_TO_F32 */ }; struct { enum bi_result_type result_type; /* FCMP, ICMP */ enum bi_cmpf cmpf; /* CSEL, FCMP, ICMP, BRANCH */ }; struct { enum bi_stack_mode stack_mode; /* JUMP_EX */ bool test_mode; }; struct { enum bi_seg seg; /* LOAD, STORE, SEG_ADD, SEG_SUB */ bool preserve_null; /* SEG_ADD, SEG_SUB */ enum bi_extend extend; /* LOAD, IMUL */ }; struct { enum bi_sample sample; /* VAR_TEX, LD_VAR */ enum bi_update update; /* VAR_TEX, LD_VAR */ enum bi_varying_name varying_name; /* LD_VAR_SPECIAL */ bool skip; /* VAR_TEX, TEXS, TEXC */ bool lod_mode; /* VAR_TEX, TEXS, implicitly for TEXC */ enum bi_source_format source_format; /* LD_VAR_BUF */ /* Used for valhall texturing */ bool shadow; bool texel_offset; bool array_enable; bool integer_coordinates; enum bi_fetch_component fetch_component; enum bi_va_lod_mode va_lod_mode; enum bi_dimension dimension; enum bi_write_mask write_mask; }; /* Maximum size, for hashing */ unsigned flags[14]; struct { enum bi_subgroup subgroup; /* WMASK, CLPER */ enum bi_inactive_result inactive_result; /* CLPER */ enum bi_lane_op lane_op; /* CLPER */ }; struct { bool z; /* ZS_EMIT */ bool stencil; /* ZS_EMIT */ }; struct { bool h; /* VN_ASST1.f16 */ bool l; /* VN_ASST1.f16 */ }; struct { bool bytes2; /* RROT_DOUBLE, FRSHIFT_DOUBLE */ bool result_word; bool arithmetic; /* ARSHIFT_OR */ }; struct { bool sqrt; /* FREXPM */ bool log; /* FREXPM */ }; struct { enum bi_mode mode; /* FLOG_TABLE */ enum bi_precision precision; /* FLOG_TABLE */ bool divzero; /* FRSQ_APPROX, FRSQ */ }; }; } bi_instr; static inline bool bi_is_staging_src(const bi_instr *I, unsigned s) { return (s == 0 || s == 4) && bi_opcode_props[I->op].sr_read; } /* Represents the assignment of slots for a given bi_tuple */ typedef struct { /* Register to assign to each slot */ unsigned slot[4]; /* Read slots can be disabled */ bool enabled[2]; /* Configuration for slots 2/3 */ struct bifrost_reg_ctrl_23 slot23; /* Fast-Access-Uniform RAM index */ uint8_t fau_idx; /* Whether writes are actually for the last instruction */ bool first_instruction; } bi_registers; /* A bi_tuple contains two paired instruction pointers. If a slot is unfilled, * leave it NULL; the emitter will fill in a nop. Instructions reference * registers via slots which are assigned per tuple. */ typedef struct { uint8_t fau_idx; bi_registers regs; bi_instr *fma; bi_instr *add; } bi_tuple; struct bi_block; typedef struct { struct list_head link; /* Link back up for branch calculations */ struct bi_block *block; /* Architectural limit of 8 tuples/clause */ unsigned tuple_count; bi_tuple tuples[8]; /* For scoreboarding -- the clause ID (this is not globally unique!) * and its dependencies in terms of other clauses, computed during * scheduling and used when emitting code. Dependencies expressed as a * bitfield matching the hardware, except shifted by a clause (the * shift back to the ISA's off-by-one encoding is worked out when * emitting clauses) */ unsigned scoreboard_id; uint8_t dependencies; /* See ISA header for description */ enum bifrost_flow flow_control; /* Can we prefetch the next clause? Usually it makes sense, except for * clauses ending in unconditional branches */ bool next_clause_prefetch; /* Assigned data register */ unsigned staging_register; /* Corresponds to the usual bit but shifted by a clause */ bool staging_barrier; /* Constants read by this clause. ISA limit. Must satisfy: * * constant_count + tuple_count <= 13 * * Also implicitly constant_count <= tuple_count since a tuple only * reads a single constant. */ uint64_t constants[8]; unsigned constant_count; /* Index of a constant to be PC-relative */ unsigned pcrel_idx; /* Branches encode a constant offset relative to the program counter * with some magic flags. By convention, if there is a branch, its * constant will be last. Set this flag to indicate this is required. */ bool branch_constant; /* Unique in a clause */ enum bifrost_message_type message_type; bi_instr *message; /* Discard helper threads */ bool td; /* Should flush-to-zero mode be enabled for this clause? */ bool ftz; } bi_clause; #define BI_NUM_SLOTS 8 /* A model for the state of the scoreboard */ struct bi_scoreboard_state { /** Bitmap of registers read/written by a slot */ uint64_t read[BI_NUM_SLOTS]; uint64_t write[BI_NUM_SLOTS]; /* Nonregister dependencies present by a slot */ uint8_t varying : BI_NUM_SLOTS; uint8_t memory : BI_NUM_SLOTS; }; typedef struct bi_block { /* Link to next block. Must be first for mir_get_block */ struct list_head link; /* List of instructions emitted for the current block */ struct list_head instructions; /* Index of the block in source order */ unsigned index; /* Control flow graph */ struct bi_block *successors[2]; struct util_dynarray predecessors; bool unconditional_jumps; /* Per 32-bit word live masks for the block indexed by node */ uint8_t *live_in; uint8_t *live_out; /* If true, uses clauses; if false, uses instructions */ bool scheduled; struct list_head clauses; /* list of bi_clause */ /* Post-RA liveness */ uint64_t reg_live_in, reg_live_out; /* Scoreboard state at the start/end of block */ struct bi_scoreboard_state scoreboard_in, scoreboard_out; /* On Valhall, indicates we need a terminal NOP to implement jumps to * the end of the shader. */ bool needs_nop; /* Flags available for pass-internal use */ uint8_t pass_flags; } bi_block; static inline unsigned bi_num_predecessors(bi_block *block) { return util_dynarray_num_elements(&block->predecessors, bi_block *); } static inline bi_block * bi_start_block(struct list_head *blocks) { bi_block *first = list_first_entry(blocks, bi_block, link); assert(bi_num_predecessors(first) == 0); return first; } static inline bi_block * bi_exit_block(struct list_head *blocks) { bi_block *last = list_last_entry(blocks, bi_block, link); assert(!last->successors[0] && !last->successors[1]); return last; } static inline void bi_block_add_successor(bi_block *block, bi_block *successor) { assert(block != NULL && successor != NULL); /* Cull impossible edges */ if (block->unconditional_jumps) return; for (unsigned i = 0; i < ARRAY_SIZE(block->successors); ++i) { if (block->successors[i]) { if (block->successors[i] == successor) return; else continue; } block->successors[i] = successor; util_dynarray_append(&successor->predecessors, bi_block *, block); return; } unreachable("Too many successors"); } /* Subset of pan_shader_info needed per-variant, in order to support IDVS */ struct bi_shader_info { struct panfrost_ubo_push *push; struct bifrost_shader_info *bifrost; struct panfrost_sysvals *sysvals; unsigned tls_size; unsigned work_reg_count; unsigned push_offset; }; /* State of index-driven vertex shading for current shader */ enum bi_idvs_mode { /* IDVS not in use */ BI_IDVS_NONE = 0, /* IDVS in use. Compiling a position shader */ BI_IDVS_POSITION = 1, /* IDVS in use. Compiling a varying shader */ BI_IDVS_VARYING = 2, }; typedef struct { const struct panfrost_compile_inputs *inputs; nir_shader *nir; struct bi_shader_info info; gl_shader_stage stage; struct list_head blocks; /* list of bi_block */ struct hash_table_u64 *sysval_to_id; uint32_t quirks; unsigned arch; enum bi_idvs_mode idvs; unsigned num_blocks; /* In any graphics shader, whether the "IDVS with memory * allocation" flow is used. This affects how varyings are loaded and * stored. Ignore for compute. */ bool malloc_idvs; /* During NIR->BIR */ bi_block *current_block; bi_block *after_block; bi_block *break_block; bi_block *continue_block; bool emitted_atest; /* During NIR->BIR, the coverage bitmap. If this is NULL, the default * coverage bitmap should be source from preloaded register r60. This is * written by ATEST and ZS_EMIT */ bi_index coverage; /* During NIR->BIR, table of preloaded registers, or NULL if never * preloaded. */ bi_index preloaded[64]; /* For creating temporaries */ unsigned ssa_alloc; unsigned reg_alloc; /* Mask of UBOs that need to be uploaded */ uint32_t ubo_mask; /* During instruction selection, map from vector bi_index to its scalar * components, populated by a split. */ struct hash_table_u64 *allocated_vec; /* Stats for shader-db */ unsigned instruction_count; unsigned loop_count; unsigned spills; unsigned fills; } bi_context; static inline void bi_remove_instruction(bi_instr *ins) { list_del(&ins->link); } enum bir_fau { BIR_FAU_ZERO = 0, BIR_FAU_LANE_ID = 1, BIR_FAU_WARP_ID = 2, BIR_FAU_CORE_ID = 3, BIR_FAU_FB_EXTENT = 4, BIR_FAU_ATEST_PARAM = 5, BIR_FAU_SAMPLE_POS_ARRAY = 6, BIR_FAU_BLEND_0 = 8, /* blend descs 1 - 7 */ BIR_FAU_TYPE_MASK = 15, /* Valhall only */ BIR_FAU_TLS_PTR = 16, BIR_FAU_WLS_PTR = 17, BIR_FAU_PROGRAM_COUNTER = 18, BIR_FAU_UNIFORM = (1 << 7), /* Look up table on Valhall */ BIR_FAU_IMMEDIATE = (1 << 8), }; static inline bi_index bi_fau(enum bir_fau value, bool hi) { return (bi_index) { .value = value, .swizzle = BI_SWIZZLE_H01, .offset = hi ? 1u : 0u, .type = BI_INDEX_FAU, }; } /* * Builder for Valhall LUT entries. Generally, constants are modeled with * BI_INDEX_IMMEDIATE in the intermediate representation. This helper is only * necessary for passes running after lowering constants, as well as when * lowering constants. * */ static inline bi_index va_lut(unsigned index) { return bi_fau((enum bir_fau) (BIR_FAU_IMMEDIATE | (index >> 1)), index & 1); } /* * va_lut_zero is like bi_zero but only works on Valhall. It is intended for * use by late passes that run after constants are lowered, specifically * register allocation. bi_zero() is preferred where possible. */ static inline bi_index va_zero_lut() { return va_lut(0); } static inline unsigned bi_max_temp(bi_context *ctx) { return (MAX2(ctx->reg_alloc, ctx->ssa_alloc) + 2) << 1; } static inline bi_index bi_temp(bi_context *ctx) { return bi_get_index(ctx->ssa_alloc++, false, 0); } static inline bi_index bi_temp_reg(bi_context *ctx) { return bi_get_index(ctx->reg_alloc++, true, 0); } /* Inline constants automatically, will be lowered out by bi_lower_fau where a * constant is not allowed. load_const_to_scalar gaurantees that this makes * sense */ static inline bi_index bi_src_index(nir_src *src) { if (nir_src_is_const(*src) && nir_src_bit_size(*src) <= 32) return bi_imm_u32(nir_src_as_uint(*src)); else if (src->is_ssa) return bi_get_index(src->ssa->index, false, 0); else { assert(!src->reg.indirect); return bi_get_index(src->reg.reg->index, true, 0); } } static inline bi_index bi_dest_index(nir_dest *dst) { if (dst->is_ssa) return bi_get_index(dst->ssa.index, false, 0); else { assert(!dst->reg.indirect); return bi_get_index(dst->reg.reg->index, true, 0); } } static inline unsigned bi_get_node(bi_index index) { if (bi_is_null(index) || index.type != BI_INDEX_NORMAL) return ~0; else return (index.value << 1) | index.reg; } static inline bi_index bi_node_to_index(unsigned node, unsigned node_count) { assert(node < node_count); assert(node_count < ~0u); return bi_get_index(node >> 1, node & PAN_IS_REG, 0); } /* Iterators for Bifrost IR */ #define bi_foreach_block(ctx, v) \ list_for_each_entry(bi_block, v, &ctx->blocks, link) #define bi_foreach_block_rev(ctx, v) \ list_for_each_entry_rev(bi_block, v, &ctx->blocks, link) #define bi_foreach_block_from(ctx, from, v) \ list_for_each_entry_from(bi_block, v, from, &ctx->blocks, link) #define bi_foreach_block_from_rev(ctx, from, v) \ list_for_each_entry_from_rev(bi_block, v, from, &ctx->blocks, link) #define bi_foreach_instr_in_block(block, v) \ list_for_each_entry(bi_instr, v, &(block)->instructions, link) #define bi_foreach_instr_in_block_rev(block, v) \ list_for_each_entry_rev(bi_instr, v, &(block)->instructions, link) #define bi_foreach_instr_in_block_safe(block, v) \ list_for_each_entry_safe(bi_instr, v, &(block)->instructions, link) #define bi_foreach_instr_in_block_safe_rev(block, v) \ list_for_each_entry_safe_rev(bi_instr, v, &(block)->instructions, link) #define bi_foreach_instr_in_block_from(block, v, from) \ list_for_each_entry_from(bi_instr, v, from, &(block)->instructions, link) #define bi_foreach_instr_in_block_from_rev(block, v, from) \ list_for_each_entry_from_rev(bi_instr, v, from, &(block)->instructions, link) #define bi_foreach_clause_in_block(block, v) \ list_for_each_entry(bi_clause, v, &(block)->clauses, link) #define bi_foreach_clause_in_block_rev(block, v) \ list_for_each_entry_rev(bi_clause, v, &(block)->clauses, link) #define bi_foreach_clause_in_block_safe(block, v) \ list_for_each_entry_safe(bi_clause, v, &(block)->clauses, link) #define bi_foreach_clause_in_block_from(block, v, from) \ list_for_each_entry_from(bi_clause, v, from, &(block)->clauses, link) #define bi_foreach_clause_in_block_from_rev(block, v, from) \ list_for_each_entry_from_rev(bi_clause, v, from, &(block)->clauses, link) #define bi_foreach_instr_global(ctx, v) \ bi_foreach_block(ctx, v_block) \ bi_foreach_instr_in_block(v_block, v) #define bi_foreach_instr_global_rev(ctx, v) \ bi_foreach_block_rev(ctx, v_block) \ bi_foreach_instr_in_block_rev(v_block, v) #define bi_foreach_instr_global_safe(ctx, v) \ bi_foreach_block(ctx, v_block) \ bi_foreach_instr_in_block_safe(v_block, v) #define bi_foreach_instr_global_rev_safe(ctx, v) \ bi_foreach_block_rev(ctx, v_block) \ bi_foreach_instr_in_block_rev_safe(v_block, v) #define bi_foreach_instr_in_tuple(tuple, v) \ for (bi_instr *v = (tuple)->fma ?: (tuple)->add; \ v != NULL; \ v = (v == (tuple)->add) ? NULL : (tuple)->add) #define bi_foreach_successor(blk, v) \ bi_block *v; \ bi_block **_v; \ for (_v = &blk->successors[0], \ v = *_v; \ v != NULL && _v < &blk->successors[2]; \ _v++, v = *_v) \ #define bi_foreach_predecessor(blk, v) \ util_dynarray_foreach(&(blk)->predecessors, bi_block *, v) #define bi_foreach_src(ins, v) \ for (unsigned v = 0; v < ARRAY_SIZE(ins->src); ++v) #define bi_foreach_dest(ins, v) \ for (unsigned v = 0; v < ARRAY_SIZE(ins->dest); ++v) #define bi_foreach_instr_and_src_in_tuple(tuple, ins, s) \ bi_foreach_instr_in_tuple(tuple, ins) \ bi_foreach_src(ins, s) static inline bi_instr * bi_prev_op(bi_instr *ins) { return list_last_entry(&(ins->link), bi_instr, link); } static inline bi_instr * bi_next_op(bi_instr *ins) { return list_first_entry(&(ins->link), bi_instr, link); } static inline bi_block * bi_next_block(bi_block *block) { return list_first_entry(&(block->link), bi_block, link); } static inline bi_block * bi_entry_block(bi_context *ctx) { return list_first_entry(&ctx->blocks, bi_block, link); } /* BIR manipulation */ bool bi_has_arg(const bi_instr *ins, bi_index arg); unsigned bi_count_read_registers(const bi_instr *ins, unsigned src); unsigned bi_count_write_registers(const bi_instr *ins, unsigned dest); bool bi_is_regfmt_16(enum bi_register_format fmt); unsigned bi_writemask(const bi_instr *ins, unsigned dest); bi_clause * bi_next_clause(bi_context *ctx, bi_block *block, bi_clause *clause); bool bi_side_effects(const bi_instr *I); bool bi_reconverge_branches(bi_block *block); bool bi_can_replace_with_csel(bi_instr *I); void bi_replace_mux_with_csel(bi_instr *I, bool must_sign); void bi_print_instr(const bi_instr *I, FILE *fp); void bi_print_slots(bi_registers *regs, FILE *fp); void bi_print_tuple(bi_tuple *tuple, FILE *fp); void bi_print_clause(bi_clause *clause, FILE *fp); void bi_print_block(bi_block *block, FILE *fp); void bi_print_shader(bi_context *ctx, FILE *fp); /* BIR passes */ bool bi_instr_uses_helpers(bi_instr *I); bool bi_block_terminates_helpers(bi_block *block); void bi_analyze_helper_terminate(bi_context *ctx); void bi_mark_clauses_td(bi_context *ctx); void bi_analyze_helper_requirements(bi_context *ctx); void bi_opt_copy_prop(bi_context *ctx); void bi_opt_cse(bi_context *ctx); void bi_opt_mod_prop_forward(bi_context *ctx); void bi_opt_mod_prop_backward(bi_context *ctx); void bi_opt_dead_code_eliminate(bi_context *ctx); void bi_opt_fuse_dual_texture(bi_context *ctx); void bi_opt_dce_post_ra(bi_context *ctx); void bi_opt_message_preload(bi_context *ctx); void bi_opt_push_ubo(bi_context *ctx); void bi_opt_reorder_push(bi_context *ctx); void bi_lower_swizzle(bi_context *ctx); void bi_lower_fau(bi_context *ctx); void bi_assign_scoreboard(bi_context *ctx); void bi_register_allocate(bi_context *ctx); void va_optimize(bi_context *ctx); void va_lower_split_64bit(bi_context *ctx); void bi_lower_opt_instruction(bi_instr *I); void bi_pressure_schedule(bi_context *ctx); void bi_schedule(bi_context *ctx); bool bi_can_fma(bi_instr *ins); bool bi_can_add(bi_instr *ins); bool bi_must_message(bi_instr *ins); bool bi_reads_zero(bi_instr *ins); bool bi_reads_temps(bi_instr *ins, unsigned src); bool bi_reads_t(bi_instr *ins, unsigned src); #ifndef NDEBUG bool bi_validate_initialization(bi_context *ctx); void bi_validate(bi_context *ctx, const char *after_str); #else static inline bool bi_validate_initialization(UNUSED bi_context *ctx) { return true; } static inline void bi_validate(UNUSED bi_context *ctx, UNUSED const char *after_str) { return; } #endif uint32_t bi_fold_constant(bi_instr *I, bool *unsupported); bool bi_opt_constant_fold(bi_context *ctx); /* Liveness */ void bi_compute_liveness(bi_context *ctx); void bi_liveness_ins_update(uint8_t *live, bi_instr *ins, unsigned max); void bi_postra_liveness(bi_context *ctx); uint64_t MUST_CHECK bi_postra_liveness_ins(uint64_t live, bi_instr *ins); /* Layout */ signed bi_block_offset(bi_context *ctx, bi_clause *start, bi_block *target); bool bi_ec0_packed(unsigned tuple_count); /* Check if there are no more instructions starting with a given block, this * needs to recurse in case a shader ends with multiple empty blocks */ static inline bool bi_is_terminal_block(bi_block *block) { return (block == NULL) || (list_is_empty(&block->instructions) && bi_is_terminal_block(block->successors[0]) && bi_is_terminal_block(block->successors[1])); } /* Code emit */ /* Returns the size of the final clause */ unsigned bi_pack(bi_context *ctx, struct util_dynarray *emission); void bi_pack_valhall(bi_context *ctx, struct util_dynarray *emission); struct bi_packed_tuple { uint64_t lo; uint64_t hi; }; uint8_t bi_pack_literal(enum bi_clause_subword literal); uint8_t bi_pack_upper(enum bi_clause_subword upper, struct bi_packed_tuple *tuples, ASSERTED unsigned tuple_count); uint64_t bi_pack_tuple_bits(enum bi_clause_subword idx, struct bi_packed_tuple *tuples, ASSERTED unsigned tuple_count, unsigned offset, unsigned nbits); uint8_t bi_pack_sync(enum bi_clause_subword t1, enum bi_clause_subword t2, enum bi_clause_subword t3, struct bi_packed_tuple *tuples, ASSERTED unsigned tuple_count, bool z); void bi_pack_format(struct util_dynarray *emission, unsigned index, struct bi_packed_tuple *tuples, ASSERTED unsigned tuple_count, uint64_t header, uint64_t ec0, unsigned m0, bool z); unsigned bi_pack_fma(bi_instr *I, enum bifrost_packed_src src0, enum bifrost_packed_src src1, enum bifrost_packed_src src2, enum bifrost_packed_src src3); unsigned bi_pack_add(bi_instr *I, enum bifrost_packed_src src0, enum bifrost_packed_src src1, enum bifrost_packed_src src2, enum bifrost_packed_src src3); /* Like in NIR, for use with the builder */ enum bi_cursor_option { bi_cursor_after_block, bi_cursor_before_instr, bi_cursor_after_instr }; typedef struct { enum bi_cursor_option option; union { bi_block *block; bi_instr *instr; }; } bi_cursor; static inline bi_cursor bi_after_block(bi_block *block) { return (bi_cursor) { .option = bi_cursor_after_block, .block = block }; } static inline bi_cursor bi_before_instr(bi_instr *instr) { return (bi_cursor) { .option = bi_cursor_before_instr, .instr = instr }; } static inline bi_cursor bi_after_instr(bi_instr *instr) { return (bi_cursor) { .option = bi_cursor_after_instr, .instr = instr }; } static inline bi_cursor bi_before_nonempty_block(bi_block *block) { bi_instr *I = list_first_entry(&block->instructions, bi_instr, link); assert(I != NULL); return bi_before_instr(I); } static inline bi_cursor bi_before_block(bi_block *block) { if (list_is_empty(&block->instructions)) return bi_after_block(block); else return bi_before_nonempty_block(block); } /* Invariant: a tuple must be nonempty UNLESS it is the last tuple of a clause, * in which case there must exist a nonempty penultimate tuple */ ATTRIBUTE_RETURNS_NONNULL static inline bi_instr * bi_first_instr_in_tuple(bi_tuple *tuple) { bi_instr *instr = tuple->fma ?: tuple->add; assert(instr != NULL); return instr; } ATTRIBUTE_RETURNS_NONNULL static inline bi_instr * bi_first_instr_in_clause(bi_clause *clause) { return bi_first_instr_in_tuple(&clause->tuples[0]); } ATTRIBUTE_RETURNS_NONNULL static inline bi_instr * bi_last_instr_in_clause(bi_clause *clause) { bi_tuple tuple = clause->tuples[clause->tuple_count - 1]; bi_instr *instr = tuple.add ?: tuple.fma; if (!instr) { assert(clause->tuple_count >= 2); tuple = clause->tuples[clause->tuple_count - 2]; instr = tuple.add ?: tuple.fma; } assert(instr != NULL); return instr; } /* Implemented by expanding bi_foreach_instr_in_block_from(_rev) with the start * (end) of the clause and adding a condition for the clause boundary */ #define bi_foreach_instr_in_clause(block, clause, pos) \ for (bi_instr *pos = list_entry(bi_first_instr_in_clause(clause), bi_instr, link); \ (&pos->link != &(block)->instructions) \ && (pos != bi_next_op(bi_last_instr_in_clause(clause))); \ pos = list_entry(pos->link.next, bi_instr, link)) #define bi_foreach_instr_in_clause_rev(block, clause, pos) \ for (bi_instr *pos = list_entry(bi_last_instr_in_clause(clause), bi_instr, link); \ (&pos->link != &(block)->instructions) \ && pos != bi_prev_op(bi_first_instr_in_clause(clause)); \ pos = list_entry(pos->link.prev, bi_instr, link)) static inline bi_cursor bi_before_clause(bi_clause *clause) { return bi_before_instr(bi_first_instr_in_clause(clause)); } static inline bi_cursor bi_before_tuple(bi_tuple *tuple) { return bi_before_instr(bi_first_instr_in_tuple(tuple)); } static inline bi_cursor bi_after_clause(bi_clause *clause) { return bi_after_instr(bi_last_instr_in_clause(clause)); } /* IR builder in terms of cursor infrastructure */ typedef struct { bi_context *shader; bi_cursor cursor; } bi_builder; static inline bi_builder bi_init_builder(bi_context *ctx, bi_cursor cursor) { return (bi_builder) { .shader = ctx, .cursor = cursor }; } /* Insert an instruction at the cursor and move the cursor */ static inline void bi_builder_insert(bi_cursor *cursor, bi_instr *I) { switch (cursor->option) { case bi_cursor_after_instr: list_add(&I->link, &cursor->instr->link); cursor->instr = I; return; case bi_cursor_after_block: list_addtail(&I->link, &cursor->block->instructions); cursor->option = bi_cursor_after_instr; cursor->instr = I; return; case bi_cursor_before_instr: list_addtail(&I->link, &cursor->instr->link); cursor->option = bi_cursor_after_instr; cursor->instr = I; return; } unreachable("Invalid cursor option"); } /* Read back power-efficent garbage, TODO maybe merge with null? */ static inline bi_index bi_dontcare(bi_builder *b) { if (b->shader->arch >= 9) return bi_zero(); else return bi_passthrough(BIFROST_SRC_FAU_HI); } #define bi_worklist_init(ctx, w) u_worklist_init(w, ctx->num_blocks, ctx) #define bi_worklist_push_head(w, block) u_worklist_push_head(w, block, index) #define bi_worklist_push_tail(w, block) u_worklist_push_tail(w, block, index) #define bi_worklist_peek_head(w) u_worklist_peek_head(w, bi_block, index) #define bi_worklist_pop_head(w) u_worklist_pop_head( w, bi_block, index) #define bi_worklist_peek_tail(w) u_worklist_peek_tail(w, bi_block, index) #define bi_worklist_pop_tail(w) u_worklist_pop_tail( w, bi_block, index) /* NIR passes */ bool bi_lower_divergent_indirects(nir_shader *shader, unsigned lanes); #ifdef __cplusplus } /* extern C */ #endif #endif