From: Eric Botcazou <ebotca...@adacore.com>
It comes from an incomplete optimization performed by LTO that is caused by
an obsolete transformation done in Gigi, which is redundant with the common
uniquization of constant CONSTRUCTORs now performed during gimplification.
gcc/ada/
* gcc-interface/trans.cc (gnat_gimplify_expr) <CALL_EXPR>: Delete.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/gcc-interface/trans.cc | 24 ------------------------
1 file changed, 24 deletions(-)
diff --git a/gcc/ada/gcc-interface/trans.cc b/gcc/ada/gcc-interface/trans.cc
index 89f0a07c824..c7d91628f80 100644
--- a/gcc/ada/gcc-interface/trans.cc
+++ b/gcc/ada/gcc-interface/trans.cc
@@ -8950,30 +8950,6 @@ gnat_gimplify_expr (tree *expr_p, gimple_seq *pre_p,
}
break;
- case CALL_EXPR:
- /* If we are passing a constant fat pointer CONSTRUCTOR, make sure it is
- put into static memory; this performs a restricted version of constant
- propagation on fat pointers in calls. But do not do it for strings to
- avoid blocking concatenation in the caller when it is inlined. */
- for (int i = 0; i < call_expr_nargs (expr); i++)
- {
- tree arg = CALL_EXPR_ARG (expr, i);
-
- if (TREE_CODE (arg) == CONSTRUCTOR
- && TREE_CONSTANT (arg)
- && TYPE_IS_FAT_POINTER_P (TREE_TYPE (arg)))
- {
- tree t = CONSTRUCTOR_ELT (arg, 0)->value;
- if (TREE_CODE (t) == NOP_EXPR)
- t = TREE_OPERAND (t, 0);
- if (TREE_CODE (t) == ADDR_EXPR)
- t = TREE_OPERAND (t, 0);
- if (TREE_CODE (t) != STRING_CST)
- CALL_EXPR_ARG (expr, i) = tree_output_constant_def (arg);
- }
- }
- break;
-
case DECL_EXPR:
op = DECL_EXPR_DECL (expr);
--
2.42.0
