diff options
| author | Yao Qi <yao@codesourcery.com> | 2014-04-15 11:10:56 +0800 |
|---|---|---|
| committer | Yao Qi <yao@codesourcery.com> | 2014-07-21 03:46:33 +0800 |
| commit | 9c81664074faf6028036d9b3615ab860396b0c81 (patch) | |
| tree | fd571939669a4151a5d6e78e700ef761f83585e1 | |
| parent | 018dc9bedf40d528f1d05d56555e20ed54a77dc3 (diff) | |
| download | gdb-9c81664074faf6028036d9b3615ab860396b0c81.zip gdb-9c81664074faf6028036d9b3615ab860396b0c81.tar.gz gdb-9c81664074faf6028036d9b3615ab860396b0c81.tar.bz2 | |
Remove operator BINOP_IN
Chill language support was removed several years ago, and BINOP_IN
isn't used for Pascal. This patch is to remove BINOP_IN.
gdb:
2014-07-20 Yao Qi <yao@codesourcery.com>
* std-operator.def: Remove BINOP_IN.
* breakpoint.c (watchpoint_exp_is_const): Update.
* eval.c (evaluate_subexp_standard): Likewise.
* expprint.c (dump_subexp_body_standard): Likewise.
| -rw-r--r-- | gdb/ChangeLog | 7 | ||||
| -rw-r--r-- | gdb/breakpoint.c | 1 | ||||
| -rw-r--r-- | gdb/eval.c | 9 | ||||
| -rw-r--r-- | gdb/expprint.c | 1 | ||||
| -rw-r--r-- | gdb/std-operator.def | 3 |
5 files changed, 7 insertions, 14 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index a212b47..7cd8ada 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,10 @@ +2014-07-20 Yao Qi <yao@codesourcery.com> + + * std-operator.def: Remove BINOP_IN. + * breakpoint.c (watchpoint_exp_is_const): Update. + * eval.c (evaluate_subexp_standard): Likewise. + * expprint.c (dump_subexp_body_standard): Likewise. + 2014-07-19 Ajit Agarwal <ajitkum@xilinx.com> * microblaze-tdep.c (microblaze_register_names): Add diff --git a/gdb/breakpoint.c b/gdb/breakpoint.c index 908a1ea..bad375b 100644 --- a/gdb/breakpoint.c +++ b/gdb/breakpoint.c @@ -10602,7 +10602,6 @@ watchpoint_exp_is_const (const struct expression *exp) case BINOP_MAX: case BINOP_INTDIV: case BINOP_CONCAT: - case BINOP_IN: case BINOP_RANGE: case TERNOP_COND: case TERNOP_SLICE: @@ -2164,15 +2164,6 @@ evaluate_subexp_standard (struct type *expect_type, else return value_subscript (arg1, value_as_long (arg2)); } - - case BINOP_IN: - arg1 = evaluate_subexp_with_coercion (exp, pos, noside); - arg2 = evaluate_subexp_with_coercion (exp, pos, noside); - if (noside == EVAL_SKIP) - goto nosideret; - type = language_bool_type (exp->language_defn, exp->gdbarch); - return value_from_longest (type, (LONGEST) value_in (arg1, arg2)); - case MULTI_SUBSCRIPT: (*pos) += 2; nargs = longest_to_int (exp->elts[pc + 1].longconst); diff --git a/gdb/expprint.c b/gdb/expprint.c index aa9e4d7..505bd48 100644 --- a/gdb/expprint.c +++ b/gdb/expprint.c @@ -802,7 +802,6 @@ dump_subexp_body_standard (struct expression *exp, case BINOP_ASSIGN_MODIFY: case BINOP_VAL: case BINOP_CONCAT: - case BINOP_IN: case BINOP_RANGE: case BINOP_END: case STRUCTOP_MEMBER: diff --git a/gdb/std-operator.def b/gdb/std-operator.def index e530654..16014e0 100644 --- a/gdb/std-operator.def +++ b/gdb/std-operator.def @@ -87,9 +87,6 @@ OP (BINOP_VAL) the second operand with itself that many times. */ OP (BINOP_CONCAT) -/* For (the deleted) Chill and Pascal. */ -OP (BINOP_IN) /* Returns 1 iff ARG1 IN ARG2. */ - /* This is the "colon operator" used various places in (the deleted) Chill. */ OP (BINOP_RANGE) |