diff options
| author | Tom Tromey <tromey@adacore.com> | 2023-07-18 10:45:14 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2023-07-21 07:25:23 -0600 |
| commit | 83f362cf8f9539cefdd5df709a347a5396d23c76 (patch) | |
| tree | 19e12d7ed93fd600290c0e672690da32cbaf62e0 /gdb/ada-lang.c | |
| parent | 386d30593e4a1b1267e03c72b812403d9038a75b (diff) | |
| download | gdb-83f362cf8f9539cefdd5df709a347a5396d23c76.zip gdb-83f362cf8f9539cefdd5df709a347a5396d23c76.tar.gz gdb-83f362cf8f9539cefdd5df709a347a5396d23c76.tar.bz2 | |
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.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 17 |
1 files changed, 0 insertions, 17 deletions
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 |