From af381b8cf9f3fe6026332655ae7d2abb67ecd063 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Wed, 14 Mar 2012 01:38:30 +0000 Subject: [PATCH] ax-gdb.c: Add handling of TYPE_CODE_RANGE types. This patch fixes an error that occurs with GDB + GDBserver when trying to insert a breakpoint with a condition that involves a range type. For instance: type INT_T is range 0 .. 1000; INT_VAR : INT_T := 12; And then trying to insert the breakpoint: (gdb) break foo.adb:18 if int_var > 15 Breakpoint 1 at 0x4021eb: file foo.adb, line 18. (gdb) cont Continuing. /[...]/ax-gdb.c:560: internal-error: gen_fetch: bad type code A problem internal to GDB has been detected, further debugging may prove unreliable. Quit this debugging session? (y or n) This patch fixes the problem by adding handling for range types in gen_fetch. gdb/ChangeLog: * ax-gdb.c (gen_fetch): Add handling for TYPE_CODE_RANGE types. --- gdb/ChangeLog | 4 ++++ gdb/ax-gdb.c | 3 +++ 2 files changed, 7 insertions(+) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 8004bd9f74a..d941d33ac93 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,7 @@ +2012-03-13 Joel Brobecker + + * ax-gdb.c (gen_fetch): Add handling for TYPE_CODE_RANGE types. + 2012-03-13 Joel Brobecker * aix-thread.c (supply_fprs): Make more consistent with fill_fprs. diff --git a/gdb/ax-gdb.c b/gdb/ax-gdb.c index bd813380fe2..126a4e74d12 100644 --- a/gdb/ax-gdb.c +++ b/gdb/ax-gdb.c @@ -515,6 +515,9 @@ gen_fetch (struct agent_expr *ax, struct type *type) ax_trace_quick (ax, TYPE_LENGTH (type)); } + if (TYPE_CODE (type) == TYPE_CODE_RANGE) + type = TYPE_TARGET_TYPE (type); + switch (TYPE_CODE (type)) { case TYPE_CODE_PTR: -- 2.30.2