OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

* ada-lang.c (ada_evaluate_subexp): Break two large expressions 

using temporary variables.
This commit is contained in:
Joel Brobecker 2007-12-28 13:06:17 +00:00
parent f652e42f28
commit 000d512403
2 changed files with 21 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/ChangeLog
View File

@ -1,3 +1,8 @@
2007-12-28 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c (ada_evaluate_subexp): Break two large expressions
using temporary variables.
2007-12-27 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c (ada_value_cast): New function, extracted out from

26
gdb/ada-lang.c
View File

@ -8163,20 +8163,26 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
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));
{
struct value *val;
*pos -= 1;
val = evaluate_subexp_standard (expect_type, exp, pos, noside);
return value_cast (LA_BOOL_TYPE, val);
}
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));
{
struct value *val;
arg1 = evaluate_subexp (NULL_TYPE, exp, pos, EVAL_AVOID_SIDE_EFFECTS);
*pos = pc;
val = evaluate_subexp_standard (expect_type, exp, pos, noside);
return value_cast (value_type (arg1), val);
}
case OP_VAR_VALUE:
*pos -= 1;