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 | |
| 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
| -rw-r--r-- | gcc/ada/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/Make-lang.in | 4 | ||||
| -rw-r--r-- | gcc/ada/gcc-interface/decl.c | 5 |
3 files changed, 15 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ec58e95..58b30a2 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,11 @@ +2013-02-03 Eric Botcazou <ebotcazou@adacore.com> + + * 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). + 2013-01-29 Ben Brosgol <brosgol@adacore.com> * gnat_rm.texi: Fixed typos. Minor edits. diff --git a/gcc/ada/gcc-interface/Make-lang.in b/gcc/ada/gcc-interface/Make-lang.in index 03f3f7b..96e1611 100644 --- a/gcc/ada/gcc-interface/Make-lang.in +++ b/gcc/ada/gcc-interface/Make-lang.in @@ -986,8 +986,8 @@ ada/cuintp.o : ada/gcc-interface/cuintp.c $(CONFIG_H) $(SYSTEM_H) coretypes.h \ $(COMPILER) -c $(ALL_COMPILERFLAGS) -I.. $(ALL_CPPFLAGS) $< -o $@ ada/decl.o : ada/gcc-interface/decl.c $(CONFIG_H) $(SYSTEM_H) coretypes.h \ - $(TM_H) $(TREE_H) $(FLAGS_H) toplev.h $(TARGET_H) \ - $(TREE_INLINE_H) ada/gcc-interface/ada.h ada/types.h ada/atree.h \ + $(TM_H) $(TREE_H) $(FLAGS_H) toplev.h $(TARGET_H) $(TREE_INLINE_H) \ + $(DIAGNOSTIC_CORE_H) ada/gcc-interface/ada.h ada/types.h ada/atree.h \ ada/elists.h ada/namet.h ada/nlists.h ada/repinfo.h ada/snames.h \ ada/stringt.h ada/uintp.h ada/fe.h ada/sinfo.h ada/einfo.h $(ADA_TREE_H) \ ada/gcc-interface/gigi.h gt-ada-decl.h 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) { |