From patchwork Wed Jul 16 05:15:39 2014 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Yao Qi X-Patchwork-Id: 2069 Received: (qmail 9648 invoked by alias); 16 Jul 2014 05:19:50 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 9498 invoked by uid 89); 16 Jul 2014 05:19:49 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.7 required=5.0 tests=AWL, BAYES_00 autolearn=ham version=3.3.2 X-HELO: relay1.mentorg.com Received: from relay1.mentorg.com (HELO relay1.mentorg.com) (192.94.38.131) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Wed, 16 Jul 2014 05:19:47 +0000 Received: from svr-orw-fem-01.mgc.mentorg.com ([147.34.98.93]) by relay1.mentorg.com with esmtp id 1X7Hd2-0004T6-JB from Yao_Qi@mentor.com for gdb-patches@sourceware.org; Tue, 15 Jul 2014 22:19:44 -0700 Received: from SVR-ORW-FEM-03.mgc.mentorg.com ([147.34.97.39]) by svr-orw-fem-01.mgc.mentorg.com over TLS secured channel with Microsoft SMTPSVC(6.0.3790.4675); Tue, 15 Jul 2014 22:19:44 -0700 Received: from qiyao.dyndns.org.com (147.34.91.1) by svr-orw-fem-03.mgc.mentorg.com (147.34.97.39) with Microsoft SMTP Server id 14.2.247.3; Tue, 15 Jul 2014 22:19:43 -0700 From: Yao Qi To: Subject: [PATCH 1/4] Remove operator BINOP_IN Date: Wed, 16 Jul 2014 13:15:39 +0800 Message-ID: <1405487742-32613-2-git-send-email-yao@codesourcery.com> In-Reply-To: <1405487742-32613-1-git-send-email-yao@codesourcery.com> References: <1405487742-32613-1-git-send-email-yao@codesourcery.com> MIME-Version: 1.0 X-IsSubscribed: yes 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-15 Yao Qi * 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. --- gdb/breakpoint.c | 1 - gdb/eval.c | 9 --------- gdb/expprint.c | 1 - gdb/std-operator.def | 3 --- 4 files changed, 14 deletions(-) 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: diff --git a/gdb/eval.c b/gdb/eval.c index d374b6a..949b2f8 100644 --- 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 97188ed..a966203 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)