diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-17 16:05:46 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-02-17 16:05:46 +0000 |
| commit | e2dcd12e2156395d0d855100f8117a8be2eaa280 (patch) | |
| tree | 04e5ca2a80a1640835e53e495bd47c66b25f210d /gcc/ada/decl.c | |
| parent | 5f56d1ef81499d8559e41c49b8d9244c4c7ee578 (diff) | |
| download | gcc-e2dcd12e2156395d0d855100f8117a8be2eaa280.tar.gz | |
2006-02-17 Eric Botcazou <botcazou@adacore.com>
PR ada/26315
* utils2.c (find_common_type): If both input types are BLKmode and
have the same constant size, keep using the first one.
* bindgen.adb: (Gen_Versions_Ada): Revert previous workaround.
* decl.c (gnat_to_gnu_entity): Only check TREE_OVERFLOW for a constant.
* misc.c (gnat_handle_option): New case for -Woverlength-strings.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111183 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 1a17c37540e..2144ff20802 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -3435,6 +3435,7 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) a function that returns that type. This usage doesn't make sense anyway, so give an error here. */ if (TYPE_SIZE_UNIT (gnu_return_type) + && TREE_CONSTANT (TYPE_SIZE_UNIT (gnu_return_type)) && TREE_OVERFLOW (TYPE_SIZE_UNIT (gnu_return_type))) { post_error ("cannot return type whose size overflows", |