From 9696763752f28165fc6c2cdc8fdd21dda0ae7d4d Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Sat, 15 Nov 2008 18:27:27 +0000 Subject: [PATCH] * ada-lang.c (ada_evaluate_subexp): Improve handling of integer type dereferencing. --- gdb/ChangeLog | 5 +++++ gdb/ada-lang.c | 18 ++++++++++++------ 2 files changed, 17 insertions(+), 6 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 811a760c76f..36d6592e8aa 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2008-11-15 Joel Brobecker + + * ada-lang.c (ada_evaluate_subexp): Improve handling of integer + type dereferencing. + 2008-11-15 Daniel Jacobowitz * NEWS: Mention sparc64-linux-gnu gdbserver support. diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 9fdd944197f..2ccba785e06 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -9204,12 +9204,18 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp, arg1 = ada_coerce_ref (arg1); /* FIXME: What is this for?? */ type = ada_check_typedef (value_type (arg1)); - if (TYPE_CODE (type) == TYPE_CODE_INT && expect_type != NULL) - /* GDB allows dereferencing an int. We give it the expected - type (which will be set in the case of a coercion or - qualification). */ - return ada_value_ind (value_cast (lookup_pointer_type (expect_type), - arg1)); + if (TYPE_CODE (type) == TYPE_CODE_INT) + /* GDB allows dereferencing an int. If we were given + the expect_type, then use that as the target type. + Otherwise, assume that the target type is an int. */ + { + if (expect_type != NULL) + return ada_value_ind (value_cast (lookup_pointer_type (expect_type), + arg1)); + else + return value_at_lazy (builtin_type (exp->gdbarch)->builtin_int, + (CORE_ADDR) value_as_address (arg1)); + } if (ada_is_array_descriptor_type (type)) /* GDB allows dereferencing GNAT array descriptors. */ -- 2.30.2