mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 23:31:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

* gcc-interface/decl.c, gcc-interface/trans.c: Remove VMS handling.

Browse Source 
From-SVN: r213415
This commit is contained in:
Robert Dewar 2014-08-01 08:19:00 +00:00 committed by Arnaud Charlet
parent ea0c8cfb98
commit f1a85fe719
3 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/ada/ChangeLog
View File

@ -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 <charlet@adacore.com>

16
gcc/ada/gcc-interface/decl.c
View File

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

7
gcc/ada/gcc-interface/trans.c
View File

@ -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);