mirror/binutils-gdb
2
0
Fork 0
mirror of https://sourceware.org/git/binutils-gdb.git synced 2025-02-11 13:02:10 +08:00
Code Issues Packages Projects Releases Wiki Activity

* ada-lang.c (ada_evaluate_subexp): Add cases for BINOP_LOGICAL_AND,

Browse Source 
BINOP_LOGICAL_OR, UNOP_LOGICAL_NOT, BINOP_BITWISE_IOR,
        BINOP_BITWISE_XOR, BINOP_BITWISE_AND.
        * language.c (lang_bool_type): Add Ada case.
This commit is contained in:
Joel Brobecker 2007-12-28 06:13:51 +00:00
parent a6017fbaa5
commit 2330c6c69c
3 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gdb/ChangeLog
View File

@ -1,3 +1,10 @@
2007-12-27 Paul Hilfinger <hilfinger@adacore.com>
* ada-lang.c (ada_evaluate_subexp): Add cases for BINOP_LOGICAL_AND,
BINOP_LOGICAL_OR, UNOP_LOGICAL_NOT, BINOP_BITWISE_IOR,
BINOP_BITWISE_XOR, BINOP_BITWISE_AND.
* language.c (lang_bool_type): Add Ada case.
2007-12-26 Joel Brobecker <brobecker@adacore.com>
* dwarf2read.c (read_base_type): Fix obvious &&/|| confusion.

18
gdb/ada-lang.c
View File

@ -8151,6 +8151,24 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
else
return value_neg (arg1);
case BINOP_LOGICAL_AND:
case BINOP_LOGICAL_OR:
case UNOP_LOGICAL_NOT:
*pos -= 1;
return value_cast (LA_BOOL_TYPE,
evaluate_subexp_standard (expect_type, exp,
pos, noside));
case BINOP_BITWISE_AND:
case BINOP_BITWISE_IOR:
case BINOP_BITWISE_XOR:
arg1 = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS);
*pos = pc;
return value_cast (value_type (arg1),
evaluate_subexp_standard (expect_type, exp,
pos, noside));
case OP_VAR_VALUE:
*pos -= 1;
if (noside == EVAL_SKIP)

2
gdb/language.c
View File

@ -801,6 +801,7 @@ lang_bool_type (void)
return builtin_type_f_logical_s2;
case language_cplus:
case language_pascal:
case language_ada:
if (current_language->la_language==language_cplus)
{sym = lookup_symbol ("bool", NULL, VAR_DOMAIN, NULL, NULL);}
else
@ -821,6 +822,7 @@ lang_bool_type (void)
return type;
}
return java_boolean_type;
default:
return builtin_type_int;
}