From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 31 May 2018 10:47:24 +0000 (+0000)
Subject: [Ada] Remove obsolete code in trans.c
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d9898483059a497f1f632ab688bcef729e6cb6e0;p=gcc.git

[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
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 546e0d853a6..84281e290cf 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 32b5ef1dc75..dabf2bb8b02 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))
 	{