* fe.h (GNAT_Mode): New.
* gcc-interface/decl.c (gnat_to_gnu_entity): Do not error out on
reverse SSO in GNAT mode.
From-SVN: r213473
+2014-08-01 Arnaud Charlet <charlet@adacore.com>
+
+ * fe.h (GNAT_Mode): New.
+ * gcc-interface/decl.c (gnat_to_gnu_entity): Do not error out on
+ reverse SSO in GNAT mode.
+
2014-08-01 Thomas Quinot <quinot@adacore.com>
* freeze.adb: Minor reformatting.
#define Exception_Locations_Suppressed opt__exception_locations_suppressed
#define Exception_Mechanism opt__exception_mechanism
#define Generate_SCO_Instance_Table opt__generate_sco_instance_table
+#define GNAT_Mode opt__gnat_mode
#define Float_Format opt__float_format
#define List_Representation_Info opt__list_representation_info
extern Boolean Exception_Locations_Suppressed;
extern Exception_Mechanism_Type Exception_Mechanism;
extern Boolean Generate_SCO_Instance_Table;
+extern Boolean GNAT_Mode;
extern Char Float_Format;
extern Int List_Representation_Info;
gnu_type = make_node (tree_code_for_record_type (gnat_entity));
TYPE_NAME (gnu_type) = gnu_entity_name;
TYPE_PACKED (gnu_type) = (packed != 0) || has_rep;
- if (Reverse_Storage_Order (gnat_entity))
+
+ if (Reverse_Storage_Order (gnat_entity) && !GNAT_Mode)
sorry ("non-default Scalar_Storage_Order");
process_attributes (&gnu_type, &attr_list, true, gnat_entity);