From 023db19c6b0dc1345631d708425a9cb694cafa92 Mon Sep 17 00:00:00 2001 From: Joel Brobecker Date: Mon, 10 Mar 2014 14:45:26 +0100 Subject: [PATCH] Missing space before '(' in ada-lang.c::ada_evaluate_subexp gdb/ChangeLog: * ada-lang.c (ada_evaluate_subexp): Add missing space before '(' in call to TYPE_CODE macro. --- gdb/ChangeLog | 5 +++++ gdb/ada-lang.c | 6 +++--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index f0e2f423ec1..3328043b814 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2014-03-10 Joel Brobecker + + * ada-lang.c (ada_evaluate_subexp): Add missing space before '(' + in call to TYPE_CODE macro. + 2014-03-10 Jerome Guitton * ada-lang.c (ada_evaluate_subexp) : diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index e36a64bc2d2..31aa38088c0 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -10112,7 +10112,7 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp, The latter should be shown as usual (as a pointer), whereas a reference should mostly be transparent to the user. */ if (ada_is_tagged_type (type, 0) - || (TYPE_CODE(type) == TYPE_CODE_REF + || (TYPE_CODE (type) == TYPE_CODE_REF && ada_is_tagged_type (TYPE_TARGET_TYPE (type), 0))) { /* Tagged types are a little special in the fact that the real @@ -10740,8 +10740,8 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp, This means that we need to evaluate completely the expression in order to get its type. */ - if ((TYPE_CODE(type) == TYPE_CODE_REF - || TYPE_CODE(type) == TYPE_CODE_PTR) + if ((TYPE_CODE (type) == TYPE_CODE_REF + || TYPE_CODE (type) == TYPE_CODE_PTR) && ada_is_tagged_type (TYPE_TARGET_TYPE (type), 0)) { arg1 = evaluate_subexp (NULL_TYPE, exp, &preeval_pos, -- 2.30.2