[Bug ada/31648] [gdb/ada] segfault in coerce_ref

["vries at gcc dot gnu.org" <sourceware-bugzilla@sourceware.org>]

https://sourceware.org/bugzilla/show_bug.cgi?id=31648

--- Comment #4 from Tom de Vries <vries at gcc dot gnu.org> ---
With this:
...
diff --git a/gdb/valops.c b/gdb/valops.c
index a17b937a963..90be1c0a86b 100644
--- a/gdb/valops.c
+++ b/gdb/valops.c
@@ -2330,6 +2330,9 @@ value_struct_elt (struct value **argp,
   struct type *t;
   struct value *v;

+  if (*argp == nullptr)
+    error (_("%s"), err);
+
   *argp = coerce_array (*argp);

   t = check_typedef ((*argp)->type ());
...
we have instead:
...
$ gdb -q -batch -ex "set trace-commands on" -x gdb.in
+file foo_n207_004
+break foo_n207_004.adb:25
Breakpoint 1 at 0x401cc0: file
/usr/src/packages/BUILD/gdb-13.2/gdb/testsuite/gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb,
line 25.
+run 

Breakpoint 1, foo_n207_004 () at
/usr/src/packages/BUILD/gdb-13.2/gdb/testsuite/gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb:25
warning: 25    
/usr/src/packages/BUILD/gdb-13.2/gdb/testsuite/gdb.ada/tick_length_array_enum_idx/foo_n207_004.adb:
No such file or directory
+print vars'length
gdb.in:4: Error in sourced command file:
Bad GNAT array descriptor bounds
...

-- 
You are receiving this mail because:
You are on the CC list for the bug.