diff options
Diffstat (limited to 'gcc/brig/brigfrontend')
| -rw-r--r-- | gcc/brig/brigfrontend/brig-basic-inst-handler.cc | 13 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-code-entry-handler.cc | 126 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-code-entry-handler.h | 6 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-copy-move-inst-handler.cc | 4 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-cvt-inst-handler.cc | 50 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-function.cc | 69 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-function.h | 12 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-mem-inst-handler.cc | 15 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-to-generic.cc | 101 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-to-generic.h | 11 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-util.cc | 89 | ||||
| -rw-r--r-- | gcc/brig/brigfrontend/brig-util.h | 31 |
12 files changed, 383 insertions, 144 deletions
diff --git a/gcc/brig/brigfrontend/brig-basic-inst-handler.cc b/gcc/brig/brigfrontend/brig-basic-inst-handler.cc index 8288d66..ad5a410 100644 --- a/gcc/brig/brigfrontend/brig-basic-inst-handler.cc +++ b/gcc/brig/brigfrontend/brig-basic-inst-handler.cc @@ -184,15 +184,16 @@ brig_basic_inst_handler::build_unpack (tree_stl_vec &operands) tree and_mask_vec = build_constructor (vec_type, and_mask_vals); tree perm = build3 (VEC_PERM_EXPR, vec_type, - build_reinterpret_cast (vec_type, operands[0]), - build_reinterpret_cast (vec_type, operands[0]), mask_vec); + build_resize_convert_view (vec_type, operands[0]), + build_resize_convert_view (vec_type, operands[0]), + mask_vec); tree cleared = build2 (BIT_AND_EXPR, vec_type, perm, and_mask_vec); size_t s = int_size_in_bytes (TREE_TYPE (cleared)) * BITS_PER_UNIT; tree raw_type = build_nonstandard_integer_type (s, true); - tree as_int = build_reinterpret_cast (raw_type, cleared); + tree as_int = build_resize_convert_view (raw_type, cleared); if (int_size_in_bytes (src_element_type) < 4) { @@ -217,7 +218,7 @@ brig_basic_inst_handler::build_pack (tree_stl_vec &operands) size_t vecsize = int_size_in_bytes (TREE_TYPE (operands[0])) * BITS_PER_UNIT; tree wide_type = build_nonstandard_integer_type (vecsize, 1); - tree src_vect = build_reinterpret_cast (wide_type, operands[0]); + tree src_vect = build_resize_convert_view (wide_type, operands[0]); src_vect = add_temp_var ("src_vect", src_vect); tree scalar = operands[1]; @@ -650,10 +651,10 @@ brig_basic_inst_handler::operator () (const BrigBase *base) if (is_fp16_operation) old_value = build_h2f_conversion - (build_reinterpret_cast (half_storage_type, operands[0])); + (build_resize_convert_view (half_storage_type, operands[0])); else old_value - = build_reinterpret_cast (TREE_TYPE (instr_expr), operands[0]); + = build_resize_convert_view (TREE_TYPE (instr_expr), operands[0]); size_t esize = is_fp16_operation ? 32 : element_size_bits; diff --git a/gcc/brig/brigfrontend/brig-code-entry-handler.cc b/gcc/brig/brigfrontend/brig-code-entry-handler.cc index a660739..923a454 100644 --- a/gcc/brig/brigfrontend/brig-code-entry-handler.cc +++ b/gcc/brig/brigfrontend/brig-code-entry-handler.cc @@ -137,14 +137,7 @@ brig_code_entry_handler::build_tree_operand (const BrigInstBase &brig_inst, correct size here so we don't need a separate unpack/pack for it. fp16-fp32 conversion is done in build_operands (). */ if (is_input && TREE_TYPE (element) != operand_type) - { - if (int_size_in_bytes (TREE_TYPE (element)) - == int_size_in_bytes (operand_type) - && !INTEGRAL_TYPE_P (operand_type)) - element = build1 (VIEW_CONVERT_EXPR, operand_type, element); - else - element = convert (operand_type, element); - } + element = build_resize_convert_view (operand_type, element); CONSTRUCTOR_APPEND_ELT (constructor_vals, NULL_TREE, element); ++operand_ptr; @@ -368,7 +361,7 @@ brig_code_entry_handler::build_address_operand to the array object. */ if (POINTER_TYPE_P (TREE_TYPE (arg_var_decl))) - symbol_base = build_reinterpret_cast (ptype, arg_var_decl); + symbol_base = build_resize_convert_view (ptype, arg_var_decl); else { /* In case we are referring to an array (the argument in @@ -436,7 +429,8 @@ brig_code_entry_handler::build_address_operand = (const BrigOperandRegister *) m_parent.get_brig_operand_entry (addr_operand.reg); tree base_reg_var = m_parent.m_cf->get_m_var_declfor_reg (mem_base_reg); - var_offset = convert_to_pointer (ptr_type_node, base_reg_var); + tree as_uint = build_reinterpret_to_uint (base_reg_var); + var_offset = convert_to_pointer (ptr_type_node, as_uint); gcc_assert (var_offset != NULL_TREE); } @@ -527,7 +521,10 @@ brig_code_entry_handler::build_tree_operand_from_brig = ((const uint32_t *) &operand_entries->bytes)[operand_index]; const BrigBase *operand_data = m_parent.get_brig_operand_entry (operand_offset); - return build_tree_operand (*brig_inst, *operand_data, operand_type); + + bool inputp = !gccbrig_hsa_opcode_op_output_p (brig_inst->opcode, + operand_index); + return build_tree_operand (*brig_inst, *operand_data, operand_type, inputp); } /* Builds a single (scalar) constant initialized element of type @@ -991,8 +988,8 @@ brig_code_entry_handler::expand_or_call_builtin (BrigOpcode16_t brig_opcode, call_operands.resize (4, NULL_TREE); operand_types.resize (4, NULL_TREE); for (size_t i = 0; i < operand_count; ++i) - call_operands.at (i) = build_reinterpret_cast (operand_types.at (i), - call_operands.at (i)); + call_operands.at (i) = build_resize_convert_view (operand_types.at (i), + call_operands.at (i)); tree fnptr = build_fold_addr_expr (built_in); return build_call_array (TREE_TYPE (TREE_TYPE (built_in)), fnptr, @@ -1141,6 +1138,28 @@ brig_code_entry_handler::build_h2f_conversion (tree source) tree_stl_vec brig_code_entry_handler::build_operands (const BrigInstBase &brig_inst) { + return build_or_analyze_operands (brig_inst, false); +} + +void +brig_code_entry_handler::analyze_operands (const BrigInstBase &brig_inst) +{ + build_or_analyze_operands (brig_inst, true); +} + +/* Implements both the build_operands () and analyze_operands () call + so changes go in tandem. Performs build_operands () when ANALYZE + is false. Otherwise, only analyze operands and return empty + list. + + If analyzing record each HSA register operand with the + corresponding resolved operand tree type to + brig_to_generic::m_fn_regs_use_index. */ + +tree_stl_vec +brig_code_entry_handler:: +build_or_analyze_operands (const BrigInstBase &brig_inst, bool analyze) +{ /* Flush to zero. */ bool ftz = false; const BrigBase *base = &brig_inst.base; @@ -1308,9 +1327,19 @@ brig_code_entry_handler::build_operands (const BrigInstBase &brig_inst) /* Treat the operands as the storage type at this point. */ operand_type = half_storage_type; + if (analyze) + { + if (operand_data->kind == BRIG_KIND_OPERAND_REGISTER) + { + const BrigOperandRegister &brig_reg + = (const BrigOperandRegister &) *operand_data; + m_parent.add_reg_used_as_type (brig_reg, operand_type); + } + continue; + } + tree operand = build_tree_operand (brig_inst, *operand_data, operand_type, !is_output); - gcc_assert (operand); /* Cast/convert the inputs to correct types as expected by the GENERIC @@ -1319,36 +1348,17 @@ brig_code_entry_handler::build_operands (const BrigInstBase &brig_inst) { if (half_to_float) operand = build_h2f_conversion - (build_reinterpret_cast (half_storage_type, operand)); + (build_resize_convert_view (half_storage_type, operand)); else if (TREE_CODE (operand) != LABEL_DECL && TREE_CODE (operand) != TREE_VEC && operand_data->kind != BRIG_KIND_OPERAND_ADDRESS - && !VECTOR_TYPE_P (TREE_TYPE (operand))) + && operand_data->kind != BRIG_KIND_OPERAND_OPERAND_LIST) { - size_t reg_width = int_size_in_bytes (TREE_TYPE (operand)); - size_t instr_width = int_size_in_bytes (operand_type); - if (reg_width == instr_width) - operand = build_reinterpret_cast (operand_type, operand); - else if (reg_width > instr_width) - { - /* Clip the operand because the instruction's bitwidth - is smaller than the HSAIL reg width. */ - if (INTEGRAL_TYPE_P (operand_type)) - operand - = convert_to_integer (signed_or_unsigned_type_for - (TYPE_UNSIGNED (operand_type), - operand_type), operand); - else - operand = build_reinterpret_cast (operand_type, operand); - } - else if (reg_width < instr_width) - /* At least shift amount operands can be read from smaller - registers than the data operands. */ - operand = convert (operand_type, operand); + operand = build_resize_convert_view (operand_type, operand); } else if (brig_inst.opcode == BRIG_OPCODE_SHUFFLE) /* Force the operand type to be treated as the raw type. */ - operand = build_reinterpret_cast (operand_type, operand); + operand = build_resize_convert_view (operand_type, operand); if (brig_inst.opcode == BRIG_OPCODE_CMOV && i == 1) { @@ -1379,8 +1389,9 @@ tree brig_code_entry_handler::build_output_assignment (const BrigInstBase &brig_inst, tree output, tree inst_expr) { - /* The destination type might be different from the output register - variable type (which is always an unsigned integer type). */ + /* The result/input type might be different from the output register + variable type (can be any type; see get_m_var_declfor_reg @ + brig-function.cc). */ tree output_type = TREE_TYPE (output); tree input_type = TREE_TYPE (inst_expr); bool is_fp16 = (brig_inst.type & BRIG_TYPE_BASE_MASK) == BRIG_TYPE_F16 @@ -1421,12 +1432,12 @@ brig_code_entry_handler::build_output_assignment (const BrigInstBase &brig_inst, { inst_expr = add_temp_var ("before_f2h", inst_expr); tree f2h_output = build_f2h_conversion (inst_expr); - tree conv_int = convert_to_integer (output_type, f2h_output); - tree assign = build2 (MODIFY_EXPR, output_type, output, conv_int); + tree conv = build_resize_convert_view (output_type, f2h_output); + tree assign = build2 (MODIFY_EXPR, output_type, output, conv); m_parent.m_cf->append_statement (assign); return assign; } - else if (VECTOR_TYPE_P (TREE_TYPE (output))) + else if (VECTOR_TYPE_P (output_type) && TREE_CODE (output) == CONSTRUCTOR) { /* Expand/unpack the input value to the given vector elements. */ size_t i; @@ -1454,22 +1465,21 @@ brig_code_entry_handler::build_output_assignment (const BrigInstBase &brig_inst, bitwidths. */ size_t src_width = int_size_in_bytes (input_type); size_t dst_width = int_size_in_bytes (output_type); - - if (src_width == dst_width) - { - /* A simple bitcast should do. */ - tree bitcast = build_reinterpret_cast (output_type, inst_expr); - tree assign = build2 (MODIFY_EXPR, output_type, output, bitcast); - m_parent.m_cf->append_statement (assign); - return assign; - } - else + tree input = inst_expr; + /* Integer results are extended to the target register width, using + the same sign as the inst_expr. */ + if (INTEGRAL_TYPE_P (TREE_TYPE (input)) && src_width != dst_width) { - tree conv_int = convert_to_integer (output_type, inst_expr); - tree assign = build2 (MODIFY_EXPR, output_type, output, conv_int); - m_parent.m_cf->append_statement (assign); - return assign; + bool unsigned_p = TYPE_UNSIGNED (TREE_TYPE (input)); + tree resized_type + = build_nonstandard_integer_type (dst_width * BITS_PER_UNIT, + unsigned_p); + input = convert_to_integer (resized_type, input); } + input = build_resize_convert_view (output_type, input); + tree assign = build2 (MODIFY_EXPR, output_type, output, input); + m_parent.m_cf->append_statement (assign); + return assign; } return NULL_TREE; } @@ -1672,7 +1682,7 @@ float_to_half::visit_element (brig_code_entry_handler &caller, tree operand) { tree built_in = builtin_decl_explicit (BUILT_IN_HSAIL_F32_TO_F16); - tree casted_operand = build_reinterpret_cast (uint32_type_node, operand); + tree casted_operand = build_resize_convert_view (uint32_type_node, operand); tree call = call_builtin (built_in, 1, uint16_type_node, uint32_type_node, casted_operand); @@ -1701,7 +1711,7 @@ half_to_float::visit_element (brig_code_entry_handler &caller, tree operand) tree output = create_tmp_var (const_fp32_type, "fp32out"); tree casted_result - = build_reinterpret_cast (brig_to_generic::s_fp32_type, call); + = build_resize_convert_view (brig_to_generic::s_fp32_type, call); tree assign = build2 (MODIFY_EXPR, TREE_TYPE (output), output, casted_result); diff --git a/gcc/brig/brigfrontend/brig-code-entry-handler.h b/gcc/brig/brigfrontend/brig-code-entry-handler.h index 3f8c028..ef9668a 100644 --- a/gcc/brig/brigfrontend/brig-code-entry-handler.h +++ b/gcc/brig/brigfrontend/brig-code-entry-handler.h @@ -89,6 +89,7 @@ protected: tree build_h2f_conversion (tree source); tree_stl_vec build_operands (const BrigInstBase &brig_inst); + void analyze_operands (const BrigInstBase &brig_inst); tree build_output_assignment (const BrigInstBase &brig_inst, tree output, tree inst_expr); @@ -102,6 +103,11 @@ protected: /* HSAIL-specific builtin functions not yet integrated to gcc. */ static builtin_map s_custom_builtins; + +private: + + tree_stl_vec build_or_analyze_operands (const BrigInstBase &brig_inst, + bool analyze); }; /* Implement the Visitor software pattern for performing various actions on diff --git a/gcc/brig/brigfrontend/brig-copy-move-inst-handler.cc b/gcc/brig/brigfrontend/brig-copy-move-inst-handler.cc index f853dc3..ce84599 100644 --- a/gcc/brig/brigfrontend/brig-copy-move-inst-handler.cc +++ b/gcc/brig/brigfrontend/brig-copy-move-inst-handler.cc @@ -53,12 +53,12 @@ brig_copy_move_inst_handler::operator () (const BrigBase *base) tree input = build_tree_operand_from_brig (brig_inst, source_type, 1); tree output = build_tree_operand_from_brig (brig_inst, dest_type, 0); + if (brig_inst->opcode == BRIG_OPCODE_COMBINE) { /* For combine, a simple reinterpret cast from the array constructor works. */ - - tree casted = build_reinterpret_cast (dest_type, input); + tree casted = build_resize_convert_view (TREE_TYPE (output), input); tree assign = build2 (MODIFY_EXPR, TREE_TYPE (output), output, casted); m_parent.m_cf->append_statement (assign); } diff --git a/gcc/brig/brigfrontend/brig-cvt-inst-handler.cc b/gcc/brig/brigfrontend/brig-cvt-inst-handler.cc index 0297f8b..18850a1 100644 --- a/gcc/brig/brigfrontend/brig-cvt-inst-handler.cc +++ b/gcc/brig/brigfrontend/brig-cvt-inst-handler.cc @@ -116,7 +116,7 @@ brig_cvt_inst_handler::generate (const BrigBase *base) /* Flush the float operand to zero if indicated with 'ftz'. */ if (FTZ && SCALAR_FLOAT_TYPE_P (src_type)) { - tree casted_input = build_reinterpret_cast (src_type, input); + tree casted_input = build_resize_convert_view (src_type, input); input = flush_to_zero (src_is_fp16) (*this, casted_input); } @@ -158,7 +158,8 @@ brig_cvt_inst_handler::generate (const BrigBase *base) } else gcc_unreachable (); - tree casted_input = build_reinterpret_cast (unsigned_int_type, input); + tree casted_input = build_resize_convert_view (unsigned_int_type, + input); tree masked_input = build2 (BIT_AND_EXPR, unsigned_int_type, casted_input, and_mask); conversion_result @@ -172,7 +173,7 @@ brig_cvt_inst_handler::generate (const BrigBase *base) } else if (dest_is_fp16) { - tree casted_input = build_reinterpret_cast (src_type, input); + tree casted_input = build_resize_convert_view (src_type, input); conversion_result = convert_to_real (brig_to_generic::s_fp32_type, casted_input); if (FTZ) @@ -181,7 +182,7 @@ brig_cvt_inst_handler::generate (const BrigBase *base) } else if (SCALAR_FLOAT_TYPE_P (dest_type)) { - tree casted_input = build_reinterpret_cast (src_type, input); + tree casted_input = build_resize_convert_view (src_type, input); conversion_result = convert_to_real (dest_type, casted_input); } else if (INTEGRAL_TYPE_P (dest_type) && INTEGRAL_TYPE_P (src_type)) @@ -214,46 +215,47 @@ brig_cvt_inst_handler::generate (const BrigBase *base) #include "brig-builtins.def" gcc_unreachable (); - tree casted_input = build_reinterpret_cast (src_type, input); + tree casted_input = build_resize_convert_view (src_type, input); conversion_result = call_builtin (builtin, 1, dest_type, src_type, casted_input); } else { - tree casted_input = build_reinterpret_cast (src_type, input); + tree casted_input = build_resize_convert_view (src_type, input); - /* Perform the int to float conversion. */ + /* Perform the float to int conversion. */ conversion_result = convert_to_integer (dest_type, casted_input); } - /* The converted result is finally extended to the target register - width, using the same sign as the destination. */ - conversion_result - = convert_to_integer (TREE_TYPE (output), conversion_result); } else { /* Just use CONVERT_EXPR and hope for the best. */ - tree casted_input = build_reinterpret_cast (dest_type, input); + tree casted_input = build_resize_convert_view (dest_type, input); conversion_result = build1 (CONVERT_EXPR, dest_type, casted_input); } size_t dst_reg_size = int_size_in_bytes (TREE_TYPE (output)); - tree assign = NULL_TREE; /* The output register can be of different type&size than the - conversion output size. Cast it to the register variable type. */ - if (dst_reg_size > conv_dst_size) - { - tree casted_output - = build1 (CONVERT_EXPR, TREE_TYPE (output), conversion_result); - assign = build2 (MODIFY_EXPR, TREE_TYPE (output), output, casted_output); - } - else + conversion output size. Only need to handle signed integers, rest + is handled by reinterpret_cast. */ + tree casted_output = conversion_result; + if (dst_reg_size > conv_dst_size && + INTEGRAL_TYPE_P (TREE_TYPE (casted_output))) { - tree casted_output - = build_reinterpret_cast (TREE_TYPE (output), conversion_result); - assign = build2 (MODIFY_EXPR, TREE_TYPE (output), output, casted_output); + gcc_assert (!VECTOR_TYPE_P (casted_output)); + + bool unsignedp = TYPE_UNSIGNED (TREE_TYPE (casted_output)); + tree resized_int_type + = build_nonstandard_integer_type (dst_reg_size * BITS_PER_UNIT, + unsignedp); + casted_output = build1 (CONVERT_EXPR, resized_int_type, casted_output); } + + casted_output + = build_resize_convert_view (TREE_TYPE (output), casted_output); + tree assign = build2 (MODIFY_EXPR, TREE_TYPE (output), output, casted_output); + m_parent.m_cf->append_statement (assign); return base->byteCount; diff --git a/gcc/brig/brigfrontend/brig-function.cc b/gcc/brig/brigfrontend/brig-function.cc index f3c3895..7f627de 100644 --- a/gcc/brig/brigfrontend/brig-function.cc +++ b/gcc/brig/brigfrontend/brig-function.cc @@ -272,32 +272,59 @@ brig_function::add_local_variable (std::string name, tree type) return variable; } +/* Return tree type for an HSA register. + + The tree type can be anything (scalar, vector, int, float, etc.) + but its size is guaranteed to match the HSA register size. + + HSA registers are untyped but we select a type based on their use + to reduce (sometimes unoptimizable) VIEW_CONVERT_EXPR nodes (seems + to occur when use or def reaches over current BB). */ + +tree +brig_function::get_tree_type_for_hsa_reg (const BrigOperandRegister *reg) const +{ + size_t reg_size = gccbrig_reg_size (reg); + + /* The default type. */ + tree type = build_nonstandard_integer_type (reg_size, true); + + if (m_parent->m_fn_regs_use_index.count (m_name) == 0) + return type; + + const regs_use_index &index = m_parent->m_fn_regs_use_index[m_name]; + size_t reg_id = gccbrig_hsa_reg_id (*reg); + if (index.count (reg_id) == 0) + return type; + + const reg_use_info &info = index.find (reg_id)->second; + std::vector<std::pair<tree, size_t> >::const_iterator it + = info.m_type_refs.begin (); + std::vector<std::pair<tree, size_t> >::const_iterator it_end + = info.m_type_refs.end (); + size_t max_refs_as_type_count = 0; + for (; it != it_end; it++) + { + size_t type_bit_size = int_size_in_bytes (it->first) * BITS_PER_UNIT; + if (type_bit_size != reg_size) continue; + if (it->second > max_refs_as_type_count) + { + type = it->first; + max_refs_as_type_count = it->second; + } + } + + return type; +} + /* Returns a DECL_VAR for the given HSAIL operand register. If it has not been created yet for the function being generated, - creates it as an unsigned int variable. */ + creates it as a type determined by analysis phase. */ tree brig_function::get_m_var_declfor_reg (const BrigOperandRegister *reg) { - size_t offset = reg->regNum; - switch (reg->regKind) - { - case BRIG_REGISTER_KIND_QUAD: - offset - += BRIG_2_TREE_HSAIL_D_REG_COUNT + BRIG_2_TREE_HSAIL_S_REG_COUNT + - BRIG_2_TREE_HSAIL_C_REG_COUNT; - break; - case BRIG_REGISTER_KIND_DOUBLE: - offset += BRIG_2_TREE_HSAIL_S_REG_COUNT + BRIG_2_TREE_HSAIL_C_REG_COUNT; - break; - case BRIG_REGISTER_KIND_SINGLE: - offset += BRIG_2_TREE_HSAIL_C_REG_COUNT; - case BRIG_REGISTER_KIND_CONTROL: - break; - default: - gcc_unreachable (); - break; - } + size_t offset = gccbrig_hsa_reg_id (*reg); reg_decl_index_entry *regEntry = m_regs[offset]; if (regEntry == NULL) @@ -305,7 +332,7 @@ brig_function::get_m_var_declfor_reg (const BrigOperandRegister *reg) size_t reg_size = gccbrig_reg_size (reg); tree type; if (reg_size > 1) - type = build_nonstandard_integer_type (reg_size, true); + type = get_tree_type_for_hsa_reg (reg); else type = boolean_type_node; diff --git a/gcc/brig/brigfrontend/brig-function.h b/gcc/brig/brigfrontend/brig-function.h index 2a85f5e..3ed58cd 100644 --- a/gcc/brig/brigfrontend/brig-function.h +++ b/gcc/brig/brigfrontend/brig-function.h @@ -45,15 +45,6 @@ typedef std::map<std::string, tree> label_index; typedef std::map<const BrigDirectiveVariable *, tree> variable_index; typedef std::vector<tree> tree_stl_vec; -/* There are 128 c regs and 2048 s/d/q regs each in the HSAIL. */ -#define BRIG_2_TREE_HSAIL_C_REG_COUNT (128) -#define BRIG_2_TREE_HSAIL_S_REG_COUNT (2048) -#define BRIG_2_TREE_HSAIL_D_REG_COUNT (2048) -#define BRIG_2_TREE_HSAIL_Q_REG_COUNT (2048) -#define BRIG_2_TREE_HSAIL_TOTAL_REG_COUNT \ - (BRIG_2_TREE_HSAIL_C_REG_COUNT + BRIG_2_TREE_HSAIL_S_REG_COUNT \ - + BRIG_2_TREE_HSAIL_D_REG_COUNT + BRIG_2_TREE_HSAIL_Q_REG_COUNT) - /* Holds data for the currently built GENERIC function. */ class brig_function @@ -222,6 +213,9 @@ public: phsa_descriptor m_descriptor; private: + + tree get_tree_type_for_hsa_reg (const BrigOperandRegister *reg) const; + /* Bookkeeping for the different HSA registers and their tree declarations for the currently generated function. */ reg_decl_index_entry *m_regs[BRIG_2_TREE_HSAIL_TOTAL_REG_COUNT]; diff --git a/gcc/brig/brigfrontend/brig-mem-inst-handler.cc b/gcc/brig/brigfrontend/brig-mem-inst-handler.cc index 2b245a1..fea3059 100644 --- a/gcc/brig/brigfrontend/brig-mem-inst-handler.cc +++ b/gcc/brig/brigfrontend/brig-mem-inst-handler.cc @@ -41,7 +41,11 @@ brig_mem_inst_handler::build_mem_access (const BrigInstBase *brig_inst, tree instr_type = gccbrig_tree_type_for_hsa_type (brig_inst->type); - if (VECTOR_TYPE_P (TREE_TYPE (data))) + /* In case of {ld,st}_v{2,4}. Note: since 'register' variables may + be any type, even a vector type, we distinguish the registers + from operand lists by checking for constructor nodes (which + operand lists are represented as). */ + if (VECTOR_TYPE_P (TREE_TYPE (data)) && TREE_CODE (data) == CONSTRUCTOR) instr_type = TREE_TYPE (data); tree ptype = build_pointer_type (instr_type); @@ -151,14 +155,7 @@ brig_mem_inst_handler::operator () (const BrigBase *base) address_base, ptr_offset); if (is_store && TREE_TYPE (data) != instr_type) - { - if (int_size_in_bytes (TREE_TYPE (data)) - == int_size_in_bytes (instr_type) - && !INTEGRAL_TYPE_P (instr_type)) - data = build1 (VIEW_CONVERT_EXPR, instr_type, data); - else - data = convert (instr_type, data); - } + data = build_resize_convert_view (instr_type, data); build_mem_access (brig_inst, address, data); diff --git a/gcc/brig/brigfrontend/brig-to-generic.cc b/gcc/brig/brigfrontend/brig-to-generic.cc index 41246ba..9077e76 100644 --- a/gcc/brig/brigfrontend/brig-to-generic.cc +++ b/gcc/brig/brigfrontend/brig-to-generic.cc @@ -124,6 +124,24 @@ public: } }; +class brig_reg_use_analyzer : public brig_code_entry_handler +{ +public: + brig_reg_use_analyzer (brig_to_generic &parent) + : brig_code_entry_handler (parent) + { + } + + size_t + operator () (const BrigBase *base) + { + const BrigInstBase *brig_inst = (const BrigInstBase *) base; + analyze_operands (*brig_inst); + return base->byteCount; + } + +}; + /* Helper struct for pairing a BrigKind and a BrigCodeEntryHandler that should handle its data. */ @@ -210,6 +228,7 @@ brig_to_generic::analyze (const char *brig_blob) brig_directive_variable_handler var_handler (*this); brig_directive_fbarrier_handler fbar_handler (*this); brig_directive_function_handler func_handler (*this); + brig_reg_use_analyzer reg_use_analyzer (*this); /* Need this for grabbing the module names for mangling the group variable names. */ @@ -219,7 +238,21 @@ brig_to_generic::analyze (const char *brig_blob) const BrigSectionHeader *csection_header = (const BrigSectionHeader *) m_code; code_entry_handler_info handlers[] - = {{BRIG_KIND_DIRECTIVE_VARIABLE, &var_handler}, + = {{BRIG_KIND_INST_BASIC, ®_use_analyzer}, + {BRIG_KIND_INST_MOD, ®_use_analyzer}, + {BRIG_KIND_INST_CMP, ®_use_analyzer}, + {BRIG_KIND_INST_MEM, ®_use_analyzer}, + {BRIG_KIND_INST_CVT, ®_use_analyzer}, + {BRIG_KIND_INST_SEG_CVT, ®_use_analyzer}, + {BRIG_KIND_INST_SEG, ®_use_analyzer}, + {BRIG_KIND_INST_ADDR, ®_use_analyzer}, + {BRIG_KIND_INST_SOURCE_TYPE, ®_use_analyzer}, + {BRIG_KIND_INST_ATOMIC, ®_use_analyzer}, + {BRIG_KIND_INST_SIGNAL, ®_use_analyzer}, + {BRIG_KIND_INST_BR, ®_use_analyzer}, + {BRIG_KIND_INST_LANE, ®_use_analyzer}, + {BRIG_KIND_INST_QUEUE, ®_use_analyzer}, + {BRIG_KIND_DIRECTIVE_VARIABLE, &var_handler}, {BRIG_KIND_DIRECTIVE_FBARRIER, &fbar_handler}, {BRIG_KIND_DIRECTIVE_KERNEL, &func_handler}, {BRIG_KIND_DIRECTIVE_MODULE, &module_handler}, @@ -555,10 +588,14 @@ build_stmt (enum tree_code code, ...) than the created reg var type in order to select correct instruction type later on. This function creates the necessary reinterpret type cast from a source variable to the destination type. In case no cast is needed to - the same type, SOURCE is returned directly. */ + the same type, SOURCE is returned directly. + + In case of mismatched type sizes, casting: + - to narrower type the upper bits are clipped and + - to wider type the source value is zero extended. */ tree -build_reinterpret_cast (tree destination_type, tree source) +build_resize_convert_view (tree destination_type, tree source) { gcc_assert (source && destination_type && TREE_TYPE (source) != NULL_TREE @@ -578,23 +615,30 @@ build_reinterpret_cast (tree destination_type, tree source) size_t dst_size = int_size_in_bytes (destination_type); if (src_size == dst_size) return build1 (VIEW_CONVERT_EXPR, destination_type, source); - else if (src_size < dst_size) + else /* src_size != dst_size */ { /* The src_size can be smaller at least with f16 scalars which are stored to 32b register variables. First convert to an equivalent size unsigned type, then extend to an unsigned type of the target width, after which VIEW_CONVERT_EXPR can be used to force to the target type. */ - tree unsigned_temp = build1 (VIEW_CONVERT_EXPR, - get_unsigned_int_type (source_type), - source); - return build1 (VIEW_CONVERT_EXPR, destination_type, - convert (get_unsigned_int_type (destination_type), - unsigned_temp)); + tree resized = convert (get_scalar_unsigned_int_type (destination_type), + build_reinterpret_to_uint (source)); + gcc_assert ((size_t)int_size_in_bytes (TREE_TYPE (resized)) == dst_size); + return build_resize_convert_view (destination_type, resized); } - else - gcc_unreachable (); - return NULL_TREE; +} + +/* Reinterprets SOURCE as a scalar unsigned int with the size + corresponding to the orignal. */ + +tree build_reinterpret_to_uint (tree source) +{ + tree src_type = TREE_TYPE (source); + if (INTEGRAL_TYPE_P (src_type) && TYPE_UNSIGNED (src_type)) + return source; + tree dest_type = get_scalar_unsigned_int_type (src_type); + return build1 (VIEW_CONVERT_EXPR, dest_type, source); } /* Returns the finished brig_function for the given generic FUNC_DECL, @@ -775,7 +819,7 @@ call_builtin (tree pdecl, int nargs, tree rettype, ...) { types[i] = va_arg (ap, tree); tree arg = va_arg (ap, tree); - args[i] = build_reinterpret_cast (types[i], arg); + args[i] = build_resize_convert_view (types[i], arg); if (types[i] == error_mark_node || args[i] == error_mark_node) { delete[] types; @@ -879,6 +923,16 @@ get_unsigned_int_type (tree original_type) true); } +/* Returns a type with unsigned int corresponding to the size + ORIGINAL_TYPE. */ + +tree +get_scalar_unsigned_int_type (tree original_type) +{ + return build_nonstandard_integer_type (int_size_in_bytes (original_type) + * BITS_PER_UNIT, true); +} + void dump_function (FILE *dump_file, brig_function *f) { @@ -893,3 +947,22 @@ dump_function (FILE *dump_file, brig_function *f) fprintf (dump_file, "\n"); } } + +/* Records use of the BRIG_REG as a TYPE in the current function. */ + +void +brig_to_generic::add_reg_used_as_type (const BrigOperandRegister &brig_reg, + tree type) +{ + gcc_assert (m_cf); + reg_use_info &info + = m_fn_regs_use_index[m_cf->m_name][gccbrig_hsa_reg_id (brig_reg)]; + + if (info.m_type_refs_lookup.count (type)) + info.m_type_refs[info.m_type_refs_lookup[type]].second++; + else + { + info.m_type_refs.push_back (std::make_pair (type, 1)); + info.m_type_refs_lookup[type] = info.m_type_refs.size () - 1; + } +} diff --git a/gcc/brig/brigfrontend/brig-to-generic.h b/gcc/brig/brigfrontend/brig-to-generic.h index 0070894..59eb5b4 100644 --- a/gcc/brig/brigfrontend/brig-to-generic.h +++ b/gcc/brig/brigfrontend/brig-to-generic.h @@ -106,6 +106,9 @@ public: void add_group_variable (const std::string &name, size_t size, size_t alignment, bool function_scope); + void add_reg_used_as_type (const BrigOperandRegister &brig_reg, + tree operand_type); + static tree s_fp16_type; static tree s_fp32_type; static tree s_fp64_type; @@ -129,6 +132,9 @@ public: /* Accumulates the total group segment usage. */ size_t m_total_group_segment_usage; + /* Statistics about register uses per function. */ + std::map<std::string, regs_use_index> m_fn_regs_use_index; + private: void find_brig_sections (); @@ -212,12 +218,15 @@ protected: tree call_builtin (tree pdecl, int nargs, tree rettype, ...); -tree build_reinterpret_cast (tree destination_type, tree source); +tree build_resize_convert_view (tree destination_type, tree source); +tree build_reinterpret_to_uint (tree source); tree build_stmt (enum tree_code code, ...); tree get_unsigned_int_type (tree type); +tree get_scalar_unsigned_int_type (tree type); + void dump_function (FILE *dump_file, brig_function *f); #endif diff --git a/gcc/brig/brigfrontend/brig-util.cc b/gcc/brig/brigfrontend/brig-util.cc index a8684de..ca93247 100644 --- a/gcc/brig/brigfrontend/brig-util.cc +++ b/gcc/brig/brigfrontend/brig-util.cc @@ -26,6 +26,7 @@ along with GCC; see the file COPYING3. If not see #include "brig-util.h" #include "errors.h" #include "diagnostic-core.h" +#include "print-tree.h" bool group_variable_offset_index::has_variable (const std::string &name) const @@ -473,3 +474,91 @@ gccbrig_tree_type_for_hsa_type (BrigType16_t brig_type) /* Drop const qualifiers. */ return tree_type; } + +/* Calculates numeric identifier for the HSA register REG. + + Returned value is bound to [0, BRIG_2_TREE_HSAIL_TOTAL_REG_COUNT]. */ + +size_t +gccbrig_hsa_reg_id (const BrigOperandRegister ®) +{ + size_t offset = reg.regNum; + switch (reg.regKind) + { + case BRIG_REGISTER_KIND_QUAD: + offset + += BRIG_2_TREE_HSAIL_D_REG_COUNT + BRIG_2_TREE_HSAIL_S_REG_COUNT + + BRIG_2_TREE_HSAIL_C_REG_COUNT; + break; + case BRIG_REGISTER_KIND_DOUBLE: + offset += BRIG_2_TREE_HSAIL_S_REG_COUNT + BRIG_2_TREE_HSAIL_C_REG_COUNT; + break; + case BRIG_REGISTER_KIND_SINGLE: + offset += BRIG_2_TREE_HSAIL_C_REG_COUNT; + case BRIG_REGISTER_KIND_CONTROL: + break; + default: + gcc_unreachable (); + break; + } + return offset; +} + +std::string +gccbrig_hsa_reg_name_from_id (size_t reg_hash) +{ + char reg_name[32]; + if (reg_hash < BRIG_2_TREE_HSAIL_C_REG_COUNT) + { + sprintf (reg_name, "$c%lu", reg_hash); + return reg_name; + } + + reg_hash -= BRIG_2_TREE_HSAIL_C_REG_COUNT; + if (reg_hash < BRIG_2_TREE_HSAIL_S_REG_COUNT) + { + sprintf (reg_name, "$s%lu", reg_hash); + return reg_name; + } + + reg_hash -= BRIG_2_TREE_HSAIL_S_REG_COUNT; + if (reg_hash < BRIG_2_TREE_HSAIL_D_REG_COUNT) + { + sprintf (reg_name, "$d%lu", reg_hash); + return reg_name; + } + + reg_hash -= BRIG_2_TREE_HSAIL_D_REG_COUNT; + if (reg_hash < BRIG_2_TREE_HSAIL_Q_REG_COUNT) + { + sprintf (reg_name, "$q%lu", reg_hash); + return reg_name; + } + + gcc_unreachable (); + return "$??"; +} + +/* Prints statistics of register usage to stdout. */ + +void +gccbrig_print_reg_use_info (FILE *dump, const regs_use_index &info) +{ + regs_use_index::const_iterator begin_it = info.begin (); + regs_use_index::const_iterator end_it = info.end (); + for (regs_use_index::const_iterator it = begin_it; it != end_it; it++) + { + std::string hsa_reg = gccbrig_hsa_reg_name_from_id (it->first); + printf ("%s:\n", hsa_reg.c_str ()); + const reg_use_info &info = it->second; + typedef std::vector<std::pair<tree, size_t> >::const_iterator reg_use_it; + reg_use_it begin_it2 = info.m_type_refs.begin (); + reg_use_it end_it2 = info.m_type_refs.end (); + for (reg_use_it it2 = begin_it2; it2 != end_it2; it2++) + { + fprintf (dump, "(%lu) ", it2->second); + print_node_brief (dump, "", it2->first, 0); + fprintf (dump, "\n"); + } + } +} diff --git a/gcc/brig/brigfrontend/brig-util.h b/gcc/brig/brigfrontend/brig-util.h index c90ff29..d47470f 100644 --- a/gcc/brig/brigfrontend/brig-util.h +++ b/gcc/brig/brigfrontend/brig-util.h @@ -23,6 +23,7 @@ along with GCC; see the file COPYING3. If not see #define GCC_BRIG_UTIL_H #include <map> +#include <vector> #include "config.h" #include "system.h" @@ -31,6 +32,15 @@ along with GCC; see the file COPYING3. If not see #include "opts.h" #include "tree.h" +/* There are 128 c regs and 2048 s/d/q regs each in the HSAIL. */ +#define BRIG_2_TREE_HSAIL_C_REG_COUNT (128) +#define BRIG_2_TREE_HSAIL_S_REG_COUNT (2048) +#define BRIG_2_TREE_HSAIL_D_REG_COUNT (2048) +#define BRIG_2_TREE_HSAIL_Q_REG_COUNT (2048) +#define BRIG_2_TREE_HSAIL_TOTAL_REG_COUNT \ + (BRIG_2_TREE_HSAIL_C_REG_COUNT + BRIG_2_TREE_HSAIL_S_REG_COUNT \ + + BRIG_2_TREE_HSAIL_D_REG_COUNT + BRIG_2_TREE_HSAIL_Q_REG_COUNT) + /* Helper class for keeping book of group variable offsets. */ class group_variable_offset_index @@ -76,4 +86,25 @@ bool gccbrig_might_be_host_defined_var_p (const BrigDirectiveVariable *brigVar); /* From hsa.h. */ bool hsa_type_packed_p (BrigType16_t type); +struct reg_use_info +{ + /* This vector keeps count of the times an HSAIL register is used as + a tree type in generic expressions. The count is used to select + type for 'register' variables to reduce emission of + VIEW_CONVERT_EXPR nodes. The data is kept in vector (insertion + order) for determinism, in a case there is a tie with the + counts. */ + std::vector<std::pair<tree, size_t> > m_type_refs; + /* Tree to index. Lookup for the above vector. */ + std::map<tree, size_t> m_type_refs_lookup; +}; + +/* key = hsa register entry generated by gccbrig_hsa_reg_id (). */ +typedef std::map<size_t, reg_use_info> regs_use_index; + +size_t gccbrig_hsa_reg_id (const BrigOperandRegister ®); +std::string gccbrig_hsa_reg_name_from_id (size_t reg_hash); + +void gccbrig_print_reg_use_info (FILE *dump, const regs_use_index &info); + #endif |