From patchwork Mon Jan 18 16:13:52 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Simon Marchi X-Patchwork-Id: 10422 Received: (qmail 82523 invoked by alias); 18 Jan 2016 16:14:04 -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 82507 invoked by uid 89); 18 Jan 2016 16:14:03 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-0.9 required=5.0 tests=BAYES_00, KAM_LAZY_DOMAIN_SECURITY autolearn=no version=3.3.2 spammy=upvar, 251, surprises, 9767 X-HELO: usplmg20.ericsson.net Received: from usplmg20.ericsson.net (HELO usplmg20.ericsson.net) (198.24.6.45) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES256-SHA encrypted) ESMTPS; Mon, 18 Jan 2016 16:14:02 +0000 Received: from EUSAAHC006.ericsson.se (Unknown_Domain [147.117.188.90]) by usplmg20.ericsson.net (Symantec Mail Security) with SMTP id 05.3F.06940.5EC0D965; Mon, 18 Jan 2016 17:03:49 +0100 (CET) Received: from elxcz23q12-y4.dyn.mo.ca.am.ericsson.se (147.117.188.8) by smtps-am.internal.ericsson.com (147.117.188.90) with Microsoft SMTP Server (TLS) id 14.3.248.2; Mon, 18 Jan 2016 11:13:59 -0500 From: Simon Marchi To: CC: Simon Marchi Subject: [PATCH] testsuite: Remove unused global references in gdb_test Date: Mon, 18 Jan 2016 11:13:52 -0500 Message-ID: <1453133632-32710-1-git-send-email-simon.marchi@ericsson.com> MIME-Version: 1.0 X-IsSubscribed: yes Those are unused since gdb_test_multiple was added, factoring out most of the content of gdb_test. If it was C code, I would push it as obvious, but because TCL is always full of surprises, I am playing it safe. gdb/testsuite/ChangeLog: * lib/gdb.exp (gdb_test): Remove unused global references. --- gdb/testsuite/lib/gdb.exp | 3 --- 1 file changed, 3 deletions(-) diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 52220d0..f3f53b7 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -976,10 +976,7 @@ proc gdb_test_multiple { command message user_code } { # -1 if there was an internal error. # proc gdb_test { args } { - global verbose global gdb_prompt - global GDB - upvar timeout timeout if [llength $args]>2 then { set message [lindex $args 2]