| /* |
| * Copyright © 2014 Intel Corporation |
| * |
| * 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: |
| * Jason Ekstrand (jason@jlekstrand.net) |
| * |
| */ |
| |
| #include <inttypes.h> |
| #include "nir_search.h" |
| #include "nir_builder.h" |
| #include "util/half_float.h" |
| |
| /* This should be the same as nir_search_max_comm_ops in nir_algebraic.py. */ |
| #define NIR_SEARCH_MAX_COMM_OPS 8 |
| |
| struct match_state { |
| bool inexact_match; |
| bool has_exact_alu; |
| uint8_t comm_op_direction; |
| unsigned variables_seen; |
| nir_alu_src variables[NIR_SEARCH_MAX_VARIABLES]; |
| }; |
| |
| static bool |
| match_expression(const nir_search_expression *expr, nir_alu_instr *instr, |
| unsigned num_components, const uint8_t *swizzle, |
| struct match_state *state); |
| |
| static const uint8_t identity_swizzle[NIR_MAX_VEC_COMPONENTS] = { 0, 1, 2, 3 }; |
| |
| /** |
| * Check if a source produces a value of the given type. |
| * |
| * Used for satisfying 'a@type' constraints. |
| */ |
| static bool |
| src_is_type(nir_src src, nir_alu_type type) |
| { |
| assert(type != nir_type_invalid); |
| |
| if (!src.is_ssa) |
| return false; |
| |
| if (src.ssa->parent_instr->type == nir_instr_type_alu) { |
| nir_alu_instr *src_alu = nir_instr_as_alu(src.ssa->parent_instr); |
| nir_alu_type output_type = nir_op_infos[src_alu->op].output_type; |
| |
| if (type == nir_type_bool) { |
| switch (src_alu->op) { |
| case nir_op_iand: |
| case nir_op_ior: |
| case nir_op_ixor: |
| return src_is_type(src_alu->src[0].src, nir_type_bool) && |
| src_is_type(src_alu->src[1].src, nir_type_bool); |
| case nir_op_inot: |
| return src_is_type(src_alu->src[0].src, nir_type_bool); |
| default: |
| break; |
| } |
| } |
| |
| return nir_alu_type_get_base_type(output_type) == type; |
| } else if (src.ssa->parent_instr->type == nir_instr_type_intrinsic) { |
| nir_intrinsic_instr *intr = nir_instr_as_intrinsic(src.ssa->parent_instr); |
| |
| if (type == nir_type_bool) { |
| return intr->intrinsic == nir_intrinsic_load_front_face || |
| intr->intrinsic == nir_intrinsic_load_helper_invocation; |
| } |
| } |
| |
| /* don't know */ |
| return false; |
| } |
| |
| static bool |
| nir_op_matches_search_op(nir_op nop, uint16_t sop) |
| { |
| if (sop <= nir_last_opcode) |
| return nop == sop; |
| |
| #define MATCH_FCONV_CASE(op) \ |
| case nir_search_op_##op: \ |
| return nop == nir_op_##op##16 || \ |
| nop == nir_op_##op##32 || \ |
| nop == nir_op_##op##64; |
| |
| #define MATCH_ICONV_CASE(op) \ |
| case nir_search_op_##op: \ |
| return nop == nir_op_##op##8 || \ |
| nop == nir_op_##op##16 || \ |
| nop == nir_op_##op##32 || \ |
| nop == nir_op_##op##64; |
| |
| #define MATCH_BCONV_CASE(op) \ |
| case nir_search_op_##op: \ |
| return nop == nir_op_##op##1 || \ |
| nop == nir_op_##op##32; |
| |
| switch (sop) { |
| MATCH_FCONV_CASE(i2f) |
| MATCH_FCONV_CASE(u2f) |
| MATCH_FCONV_CASE(f2f) |
| MATCH_ICONV_CASE(f2u) |
| MATCH_ICONV_CASE(f2i) |
| MATCH_ICONV_CASE(u2u) |
| MATCH_ICONV_CASE(i2i) |
| MATCH_FCONV_CASE(b2f) |
| MATCH_ICONV_CASE(b2i) |
| MATCH_BCONV_CASE(i2b) |
| MATCH_BCONV_CASE(f2b) |
| default: |
| unreachable("Invalid nir_search_op"); |
| } |
| |
| #undef MATCH_FCONV_CASE |
| #undef MATCH_ICONV_CASE |
| #undef MATCH_BCONV_CASE |
| } |
| |
| uint16_t |
| nir_search_op_for_nir_op(nir_op nop) |
| { |
| #define MATCH_FCONV_CASE(op) \ |
| case nir_op_##op##16: \ |
| case nir_op_##op##32: \ |
| case nir_op_##op##64: \ |
| return nir_search_op_##op; |
| |
| #define MATCH_ICONV_CASE(op) \ |
| case nir_op_##op##8: \ |
| case nir_op_##op##16: \ |
| case nir_op_##op##32: \ |
| case nir_op_##op##64: \ |
| return nir_search_op_##op; |
| |
| #define MATCH_BCONV_CASE(op) \ |
| case nir_op_##op##1: \ |
| case nir_op_##op##32: \ |
| return nir_search_op_##op; |
| |
| |
| switch (nop) { |
| MATCH_FCONV_CASE(i2f) |
| MATCH_FCONV_CASE(u2f) |
| MATCH_FCONV_CASE(f2f) |
| MATCH_ICONV_CASE(f2u) |
| MATCH_ICONV_CASE(f2i) |
| MATCH_ICONV_CASE(u2u) |
| MATCH_ICONV_CASE(i2i) |
| MATCH_FCONV_CASE(b2f) |
| MATCH_ICONV_CASE(b2i) |
| MATCH_BCONV_CASE(i2b) |
| MATCH_BCONV_CASE(f2b) |
| default: |
| return nop; |
| } |
| |
| #undef MATCH_FCONV_CASE |
| #undef MATCH_ICONV_CASE |
| #undef MATCH_BCONV_CASE |
| } |
| |
| static nir_op |
| nir_op_for_search_op(uint16_t sop, unsigned bit_size) |
| { |
| if (sop <= nir_last_opcode) |
| return sop; |
| |
| #define RET_FCONV_CASE(op) \ |
| case nir_search_op_##op: \ |
| switch (bit_size) { \ |
| case 16: return nir_op_##op##16; \ |
| case 32: return nir_op_##op##32; \ |
| case 64: return nir_op_##op##64; \ |
| default: unreachable("Invalid bit size"); \ |
| } |
| |
| #define RET_ICONV_CASE(op) \ |
| case nir_search_op_##op: \ |
| switch (bit_size) { \ |
| case 8: return nir_op_##op##8; \ |
| case 16: return nir_op_##op##16; \ |
| case 32: return nir_op_##op##32; \ |
| case 64: return nir_op_##op##64; \ |
| default: unreachable("Invalid bit size"); \ |
| } |
| |
| #define RET_BCONV_CASE(op) \ |
| case nir_search_op_##op: \ |
| switch (bit_size) { \ |
| case 1: return nir_op_##op##1; \ |
| case 32: return nir_op_##op##32; \ |
| default: unreachable("Invalid bit size"); \ |
| } |
| |
| switch (sop) { |
| RET_FCONV_CASE(i2f) |
| RET_FCONV_CASE(u2f) |
| RET_FCONV_CASE(f2f) |
| RET_ICONV_CASE(f2u) |
| RET_ICONV_CASE(f2i) |
| RET_ICONV_CASE(u2u) |
| RET_ICONV_CASE(i2i) |
| RET_FCONV_CASE(b2f) |
| RET_ICONV_CASE(b2i) |
| RET_BCONV_CASE(i2b) |
| RET_BCONV_CASE(f2b) |
| default: |
| unreachable("Invalid nir_search_op"); |
| } |
| |
| #undef RET_FCONV_CASE |
| #undef RET_ICONV_CASE |
| #undef RET_BCONV_CASE |
| } |
| |
| static bool |
| match_value(const nir_search_value *value, nir_alu_instr *instr, unsigned src, |
| unsigned num_components, const uint8_t *swizzle, |
| struct match_state *state) |
| { |
| uint8_t new_swizzle[NIR_MAX_VEC_COMPONENTS]; |
| |
| /* Searching only works on SSA values because, if it's not SSA, we can't |
| * know if the value changed between one instance of that value in the |
| * expression and another. Also, the replace operation will place reads of |
| * that value right before the last instruction in the expression we're |
| * replacing so those reads will happen after the original reads and may |
| * not be valid if they're register reads. |
| */ |
| assert(instr->src[src].src.is_ssa); |
| |
| /* If the source is an explicitly sized source, then we need to reset |
| * both the number of components and the swizzle. |
| */ |
| if (nir_op_infos[instr->op].input_sizes[src] != 0) { |
| num_components = nir_op_infos[instr->op].input_sizes[src]; |
| swizzle = identity_swizzle; |
| } |
| |
| for (unsigned i = 0; i < num_components; ++i) |
| new_swizzle[i] = instr->src[src].swizzle[swizzle[i]]; |
| |
| /* If the value has a specific bit size and it doesn't match, bail */ |
| if (value->bit_size > 0 && |
| nir_src_bit_size(instr->src[src].src) != value->bit_size) |
| return false; |
| |
| switch (value->type) { |
| case nir_search_value_expression: |
| if (instr->src[src].src.ssa->parent_instr->type != nir_instr_type_alu) |
| return false; |
| |
| return match_expression(nir_search_value_as_expression(value), |
| nir_instr_as_alu(instr->src[src].src.ssa->parent_instr), |
| num_components, new_swizzle, state); |
| |
| case nir_search_value_variable: { |
| nir_search_variable *var = nir_search_value_as_variable(value); |
| assert(var->variable < NIR_SEARCH_MAX_VARIABLES); |
| |
| if (state->variables_seen & (1 << var->variable)) { |
| if (state->variables[var->variable].src.ssa != instr->src[src].src.ssa) |
| return false; |
| |
| assert(!instr->src[src].abs && !instr->src[src].negate); |
| |
| for (unsigned i = 0; i < num_components; ++i) { |
| if (state->variables[var->variable].swizzle[i] != new_swizzle[i]) |
| return false; |
| } |
| |
| return true; |
| } else { |
| if (var->is_constant && |
| instr->src[src].src.ssa->parent_instr->type != nir_instr_type_load_const) |
| return false; |
| |
| if (var->cond && !var->cond(instr, src, num_components, new_swizzle)) |
| return false; |
| |
| if (var->type != nir_type_invalid && |
| !src_is_type(instr->src[src].src, var->type)) |
| return false; |
| |
| state->variables_seen |= (1 << var->variable); |
| state->variables[var->variable].src = instr->src[src].src; |
| state->variables[var->variable].abs = false; |
| state->variables[var->variable].negate = false; |
| |
| for (unsigned i = 0; i < NIR_MAX_VEC_COMPONENTS; ++i) { |
| if (i < num_components) |
| state->variables[var->variable].swizzle[i] = new_swizzle[i]; |
| else |
| state->variables[var->variable].swizzle[i] = 0; |
| } |
| |
| return true; |
| } |
| } |
| |
| case nir_search_value_constant: { |
| nir_search_constant *const_val = nir_search_value_as_constant(value); |
| |
| if (!nir_src_is_const(instr->src[src].src)) |
| return false; |
| |
| switch (const_val->type) { |
| case nir_type_float: { |
| nir_load_const_instr *const load = |
| nir_instr_as_load_const(instr->src[src].src.ssa->parent_instr); |
| |
| /* There are 8-bit and 1-bit integer types, but there are no 8-bit or |
| * 1-bit float types. This prevents potential assertion failures in |
| * nir_src_comp_as_float. |
| */ |
| if (load->def.bit_size < 16) |
| return false; |
| |
| for (unsigned i = 0; i < num_components; ++i) { |
| double val = nir_src_comp_as_float(instr->src[src].src, |
| new_swizzle[i]); |
| if (val != const_val->data.d) |
| return false; |
| } |
| return true; |
| } |
| |
| case nir_type_int: |
| case nir_type_uint: |
| case nir_type_bool: { |
| unsigned bit_size = nir_src_bit_size(instr->src[src].src); |
| uint64_t mask = bit_size == 64 ? UINT64_MAX : (1ull << bit_size) - 1; |
| for (unsigned i = 0; i < num_components; ++i) { |
| uint64_t val = nir_src_comp_as_uint(instr->src[src].src, |
| new_swizzle[i]); |
| if ((val & mask) != (const_val->data.u & mask)) |
| return false; |
| } |
| return true; |
| } |
| |
| default: |
| unreachable("Invalid alu source type"); |
| } |
| } |
| |
| default: |
| unreachable("Invalid search value type"); |
| } |
| } |
| |
| static bool |
| match_expression(const nir_search_expression *expr, nir_alu_instr *instr, |
| unsigned num_components, const uint8_t *swizzle, |
| struct match_state *state) |
| { |
| if (expr->cond && !expr->cond(instr)) |
| return false; |
| |
| if (!nir_op_matches_search_op(instr->op, expr->opcode)) |
| return false; |
| |
| assert(instr->dest.dest.is_ssa); |
| |
| if (expr->value.bit_size > 0 && |
| instr->dest.dest.ssa.bit_size != expr->value.bit_size) |
| return false; |
| |
| state->inexact_match = expr->inexact || state->inexact_match; |
| state->has_exact_alu = instr->exact || state->has_exact_alu; |
| if (state->inexact_match && state->has_exact_alu) |
| return false; |
| |
| assert(!instr->dest.saturate); |
| assert(nir_op_infos[instr->op].num_inputs > 0); |
| |
| /* If we have an explicitly sized destination, we can only handle the |
| * identity swizzle. While dot(vec3(a, b, c).zxy) is a valid |
| * expression, we don't have the information right now to propagate that |
| * swizzle through. We can only properly propagate swizzles if the |
| * instruction is vectorized. |
| */ |
| if (nir_op_infos[instr->op].output_size != 0) { |
| for (unsigned i = 0; i < num_components; i++) { |
| if (swizzle[i] != i) |
| return false; |
| } |
| } |
| |
| /* If this is a commutative expression and it's one of the first few, look |
| * up its direction for the current search operation. We'll use that value |
| * to possibly flip the sources for the match. |
| */ |
| unsigned comm_op_flip = |
| (expr->comm_expr_idx >= 0 && |
| expr->comm_expr_idx < NIR_SEARCH_MAX_COMM_OPS) ? |
| ((state->comm_op_direction >> expr->comm_expr_idx) & 1) : 0; |
| |
| bool matched = true; |
| for (unsigned i = 0; i < nir_op_infos[instr->op].num_inputs; i++) { |
| /* 2src_commutative instructions that have 3 sources are only commutative |
| * in the first two sources. Source 2 is always source 2. |
| */ |
| if (!match_value(expr->srcs[i], instr, |
| i < 2 ? i ^ comm_op_flip : i, |
| num_components, swizzle, state)) { |
| matched = false; |
| break; |
| } |
| } |
| |
| return matched; |
| } |
| |
| static unsigned |
| replace_bitsize(const nir_search_value *value, unsigned search_bitsize, |
| struct match_state *state) |
| { |
| if (value->bit_size > 0) |
| return value->bit_size; |
| if (value->bit_size < 0) |
| return nir_src_bit_size(state->variables[-value->bit_size - 1].src); |
| return search_bitsize; |
| } |
| |
| static nir_alu_src |
| construct_value(nir_builder *build, |
| const nir_search_value *value, |
| unsigned num_components, unsigned search_bitsize, |
| struct match_state *state, |
| nir_instr *instr) |
| { |
| switch (value->type) { |
| case nir_search_value_expression: { |
| const nir_search_expression *expr = nir_search_value_as_expression(value); |
| unsigned dst_bit_size = replace_bitsize(value, search_bitsize, state); |
| nir_op op = nir_op_for_search_op(expr->opcode, dst_bit_size); |
| |
| if (nir_op_infos[op].output_size != 0) |
| num_components = nir_op_infos[op].output_size; |
| |
| nir_alu_instr *alu = nir_alu_instr_create(build->shader, op); |
| nir_ssa_dest_init(&alu->instr, &alu->dest.dest, num_components, |
| dst_bit_size, NULL); |
| alu->dest.write_mask = (1 << num_components) - 1; |
| alu->dest.saturate = false; |
| |
| /* We have no way of knowing what values in a given search expression |
| * map to a particular replacement value. Therefore, if the |
| * expression we are replacing has any exact values, the entire |
| * replacement should be exact. |
| */ |
| alu->exact = state->has_exact_alu; |
| |
| for (unsigned i = 0; i < nir_op_infos[op].num_inputs; i++) { |
| /* If the source is an explicitly sized source, then we need to reset |
| * the number of components to match. |
| */ |
| if (nir_op_infos[alu->op].input_sizes[i] != 0) |
| num_components = nir_op_infos[alu->op].input_sizes[i]; |
| |
| alu->src[i] = construct_value(build, expr->srcs[i], |
| num_components, search_bitsize, |
| state, instr); |
| } |
| |
| nir_builder_instr_insert(build, &alu->instr); |
| |
| nir_alu_src val; |
| val.src = nir_src_for_ssa(&alu->dest.dest.ssa); |
| val.negate = false; |
| val.abs = false, |
| memcpy(val.swizzle, identity_swizzle, sizeof val.swizzle); |
| |
| return val; |
| } |
| |
| case nir_search_value_variable: { |
| const nir_search_variable *var = nir_search_value_as_variable(value); |
| assert(state->variables_seen & (1 << var->variable)); |
| |
| nir_alu_src val = { NIR_SRC_INIT }; |
| nir_alu_src_copy(&val, &state->variables[var->variable], |
| (void *)build->shader); |
| assert(!var->is_constant); |
| |
| for (unsigned i = 0; i < NIR_MAX_VEC_COMPONENTS; i++) |
| val.swizzle[i] = state->variables[var->variable].swizzle[var->swizzle[i]]; |
| |
| return val; |
| } |
| |
| case nir_search_value_constant: { |
| const nir_search_constant *c = nir_search_value_as_constant(value); |
| unsigned bit_size = replace_bitsize(value, search_bitsize, state); |
| |
| nir_ssa_def *cval; |
| switch (c->type) { |
| case nir_type_float: |
| cval = nir_imm_floatN_t(build, c->data.d, bit_size); |
| break; |
| |
| case nir_type_int: |
| case nir_type_uint: |
| cval = nir_imm_intN_t(build, c->data.i, bit_size); |
| break; |
| |
| case nir_type_bool: |
| cval = nir_imm_boolN_t(build, c->data.u, bit_size); |
| break; |
| |
| default: |
| unreachable("Invalid alu source type"); |
| } |
| |
| nir_alu_src val; |
| val.src = nir_src_for_ssa(cval); |
| val.negate = false; |
| val.abs = false, |
| memset(val.swizzle, 0, sizeof val.swizzle); |
| |
| return val; |
| } |
| |
| default: |
| unreachable("Invalid search value type"); |
| } |
| } |
| |
| UNUSED static void dump_value(const nir_search_value *val) |
| { |
| switch (val->type) { |
| case nir_search_value_constant: { |
| const nir_search_constant *sconst = nir_search_value_as_constant(val); |
| switch (sconst->type) { |
| case nir_type_float: |
| printf("%f", sconst->data.d); |
| break; |
| case nir_type_int: |
| printf("%"PRId64, sconst->data.i); |
| break; |
| case nir_type_uint: |
| printf("0x%"PRIx64, sconst->data.u); |
| break; |
| case nir_type_bool: |
| printf("%s", sconst->data.u != 0 ? "True" : "False"); |
| break; |
| default: |
| unreachable("bad const type"); |
| } |
| break; |
| } |
| |
| case nir_search_value_variable: { |
| const nir_search_variable *var = nir_search_value_as_variable(val); |
| if (var->is_constant) |
| printf("#"); |
| printf("%c", var->variable + 'a'); |
| break; |
| } |
| |
| case nir_search_value_expression: { |
| const nir_search_expression *expr = nir_search_value_as_expression(val); |
| printf("("); |
| if (expr->inexact) |
| printf("~"); |
| switch (expr->opcode) { |
| #define CASE(n) \ |
| case nir_search_op_##n: printf(#n); break; |
| CASE(f2b) |
| CASE(b2f) |
| CASE(b2i) |
| CASE(i2b) |
| CASE(i2i) |
| CASE(f2i) |
| CASE(i2f) |
| #undef CASE |
| default: |
| printf("%s", nir_op_infos[expr->opcode].name); |
| } |
| |
| unsigned num_srcs = 1; |
| if (expr->opcode <= nir_last_opcode) |
| num_srcs = nir_op_infos[expr->opcode].num_inputs; |
| |
| for (unsigned i = 0; i < num_srcs; i++) { |
| printf(" "); |
| dump_value(expr->srcs[i]); |
| } |
| |
| printf(")"); |
| break; |
| } |
| } |
| |
| if (val->bit_size > 0) |
| printf("@%d", val->bit_size); |
| } |
| |
| nir_ssa_def * |
| nir_replace_instr(nir_builder *build, nir_alu_instr *instr, |
| const nir_search_expression *search, |
| const nir_search_value *replace) |
| { |
| uint8_t swizzle[NIR_MAX_VEC_COMPONENTS] = { 0 }; |
| |
| for (unsigned i = 0; i < instr->dest.dest.ssa.num_components; ++i) |
| swizzle[i] = i; |
| |
| assert(instr->dest.dest.is_ssa); |
| |
| struct match_state state; |
| state.inexact_match = false; |
| state.has_exact_alu = false; |
| |
| STATIC_ASSERT(sizeof(state.comm_op_direction) * 8 >= NIR_SEARCH_MAX_COMM_OPS); |
| |
| unsigned comm_expr_combinations = |
| 1 << MIN2(search->comm_exprs, NIR_SEARCH_MAX_COMM_OPS); |
| |
| bool found = false; |
| for (unsigned comb = 0; comb < comm_expr_combinations; comb++) { |
| /* The bitfield of directions is just the current iteration. Hooray for |
| * binary. |
| */ |
| state.comm_op_direction = comb; |
| state.variables_seen = 0; |
| |
| if (match_expression(search, instr, |
| instr->dest.dest.ssa.num_components, |
| swizzle, &state)) { |
| found = true; |
| break; |
| } |
| } |
| if (!found) |
| return NULL; |
| |
| #if 0 |
| printf("matched: "); |
| dump_value(&search->value); |
| printf(" -> "); |
| dump_value(replace); |
| printf(" ssa_%d\n", instr->dest.dest.ssa.index); |
| #endif |
| |
| build->cursor = nir_before_instr(&instr->instr); |
| |
| nir_alu_src val = construct_value(build, replace, |
| instr->dest.dest.ssa.num_components, |
| instr->dest.dest.ssa.bit_size, |
| &state, &instr->instr); |
| |
| /* Inserting a mov may be unnecessary. However, it's much easier to |
| * simply let copy propagation clean this up than to try to go through |
| * and rewrite swizzles ourselves. |
| */ |
| nir_ssa_def *ssa_val = |
| nir_mov_alu(build, val, instr->dest.dest.ssa.num_components); |
| nir_ssa_def_rewrite_uses(&instr->dest.dest.ssa, nir_src_for_ssa(ssa_val)); |
| |
| /* We know this one has no more uses because we just rewrote them all, |
| * so we can remove it. The rest of the matched expression, however, we |
| * don't know so much about. We'll just let dead code clean them up. |
| */ |
| nir_instr_remove(&instr->instr); |
| |
| return ssa_val; |
| } |