diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2008-04-08 11:41:59 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2008-04-08 11:41:59 +0000 |
| commit | ba3f46d0910139e56300a68bc7992c0217b7adb9 (patch) | |
| tree | e039d18b7e69f9b896b96ec52a36f7115dac70fc /gcc/ada/misc.c | |
| parent | 373140ef746ba530ad7d3ff56c9e6aea4aacdf0f (diff) | |
| download | gcc-ba3f46d0910139e56300a68bc7992c0217b7adb9.zip gcc-ba3f46d0910139e56300a68bc7992c0217b7adb9.tar.gz gcc-ba3f46d0910139e56300a68bc7992c0217b7adb9.tar.bz2 | |
decl.c (gnat_to_gnu_entity): If -gnatd.a and not optimizing alignment for space...
* decl.c (gnat_to_gnu_entity) <object>: If -gnatd.a and not optimizing
alignment for space, promote the alignment of non-scalar variables with
no size and alignment.
* gigi.h (gnat_types_compatible_p): Declare.
* misc.c (LANG_HOOKS_TYPES_COMPATIBLE_P): Set to above predicate.
* trans.c (gnat_to_gnu): Revert revision 129339 change. Minor cleanup.
* utils.c (gnat_types_compatible_p) : New predicate.
(convert): Use it throughout to test for cases where a mere view
conversion is sufficient.
* utils2.c (build_binary_op): Minor tweaks.
(build_unary_op): Likewise.
From-SVN: r134092
Diffstat (limited to 'gcc/ada/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index 317ec2d..a4dd99c 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -151,6 +151,8 @@ static tree gnat_type_max_size (const_tree); #define LANG_HOOKS_TYPE_FOR_MODE gnat_type_for_mode #undef LANG_HOOKS_TYPE_FOR_SIZE #define LANG_HOOKS_TYPE_FOR_SIZE gnat_type_for_size +#undef LANG_HOOKS_TYPES_COMPATIBLE_P +#define LANG_HOOKS_TYPES_COMPATIBLE_P gnat_types_compatible_p #undef LANG_HOOKS_ATTRIBUTE_TABLE #define LANG_HOOKS_ATTRIBUTE_TABLE gnat_internal_attribute_table #undef LANG_HOOKS_BUILTIN_FUNCTION |