Imagelibrary/binutils-gdb
1
0
Fork 1
mirror of https://github.com/bminor/binutils-gdb.git synced 2025-12-27 01:28:46 +00:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

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;