diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-08-01 08:19:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 10:19:00 +0200 |
| commit | f1a85fe7193cddc99f68c80c6aef96231866cad1 (patch) | |
| tree | ad6b6e5460c06819cd77d7b397ad501495da9fbf /gcc/ada/gcc-interface/decl.c | |
| parent | ea0c8cfb98bc575325f35f4798b2c657f4497e5e (diff) | |
| download | gcc-f1a85fe7193cddc99f68c80c6aef96231866cad1.zip gcc-f1a85fe7193cddc99f68c80c6aef96231866cad1.tar.gz gcc-f1a85fe7193cddc99f68c80c6aef96231866cad1.tar.bz2 | |
* gcc-interface/decl.c, gcc-interface/trans.c: Remove VMS handling.
From-SVN: r213415
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index 795eea3..d7ac29d 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 |