diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2013-02-03 11:53:02 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2013-02-03 11:53:02 +0000 |
| commit | 144f591fcd44be95ab3fd5284735ea304996f51b (patch) | |
| tree | 2992e01be5e721348b146c321a0f249ccf67ee83 /gcc/ada/gcc-interface/decl.c | |
| parent | ad2466aee4897a7315549149174e26aae7021ed4 (diff) | |
| download | gcc-144f591fcd44be95ab3fd5284735ea304996f51b.zip gcc-144f591fcd44be95ab3fd5284735ea304996f51b.tar.gz gcc-144f591fcd44be95ab3fd5284735ea304996f51b.tar.bz2 | |
decl.c: Include diagnostic-core.h.
* gcc-interface/decl.c: Include diagnostic-core.h.
(gnat_to_gnu_entity) <E_Array_Type>: Sorry if Reverse_Storage_Order
is set on the entity.
<E_Record_Type>: Likewise.
* gcc-interface/Make-lang.in (ada/decl.o): Add $(DIAGNOSTIC_CORE_H).
From-SVN: r195694
Diffstat (limited to 'gcc/ada/gcc-interface/decl.c')
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c index d6729f7..56b64a3 100644 --- a/gcc/ada/gcc-interface/decl.c +++ b/gcc/ada/gcc-interface/decl.c @@ -33,6 +33,7 @@ #include "ggc.h" #include "target.h" #include "tree-inline.h" +#include "diagnostic-core.h" #include "ada.h" #include "types.h" @@ -2244,6 +2245,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) for (index = ndim - 1; index >= 0; index--) { tem = build_nonshared_array_type (tem, gnu_index_types[index]); + if (Reverse_Storage_Order (gnat_entity)) + sorry ("non-default Scalar_Storage_Order"); TYPE_MULTI_ARRAY_P (tem) = (index > 0); if (array_type_has_nonaliased_component (tem, gnat_entity)) TYPE_NONALIASED_COMPONENT (tem) = 1; @@ -2957,6 +2960,8 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) 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)) + sorry ("non-default Scalar_Storage_Order"); if (!definition) { |