From d9898483059a497f1f632ab688bcef729e6cb6e0 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 31 May 2018 10:47:24 +0000 Subject: [PATCH] [Ada] Remove obsolete code in trans.c 2018-05-31 Eric Botcazou gcc/ada/ * gcc-interface/trans.c (Call_to_gnu): Remove obsolete code. From-SVN: r261013 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/gcc-interface/trans.c | 9 --------- 2 files changed, 4 insertions(+), 9 deletions(-) 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 + + * gcc-interface/trans.c (Call_to_gnu): Remove obsolete code. + 2018-05-31 Piotr Trojanek * 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)) { -- 2.30.2