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.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a212b476b5c4f059f8ffdcc1af886b4de52d8ca4..7cd8ada6063034592e502065fd2e528d1a17e4d0 100644 (file)
--- 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 908a1ea22d92e2248d0a5f7c9a7e7a4387fcf8b1..bad375bb26e299fc6adcb20f6fd9d04b0b59523f 100644 (file)
--- 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:

diff --git a/gdb/eval.c b/gdb/eval.c
index d374b6a4c50758fbac1a31cd5152f93b3a0f18d1..949b2f830de0d6f8f840f1378f3c3ec58aedccea 100644 (file)
--- a/gdb/eval.c
+++ b/gdb/eval.c
@@ -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 aa9e4d76a34ccc3d0f4ea92b9384971e6dfaa6a5..505bd485fac775142c864e88e8528d71496be8aa 100644 (file)
--- 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 e530654ffda24147d023f83f35a9c3a32e0076d4..16014e0914a2a8feac13f120b59bdfc4cad7f3a0 100644 (file)
--- 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)