From f1a85fe7193cddc99f68c80c6aef96231866cad1 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 1 Aug 2014 08:19:00 +0000 Subject: [PATCH] * gcc-interface/decl.c, gcc-interface/trans.c: Remove VMS handling. From-SVN: r213415 --- gcc/ada/ChangeLog | 1 + gcc/ada/gcc-interface/decl.c | 16 +++++++--------- gcc/ada/gcc-interface/trans.c | 7 ------- 3 files changed, 8 insertions(+), 16 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 83ae8cd72a2..55e5b874746 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -10,6 +10,7 @@ sem_util.ads, exp_ch4.adb, exp_ch11.adb, exp_ch6.adb, cstand.adb, sem_mech.adb, sem_ch6.adb, sem_ch8.adb, sem_ch11.adb, snames.ads-tmpl: Remove VMS-specific code. + * gcc-interface/decl.c, gcc-interface/trans.c: Ditto. 2014-08-01 Arnaud Charlet diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 795eea3a04f..d7ac29d98f6 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -1432,15 +1432,13 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) gnu_expr = convert (gnu_type, gnu_expr); /* If this name is external or there was a name specified, use it, - unless this is a VMS exception object since this would conflict - with the symbol we need to export in addition. Don't use the - Interface_Name if there is an address clause (see CD30005). */ - if (!Is_VMS_Exception (gnat_entity) - && ((Present (Interface_Name (gnat_entity)) - && No (Address_Clause (gnat_entity))) - || (Is_Public (gnat_entity) - && (!Is_Imported (gnat_entity) - || Is_Exported (gnat_entity))))) + Don't use the Interface_Name if there is an address clause + (see CD30005). */ + if ((Present (Interface_Name (gnat_entity)) + && No (Address_Clause (gnat_entity))) + || (Is_Public (gnat_entity) + && (!Is_Imported (gnat_entity) + || Is_Exported (gnat_entity)))) gnu_ext_name = create_concat_name (gnat_entity, NULL); /* If this is an aggregate constant initialized to a constant, force it diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index 6df6dea3435..0798a660864 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -5484,13 +5484,6 @@ gnat_to_gnu (Node_Id gnat_node) gcc_assert (!TREE_OVERFLOW (gnu_result)); } - /* Convert the Ureal to a vax float (represented on a signed type). */ - else if (Vax_Float (Underlying_Type (Etype (gnat_node)))) - { - gnu_result = UI_To_gnu (Get_Vax_Real_Literal_As_Signed (gnat_node), - gnu_result_type); - } - else { Ureal ur_realval = Realval (gnat_node); -- 2.30.2