aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorEric Botcazou <ebotcazou@adacore.com>2018-05-31 10:47:24 +0000
committerPierre-Marie de Rodat <pmderodat@gcc.gnu.org>2018-05-31 10:47:24 +0000
commitd9898483059a497f1f632ab688bcef729e6cb6e0 (patch)
treef3cff6de775ea224f88f54477e649666c73ea733 /gcc
parent0562ed3104a26738bda3828e2cbe7e4711e9e666 (diff)
downloadgcc-d9898483059a497f1f632ab688bcef729e6cb6e0.zip
gcc-d9898483059a497f1f632ab688bcef729e6cb6e0.tar.gz
gcc-d9898483059a497f1f632ab688bcef729e6cb6e0.tar.bz2
[Ada] Remove obsolete code in trans.c
2018-05-31 Eric Botcazou <ebotcazou@adacore.com> gcc/ada/ * gcc-interface/trans.c (Call_to_gnu): Remove obsolete code. From-SVN: r261013
Diffstat (limited to 'gcc')
-rw-r--r--gcc/ada/ChangeLog4
-rw-r--r--gcc/ada/gcc-interface/trans.c9
2 files changed, 4 insertions, 9 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 546e0d8..84281e2 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-05-31 Eric Botcazou <ebotcazou@adacore.com>
+
+ * gcc-interface/trans.c (Call_to_gnu): Remove obsolete code.
+
2018-05-31 Piotr Trojanek <trojanek@adacore.com>
* sem_ch6.adb (Check_Missing_Return): Handle procedures with no
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c
index 32b5ef1..dabf2bb 100644
--- a/gcc/ada/gcc-interface/trans.c
+++ b/gcc/ada/gcc-interface/trans.c
@@ -4614,15 +4614,6 @@ Call_to_gnu (Node_Id gnat_node, tree *gnu_result_type_p, tree gnu_target,
gnu_actual
= emit_range_check (gnu_actual, gnat_formal_type, gnat_actual);
- /* Unless this is an In parameter, we must remove any justified modular
- building from GNU_NAME to get an lvalue. */
- if (!in_param
- && TREE_CODE (gnu_name) == CONSTRUCTOR
- && TREE_CODE (TREE_TYPE (gnu_name)) == RECORD_TYPE
- && TYPE_JUSTIFIED_MODULAR_P (TREE_TYPE (gnu_name)))
- gnu_name
- = convert (TREE_TYPE (TYPE_FIELDS (TREE_TYPE (gnu_name))), gnu_name);
-
/* First see if the parameter is passed by reference. */
if (is_true_formal_parm && DECL_BY_REF_P (gnu_formal))
{