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

From-SVN: r213415

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>
 

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

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