]> git.ipfire.org Git - thirdparty/binutils-gdb.git/commitdiff
[gdb/testsuite] Remove superfluous -quiet and -ex set width/height 0
authorTom de Vries <tdevries@suse.de>
Fri, 3 May 2024 13:07:33 +0000 (15:07 +0200)
committerTom de Vries <tdevries@suse.de>
Fri, 3 May 2024 13:07:33 +0000 (15:07 +0200)
INTERNAL_GDBFLAGS contains:
- -quiet
- -iex "set width 0"
- -iex "set height 0"

There are test-cases that add these once more.

Clean this up.

Tested on x86_64-linux.

PR testsuite/31649
Bug: https://sourceware.org/bugzilla/show_bug.cgi?id=31649

gdb/testsuite/gdb.base/attach.exp
gdb/testsuite/gdb.base/batch-preserve-term-settings.exp
gdb/testsuite/gdb.base/bp-cmds-execution-x-script.exp
gdb/testsuite/gdb.base/dprintf-execution-x-script.exp
gdb/testsuite/gdb.base/new-ui-pending-input.exp
gdb/testsuite/gdb.base/paginate-execution-startup.exp
gdb/testsuite/gdb.python/py-prompt.exp
gdb/testsuite/gdb.server/server-kill-python.exp
gdb/testsuite/lib/debuginfod-support.exp

index 831e11f96a6f06ffb4cc8b80664af24d3be069a1..2b655e69f8badf31b7f66ec49f881737ccd7bb60 100644 (file)
@@ -485,8 +485,7 @@ proc_with_prefix test_command_line_attach_run {} {
     set test "run to prompt"
     gdb_exit
 
-    set res [gdb_spawn_with_cmdline_opts \
-                "-quiet -iex \"set height 0\" -iex \"set width 0\" --pid=$testpid -ex \"start\""]
+    set res [gdb_spawn_with_cmdline_opts "--pid=$testpid -ex \"start\""]
     if { $res != 0} {
        fail $test
        kill_wait_spawned_process $test_spawn_id
index fbaba634e205fa80f12a0d31c119a61ff0c76b1a..dc2b1ce617ef08b5f342fedb8b38d2fbe90afa2e 100644 (file)
@@ -139,7 +139,6 @@ proc test_terminal_settings_preserved {} {
 
     set test "gdb -batch -ex run"
     append EXTRA_GDBFLAGS "-batch"
-    append EXTRA_GDBFLAGS " -ex \"set height unlimited\""
     append EXTRA_GDBFLAGS " -ex \"start\""
     append EXTRA_GDBFLAGS " --args \"$file_arg\""
     send_gdb "$GDB $INTERNAL_GDBFLAGS $GDBFLAGS $EXTRA_GDBFLAGS [host_info gdb_opts]\n"
index 02719b1a7af7b3bee61d4297d5654cec97e3bee9..25adf015b7f0e51175ff3b8f6347e9aa16d058c4 100644 (file)
@@ -42,7 +42,6 @@ proc test {} {
     set GDBFLAGS "$GDBFLAGS -x $x_file $binfile"
 
     set GDBFLAGS $saved_gdbflags
-    append GDBFLAGS " -ex \"set height unlimited\""
     append GDBFLAGS " -x \"$x_file\""
     append GDBFLAGS " --args \"$binfile\""
 
index af6dd3f900303ce3842a1b3ed4066041fe73def8..12de3aec49450f8e14f0af9d68283c365af406b3 100644 (file)
@@ -37,7 +37,6 @@ set x_file ${srcdir}/${subdir}/$testfile.gdb
 # outside of the save_vars block.)
 save_vars { GDBFLAGS } {
     # Set flags with which to start GDB.
-    append GDBFLAGS " -ex \"set height unlimited\""
     append GDBFLAGS " -x \"$x_file\""
     append GDBFLAGS " --args \"$binfile\""
 
index dc19055264b965b4195a40ff3c50ffc617f38d1a..cfb7ca09434a514f3cca02e7d004e8f55fea198e 100644 (file)
@@ -60,8 +60,6 @@ proc test_command_line_new_ui_pending_input {} {
     set bpline [gdb_get_line_number "set breakpoint here"]
 
     set options ""
-    append options " -iex \"set height 0\""
-    append options " -iex \"set width 0\""
     append options " -iex \"new-ui console $extra_tty_name\""
     append options " -ex \"b $bpline\""
     append options " -ex \"run\""
index 3f0e74e5efac76f56f2a91f6fd0b71ecadb18252..f0f7db5932c6ddd0710bf5ecbc85e9e5d3e7a594 100644 (file)
@@ -38,7 +38,6 @@ proc probe_can_run_cmdline  {} {
     global gdb_prompt
 
     set GDBFLAGS $saved_gdbflags
-    append GDBFLAGS " -ex \"set height 0\""
     append GDBFLAGS " -ex \"start\""
     append GDBFLAGS " --args \"$file_arg\""
 
index b37d2fbd3eb0a9e2575239d5b00a45aaed05bb99..f1f93bff572c823e9fa92e44f865ec3889fb3457 100644 (file)
@@ -32,8 +32,6 @@ save_vars { INTERNAL_GDBFLAGS } {
 
     global GDBFLAGS
     set saved_gdbflags $GDBFLAGS
-    set GDBFLAGS [concat $GDBFLAGS " -ex \"set height 0\""]
-    set GDBFLAGS [concat $GDBFLAGS " -ex \"set width 0\""]
     set GDBFLAGS [concat $GDBFLAGS " -ex \"python p = list()\""]
     set prompt_func "python def foo(x): global p; p.append(x);  return \'(Foo) \'"
     set GDBFLAGS [concat $GDBFLAGS " -ex \"$prompt_func\""]
index f02c69c502f8fc0549dee5069cac24428a2d3cef..e9066caa6cbab09903f387175788528c5f83b3c4 100644 (file)
@@ -55,10 +55,8 @@ close $fd
 
 set host_file1 [gdb_remote_download host $file1]
 
-# Now start GDB, sourcing the python command file we generated above.
-# Set the height and width so we don't end up at a paging prompt.
-if {[gdb_spawn_with_cmdline_opts \
-        "-quiet -iex \"set height 0\" -iex \"set width 0\""] != 0} {
+# Now start GDB.
+if {[gdb_spawn]} {
     fail "spawn"
     return
 }
index bd70a1dfcab2538b4b9566bfa7a614702d6251b7..0096448567e71c97bbf4badd9b4a303b7044b17a 100644 (file)
@@ -35,9 +35,9 @@ proc allow_debuginfod_tests {} {
     #
     # If GDB is built with ASan, it warns that some signal handlers
     # (installed by ASan) exist on startup.  That makes TCL's exec throw an
-    # error.  Disable that by passing --quiet.
+    # error.  This is dealt with by the --quiet in INTERNAL_GDBFLAGS.
     if { [string first "with-debuginfod" \
-             [eval exec $::GDB --quiet $::INTERNAL_GDBFLAGS \
+             [eval exec $::GDB $::INTERNAL_GDBFLAGS \
                   --configuration]] == -1 } {
        return false
     }