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
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"
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\""
# 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\""
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\""
global gdb_prompt
set GDBFLAGS $saved_gdbflags
- append GDBFLAGS " -ex \"set height 0\""
append GDBFLAGS " -ex \"start\""
append GDBFLAGS " --args \"$file_arg\""
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\""]
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
}
#
# 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
}