diff options
| author | Richard Kenner <kenner@vlsi1.ultra.nyu.edu> | 2004-03-19 14:34:47 +0000 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 2004-03-19 09:34:47 -0500 |
| commit | 7548281d739c119cf7dfc9c83bc52dfc36083f8c (patch) | |
| tree | 046f6fd5dcc59b0ff82a69550dd6265483af9478 /gcc/ada/misc.c | |
| parent | 32f4f7197f9c12930a4933fc92215fcc45af670f (diff) | |
| download | gcc-7548281d739c119cf7dfc9c83bc52dfc36083f8c.zip gcc-7548281d739c119cf7dfc9c83bc52dfc36083f8c.tar.gz gcc-7548281d739c119cf7dfc9c83bc52dfc36083f8c.tar.bz2 | |
langhooks-def.h (LANG_HOOKS_HASH_TYPES): New macro and hook.
* langhooks-def.h (LANG_HOOKS_HASH_TYPES): New macro and hook.
* langhooks.h (struct lang_hooks_for_types): New field hash_types.
* tree.c (debug_no_type_hash): Deleted.
(type_hash_canon): Abort if passed a variant.
Check lang_hooks.types.hash_types.
(build_type_no_quals): Copy mode of POINTER_TYPE and REFERENCE_TYPE.
(build_array_type): Remove unnecessary allocation of pointer type.
(build_complex_type): Properly qualify resulting type.
* ada/decl.c (debug_no_type_hash): Remove.
(gnat_to_gnu_entity, case E_Array_Type): Don't set and clear it.
* ada/misc.c (LANG_HOOK_HASH_TYPE): Redefine.
From-SVN: r79684
Diffstat (limited to 'gcc/ada/misc.c')
| -rw-r--r-- | gcc/ada/misc.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/misc.c b/gcc/ada/misc.c index a87331d..7be3b5d 100644 --- a/gcc/ada/misc.c +++ b/gcc/ada/misc.c @@ -101,7 +101,7 @@ static rtx gnat_expand_expr (tree, rtx, enum machine_mode, int, static void internal_error_function (const char *, va_list *); static void gnat_adjust_rli (record_layout_info); -/* Structure giving our language-specific hooks. */ +/* Definitions for our language-specific hooks. */ #undef LANG_HOOKS_NAME #define LANG_HOOKS_NAME "GNU Ada" @@ -118,7 +118,9 @@ static void gnat_adjust_rli (record_layout_info); #undef LANG_HOOKS_PARSE_FILE #define LANG_HOOKS_PARSE_FILE gnat_parse_file #undef LANG_HOOKS_HONOR_READONLY -#define LANG_HOOKS_HONOR_READONLY 1 +#define LANG_HOOKS_HONOR_READONLY true +#undef LANG_HOOKS_HASH_TYPES +#define LANG_HOOKS_HASH_TYPES false #undef LANG_HOOKS_FINISH_INCOMPLETE_DECL #define LANG_HOOKS_FINISH_INCOMPLETE_DECL gnat_finish_incomplete_decl #undef LANG_HOOKS_GET_ALIAS_SET |