From patchwork Thu Feb 27 13:27:55 2020 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Tom de Vries X-Patchwork-Id: 38337 Received: (qmail 83570 invoked by alias); 27 Feb 2020 13:28:01 -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 83562 invoked by uid 89); 27 Feb 2020 13:28:01 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-25.1 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_0, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, KAM_SHORT, SPF_PASS autolearn=ham version=3.3.1 spammy= X-HELO: mx2.suse.de Received: from mx2.suse.de (HELO mx2.suse.de) (195.135.220.15) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Thu, 27 Feb 2020 13:27:59 +0000 Received: from relay2.suse.de (unknown [195.135.220.254]) by mx2.suse.de (Postfix) with ESMTP id 557D7AF19 for ; Thu, 27 Feb 2020 13:27:57 +0000 (UTC) Date: Thu, 27 Feb 2020 14:27:55 +0100 From: Tom de Vries To: gdb-patches@sourceware.org Subject: [committed][gdb/testsuite] Remove unused globals Message-ID: <20200227132754.GA22633@delia> MIME-Version: 1.0 Content-Disposition: inline User-Agent: Mutt/1.10.1 (2018-07-13) X-IsSubscribed: yes Hi, Remove unused global variable declarations. Tested on x86_64-linux. Committed to trunk. Thanks, - Tom [gdb/testsuite] Remove unused globals gdb/testsuite/ChangeLog: 2020-02-27 Tom de Vries * config/sid.exp: Remove unused globals. * gdb.base/attach.exp: Same. * gdb.base/catch-load.exp: Same. * gdb.base/dbx.exp: Same. * lib/gdb.exp: Same. * lib/mi-support.exp: Same. * lib/prompt.exp: Same. --- gdb/testsuite/config/sid.exp | 2 -- gdb/testsuite/gdb.base/attach.exp | 10 ---------- gdb/testsuite/gdb.base/catch-load.exp | 3 +-- gdb/testsuite/gdb.base/dbx.exp | 2 -- gdb/testsuite/lib/gdb.exp | 4 ---- gdb/testsuite/lib/mi-support.exp | 5 +---- gdb/testsuite/lib/prompt.exp | 1 - 7 files changed, 2 insertions(+), 25 deletions(-) diff --git a/gdb/testsuite/config/sid.exp b/gdb/testsuite/config/sid.exp index ec2f4430f2..5e79823675 100644 --- a/gdb/testsuite/config/sid.exp +++ b/gdb/testsuite/config/sid.exp @@ -15,8 +15,6 @@ # along with this program. If not, see . proc sid_start {} { - global verbose - set port [lindex [split [target_info netport] ":"] 1] # Set a default endianness diff --git a/gdb/testsuite/gdb.base/attach.exp b/gdb/testsuite/gdb.base/attach.exp index 5a1d7a8473..32f72e2a9a 100644 --- a/gdb/testsuite/gdb.base/attach.exp +++ b/gdb/testsuite/gdb.base/attach.exp @@ -53,10 +53,6 @@ proc_with_prefix do_attach_failure_tests {} { global binfile global escapedbinfile global srcfile - global testfile - global subdir - global timeout - global decimal clean_restart $binfile @@ -205,8 +201,6 @@ proc_with_prefix do_attach_tests {} { global binfile global escapedbinfile global srcfile - global testfile - global subdir global timeout global decimal @@ -439,10 +433,6 @@ proc_with_prefix do_call_attach_tests {} { proc_with_prefix do_command_attach_tests {} { global gdb_prompt global binfile - global verbose - global GDB - global INTERNAL_GDBFLAGS - global GDBFLAGS if ![isnative] then { unsupported "command attach test" diff --git a/gdb/testsuite/gdb.base/catch-load.exp b/gdb/testsuite/gdb.base/catch-load.exp index 62b43c801d..17389e53b8 100644 --- a/gdb/testsuite/gdb.base/catch-load.exp +++ b/gdb/testsuite/gdb.base/catch-load.exp @@ -46,8 +46,7 @@ if { [gdb_compile_shlib "${srcdir}/${subdir}/${srcfile2}" ${binfile2} {debug}] ! # MATCH is a boolean saying whether we expect the catchpoint to be hit. proc one_catch_load_test {scenario kind match sostop} { with_test_prefix "${scenario}" { - global verbose testfile testfile2 binfile2 binfile2_dlopen - global srcfile + global testfile testfile2 binfile2 binfile2_dlopen global decimal gdb_prompt clean_restart $testfile diff --git a/gdb/testsuite/gdb.base/dbx.exp b/gdb/testsuite/gdb.base/dbx.exp index d911fedf92..4299c44368 100644 --- a/gdb/testsuite/gdb.base/dbx.exp +++ b/gdb/testsuite/gdb.base/dbx.exp @@ -26,7 +26,6 @@ if {[build_executable $testfile.exp $testfile \ # start gdb -- start gdb running, default procedure # proc dbx_gdb_start { } { - global verbose global GDB global INTERNAL_GDBFLAGS GDBFLAGS global prompt @@ -153,7 +152,6 @@ set old_gdb_file_cmd_args [info args gdb_file_cmd] set old_gdb_file_cmd_body [info body gdb_file_cmd] proc gdb_file_cmd {arg} { - global verbose global loadpath global loadfile global GDB diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 81518b9646..26795d0152 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -159,7 +159,6 @@ proc gdb_version { } { # proc gdb_unload {} { - global verbose global GDB global gdb_prompt send_gdb "file\n" @@ -1617,7 +1616,6 @@ proc gdb_reinitialize_dir { subdir } { proc default_gdb_exit {} { global GDB global INTERNAL_GDBFLAGS GDBFLAGS - global verbose global gdb_spawn_id inferior_spawn_id global inotify_log_file @@ -1683,7 +1681,6 @@ proc default_gdb_exit {} { proc gdb_file_cmd { arg } { global gdb_prompt - global verbose global GDB global last_loaded_file @@ -5131,7 +5128,6 @@ set debug_format "unknown" proc get_debug_format { } { global gdb_prompt - global verbose global expect_out global debug_format diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index 2c67cc287d..1e59919ab4 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -55,7 +55,6 @@ proc mi_gdb_exit {} { proc mi_uncatched_gdb_exit {} { global GDB global INTERNAL_GDBFLAGS GDBFLAGS - global verbose global gdb_spawn_id gdb_main_spawn_id global mi_spawn_id inferior_spawn_id global gdb_prompt @@ -185,7 +184,7 @@ proc mi_gdb_start_separate_mi_tty { args } { # get really slow. Give gdb at least 3 minutes to start up. # proc default_mi_gdb_start { args } { - global verbose use_gdb_stub + global use_gdb_stub global GDB global INTERNAL_GDBFLAGS GDBFLAGS global gdb_prompt @@ -482,7 +481,6 @@ proc mi_gdb_target_cmd { targetname serialport } { # return a -1 if anything goes wrong. # proc mi_gdb_file_cmd { arg } { - global verbose global loadpath global loadfile global GDB @@ -553,7 +551,6 @@ proc mi_gdb_file_cmd { arg } { # return a -1 if anything goes wrong. # proc mi_gdb_target_load { } { - global verbose global loadpath global loadfile global GDB diff --git a/gdb/testsuite/lib/prompt.exp b/gdb/testsuite/lib/prompt.exp index f161fc7d27..c7882b4fb4 100644 --- a/gdb/testsuite/lib/prompt.exp +++ b/gdb/testsuite/lib/prompt.exp @@ -24,7 +24,6 @@ # uses pass if it sees $gdb_prompt, and fail if it sees $gdb_prompt_fail. # proc default_prompt_gdb_start { } { - global verbose global GDB global INTERNAL_GDBFLAGS GDBFLAGS global gdb_prompt