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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@213415 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 83ae8cd..55e5b87 100644 (file)
--- 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  <charlet@adacore.com>
 

diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 795eea3..d7ac29d 100644 (file)
--- 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 6df6dea..0798a66 100644 (file)
--- 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);