mirror of git://gcc.gnu.org/git/gcc.git
gdb-test.exp (gdb-test): Turn off GDB's auto-load, list loaded libs.
2014-07-11 Samuel Bronson <naesten@gmail.com> * testsuite/lib/gdb-test.exp (gdb-test): Turn off GDB's auto-load, list loaded libs. From-SVN: r212459
This commit is contained in:
parent
7cd41cda09
commit
f4da031c41
|
|
@ -3,6 +3,9 @@
|
||||||
* testsuite/lib/libstdc++.exp (libstdc++_init): Set $GCC_COLORS=""
|
* testsuite/lib/libstdc++.exp (libstdc++_init): Set $GCC_COLORS=""
|
||||||
instead of insisting that GCC understand -fdiagnostics-color=never
|
instead of insisting that GCC understand -fdiagnostics-color=never
|
||||||
|
|
||||||
|
* testsuite/lib/gdb-test.exp (gdb-test): Turn off GDB's auto-load,
|
||||||
|
list loaded libs.
|
||||||
|
|
||||||
2014-07-11 Samuel Bronson <naesten@gmail.com>
|
2014-07-11 Samuel Bronson <naesten@gmail.com>
|
||||||
Matthias Klose <doko@ubuntu.com>
|
Matthias Klose <doko@ubuntu.com>
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -116,10 +116,18 @@ proc gdb-test { marker {selector {}} } {
|
||||||
global gdb_tests
|
global gdb_tests
|
||||||
|
|
||||||
set fd [open $cmd_file "w"]
|
set fd [open $cmd_file "w"]
|
||||||
|
# We don't want the system copy of the pretty-printers loaded
|
||||||
|
puts $fd "set auto-load no"
|
||||||
|
# Now that we've disabled auto-load, it's safe to set the target file
|
||||||
|
puts $fd "file ./$output_file"
|
||||||
|
# Load & register *our* copy of the pretty-printers
|
||||||
puts $fd "source $pycode"
|
puts $fd "source $pycode"
|
||||||
puts $fd "python register_libstdcxx_printers(None)"
|
puts $fd "python register_libstdcxx_printers(None)"
|
||||||
|
# And start the program
|
||||||
puts $fd "break $line"
|
puts $fd "break $line"
|
||||||
puts $fd "run"
|
puts $fd "run"
|
||||||
|
# So we can verify that we're using the right libs ...
|
||||||
|
puts $fd "info share"
|
||||||
|
|
||||||
set count 0
|
set count 0
|
||||||
foreach {var result kind} $gdb_tests {
|
foreach {var result kind} $gdb_tests {
|
||||||
|
|
@ -147,8 +155,7 @@ proc gdb-test { marker {selector {}} } {
|
||||||
puts $fd "quit"
|
puts $fd "quit"
|
||||||
close $fd
|
close $fd
|
||||||
|
|
||||||
send_log "Spawning: $gdb_name -nx -nw -quiet -batch -x $cmd_file ./$output_file\n"
|
set res [remote_spawn target "$gdb_name -nx -nw -quiet -batch -x $cmd_file "]
|
||||||
set res [remote_spawn target "$gdb_name -nx -nw -quiet -batch -x $cmd_file ./$output_file"]
|
|
||||||
if { $res < 0 || $res == "" } {
|
if { $res < 0 || $res == "" } {
|
||||||
unsupported "$testname"
|
unsupported "$testname"
|
||||||
return
|
return
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue