From 7548281d739c119cf7dfc9c83bc52dfc36083f8c Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Fri, 19 Mar 2004 14:34:47 +0000 Subject: 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 --- gcc/ada/misc.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'gcc/ada/misc.c') 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 -- cgit v1.1