From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1611) id 1755A3858D20; Fri, 3 Feb 2023 12:30:22 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 1755A3858D20 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1675427422; bh=GHV5+RsyvxHlLeIneekPhIy1D7172SWDDDsRGYMwZNA=; h=From:To:Subject:Date:From; b=Q7uaNnmkTOR9Al69zsUFFYUW3WFvILpHfShexVN40cgjKDPyHzmhR8NnTp7wa4Jkx /aq6vE+cKP9RzNBNgOYJYJY81f95IqItoTlt72uwIQWuGFAHe0I/RsEgz0w5etQ+HD sjh4QKsKEyHLmJDXYxsga3JpeNz5zX67Rn+8QYQM= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Martin Jambor To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-5681] ipa: Avoid invalid gimple when IPA-CP and IPA-SRA disagree on types (108384) X-Act-Checkin: gcc X-Git-Author: Martin Jambor X-Git-Refname: refs/heads/master X-Git-Oldrev: 0b1ce70a813b98ef2893779d14ad6c90c5d06a71 X-Git-Newrev: e8109bd87766be88e83fe88a44433dae16358a02 Message-Id: <20230203123022.1755A3858D20@sourceware.org> Date: Fri, 3 Feb 2023 12:30:22 +0000 (GMT) List-Id: https://gcc.gnu.org/g:e8109bd87766be88e83fe88a44433dae16358a02 commit r13-5681-ge8109bd87766be88e83fe88a44433dae16358a02 Author: Martin Jambor Date: Fri Feb 3 13:28:24 2023 +0100 ipa: Avoid invalid gimple when IPA-CP and IPA-SRA disagree on types (108384) When the compiled program contains type mismatches between callers and callees when it comes to a parameter, IPA-CP can try to propagate one constant from callers while IPA-SRA may try to split a parameter expecting a value of a different size on the same offset. This then currently leads to creation of a VIEW_CONVERT_EXPR with mismatching type sizes of LHS and RHS which is correctly flagged by the GIMPLE verifier as invalid. It seems that the best course of action is to try and avoid the situation altogether and so this patch adds a check to IPA-SRA that peeks into the result of IPA-CP and when it sees a value on the same offset but with a mismatching size, it just decides to leave that particular parameter be. gcc/ChangeLog: 2023-02-02 Martin Jambor PR ipa/108384 * ipa-sra.cc (push_param_adjustments_for_index): Remove a size check when comparing to an IPA-CP value. (dump_list_of_param_indices): New function. (adjust_parameter_descriptions): Check for mismatching IPA-CP values. Dump removed candidates using dump_list_of_param_indices. * ipa-param-manipulation.cc (ipa_param_body_adjustments::modify_expression): Add assert checking sizes of a VIEW_CONVERT_EXPR will match. (ipa_param_body_adjustments::modify_assignment): Likewise. gcc/testsuite/ChangeLog: 2023-02-02 Martin Jambor PR ipa/108384 * gcc.dg/ipa/pr108384.c: New test. Diff: --- gcc/ipa-param-manipulation.cc | 4 +++ gcc/ipa-sra.cc | 66 ++++++++++++++++++++++++++----------- gcc/testsuite/gcc.dg/ipa/pr108384.c | 25 ++++++++++++++ 3 files changed, 76 insertions(+), 19 deletions(-) diff --git a/gcc/ipa-param-manipulation.cc b/gcc/ipa-param-manipulation.cc index 1de9ca2ceb8..42488ee09c3 100644 --- a/gcc/ipa-param-manipulation.cc +++ b/gcc/ipa-param-manipulation.cc @@ -1857,6 +1857,8 @@ ipa_param_body_adjustments::modify_expression (tree *expr_p, bool convert) if (convert && !useless_type_conversion_p (TREE_TYPE (expr), TREE_TYPE (repl))) { + gcc_checking_assert (tree_to_shwi (TYPE_SIZE (TREE_TYPE (expr))) + == tree_to_shwi (TYPE_SIZE (TREE_TYPE (repl)))); tree vce = build1 (VIEW_CONVERT_EXPR, TREE_TYPE (expr), repl); *expr_p = vce; } @@ -1900,6 +1902,8 @@ ipa_param_body_adjustments::modify_assignment (gimple *stmt, } else { + gcc_checking_assert (tree_to_shwi (TYPE_SIZE (TREE_TYPE (*lhs_p))) + == tree_to_shwi (TYPE_SIZE (TREE_TYPE (*rhs_p)))); tree new_rhs = fold_build1_loc (gimple_location (stmt), VIEW_CONVERT_EXPR, TREE_TYPE (*lhs_p), *rhs_p); diff --git a/gcc/ipa-sra.cc b/gcc/ipa-sra.cc index 81b75910db1..7a2b4dc8608 100644 --- a/gcc/ipa-sra.cc +++ b/gcc/ipa-sra.cc @@ -3989,9 +3989,7 @@ push_param_adjustments_for_index (isra_func_summary *ifs, unsigned base_index, { ipa_argagg_value_list avl (ipcp_ts); tree value = avl.get_value (base_index, pa->unit_offset); - if (value - && (tree_to_uhwi (TYPE_SIZE (TREE_TYPE (value))) / BITS_PER_UNIT - == pa->unit_size)) + if (value) { if (dump_file) fprintf (dump_file, " - omitting component at byte " @@ -4130,6 +4128,22 @@ process_isra_node_results (cgraph_node *node, callers.release (); } +/* If INDICES is not empty, dump a combination of NODE's dump_name and MSG + followed by the list of numbers in INDICES. */ + +static void +dump_list_of_param_indices (const cgraph_node *node, const char* msg, + const vec &indices) +{ + if (indices.is_empty ()) + return; + fprintf (dump_file, "The following parameters of %s %s:", node->dump_name (), + msg); + for (unsigned i : indices) + fprintf (dump_file, " %u", i); + fprintf (dump_file, "\n"); +} + /* Check which parameters of NODE described by IFS have survived until IPA-SRA and disable transformations for those which have not or which should not transformed because the associated debug counter reached its limit. Return @@ -4153,6 +4167,7 @@ adjust_parameter_descriptions (cgraph_node *node, isra_func_summary *ifs) check_surviving = true; cinfo->param_adjustments->get_surviving_params (&surviving_params); } + ipcp_transformation *ipcp_ts = ipcp_get_transformation_summary (node); auto_vec dump_dead_indices; auto_vec dump_bad_cond_indices; for (unsigned i = 0; i < len; i++) @@ -4202,27 +4217,40 @@ adjust_parameter_descriptions (cgraph_node *node, isra_func_summary *ifs) if (size_would_violate_limit_p (desc, desc->size_reached)) desc->split_candidate = false; } + + /* Avoid ICEs on size-mismatched VIEW_CONVERT_EXPRs when callers and + callees don't agree on types in aggregates and we try to do both + IPA-CP and IPA-SRA. */ + if (ipcp_ts && desc->split_candidate) + { + ipa_argagg_value_list avl (ipcp_ts); + for (const param_access *pa : desc->accesses) + { + if (!pa->certain) + continue; + tree value = avl.get_value (i, pa->unit_offset); + if (value + && ((tree_to_uhwi (TYPE_SIZE (TREE_TYPE (value))) + / BITS_PER_UNIT) + != pa->unit_size)) + { + desc->split_candidate = false; + if (dump_file && (dump_flags & TDF_DETAILS)) + dump_dead_indices.safe_push (i); + break; + } + } + } + if (desc->locally_unused || desc->split_candidate) ret = false; } } - if (!dump_dead_indices.is_empty ()) - { - fprintf (dump_file, "The following parameters of %s are dead on arrival:", - node->dump_name ()); - for (unsigned i : dump_dead_indices) - fprintf (dump_file, " %u", i); - fprintf (dump_file, "\n"); - } - if (!dump_bad_cond_indices.is_empty ()) - { - fprintf (dump_file, "The following parameters of %s are not safe to " - "derefernce in all callers:", node->dump_name ()); - for (unsigned i : dump_bad_cond_indices) - fprintf (dump_file, " %u", i); - fprintf (dump_file, "\n"); - } + dump_list_of_param_indices (node, "are dead on arrival or have a type " + "mismatch with IPA-CP", dump_dead_indices); + dump_list_of_param_indices (node, "are not safe to derefernce in all callers", + dump_bad_cond_indices); return ret; } diff --git a/gcc/testsuite/gcc.dg/ipa/pr108384.c b/gcc/testsuite/gcc.dg/ipa/pr108384.c new file mode 100644 index 00000000000..2b714aa78b1 --- /dev/null +++ b/gcc/testsuite/gcc.dg/ipa/pr108384.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-O3" } */ + +struct S0 { + int f0; + short f1; + unsigned f2 : 7; + short f3; +} func_2_l_27; +int *g_389; +int safe_sub_func_int16_t_s_s(void); +void safe_lshift_func_uint8_t_u_s(int); +void func_23(struct S0 p_24, struct S0 p_25) { + int *l_1051 = g_389; + if (safe_sub_func_int16_t_s_s()) + for (;;) + safe_lshift_func_uint8_t_u_s(p_24.f1); + *l_1051 = p_25.f0; +} +void func_2(void) { + struct S0 l_26[2]; + l_26[1].f0 = 4; + ((long long*)&l_26)[2] = 25770065925; + func_23(l_26[1], func_2_l_27); +}