From 83f362cf8f9539cefdd5df709a347a5396d23c76 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Tue, 18 Jul 2023 10:45:14 -0600 Subject: Remove ancient Ada workaround I ran across this very old code in gdb's Ada support. After a bit of archaeology, we couldn't determine what bug this might have been working around. It is no longer needed, so this patch removes it. As this is entirely Ada-specific and was reviewed and tested at AdaCore, I'm checking it in. --- gdb/ada-lang.c | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'gdb/ada-lang.c') diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 7952075..caeea58 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -2066,23 +2066,6 @@ ada_is_array_descriptor_type (struct type *type) && desc_arity (desc_bounds_type (type)) > 0); } -/* Non-zero iff type is a partially mal-formed GNAT array - descriptor. FIXME: This is to compensate for some problems with - debugging output from GNAT. Re-examine periodically to see if it - is still needed. */ - -int -ada_is_bogus_array_descriptor (struct type *type) -{ - return - type != NULL - && type->code () == TYPE_CODE_STRUCT - && (lookup_struct_elt_type (type, "P_BOUNDS", 1) != NULL - || lookup_struct_elt_type (type, "P_ARRAY", 1) != NULL) - && !ada_is_array_descriptor_type (type); -} - - /* If ARR has a record type in the form of a standard GNAT array descriptor, (fat pointer) returns the type of the array data described---specifically, a pointer-to-array type. If BOUNDS is non-zero, the bounds data are filled -- cgit v1.1