diff options
| author | Joel Brobecker <brobecker@adacore.com> | 2014-03-10 14:45:26 +0100 |
|---|---|---|
| committer | Joel Brobecker <brobecker@adacore.com> | 2014-03-10 14:46:55 +0100 |
| commit | 023db19c6b0dc1345631d708425a9cb694cafa92 (patch) | |
| tree | d97675652ea40356b856ceac0af0b294248902df | |
| parent | 8668be63cff2c8efe312e1d6a354fd8b69cd2d89 (diff) | |
| download | gdb-023db19c6b0dc1345631d708425a9cb694cafa92.zip gdb-023db19c6b0dc1345631d708425a9cb694cafa92.tar.gz gdb-023db19c6b0dc1345631d708425a9cb694cafa92.tar.bz2 | |
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.
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/ada-lang.c | 6 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index f0e2f42..3328043 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2014-03-10 Joel Brobecker <brobecker@adacore.com> + + * ada-lang.c (ada_evaluate_subexp): Add missing space before '(' + in call to TYPE_CODE macro. + 2014-03-10 Jerome Guitton <guitton@adacore.com> * ada-lang.c (ada_evaluate_subexp) <UNOP_IND, STRUCTOP_STRUCT>: diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index e36a64b..31aa380 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, |