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