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/decl.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/decl.c')
| -rw-r--r-- | gcc/ada/decl.c | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/gcc/ada/decl.c b/gcc/ada/decl.c index 1ca2304..9e7749e 100644 --- a/gcc/ada/decl.c +++ b/gcc/ada/decl.c @@ -52,9 +52,6 @@ #include "ada-tree.h" #include "gigi.h" -/* Setting this to 1 suppresses hashing of types. */ -extern int debug_no_type_hash; - /* Provide default values for the macros controlling stack checking. This is copied from GCC's expr.h. */ @@ -1942,11 +1939,6 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) convert (bitsizetype, gnu_max_size), TYPE_SIZE (gnu_type)); - /* We don't want any array types shared for two reasons: first, - we want to keep differently-named types distinct; second, - setting TYPE_MULTI_ARRAY_TYPE of one type can clobber - another. */ - debug_no_type_hash = 1; for (index = array_dim - 1; index >= 0; index --) { gnu_type = build_array_type (gnu_type, gnu_index_type[index]); @@ -2019,7 +2011,6 @@ gnat_to_gnu_entity (Entity_Id gnat_entity, tree gnu_expr, int definition) finish_record_type (gnu_bound_rec_type, gnu_field_list, 0, 0); } - debug_no_type_hash = 0; TYPE_CONVENTION_FORTRAN_P (gnu_type) = (Convention (gnat_entity) == Convention_Fortran); TYPE_PACKED_ARRAY_TYPE_P (gnu_type) |