[gdb/testsuite] Factor out dump_info in gdb.testsuite/dump-system-info.exp

Factor out new proc dump_info in test-case gdb.testsuite/dump-system-info.exp,
and in the process:
- fix a few typos
- remove unnecessary "test -r /proc/cpuinfo"

Tested on x86_64-linux.

Co-Authored-By: Pedro Alves <pedro@palves.net>
This commit is contained in:
Tom de Vries
2021-09-24 16:56:50 +02:00
parent 62df62b230
commit 85a0bae983

View File

@ -15,34 +15,24 @@
# The purpose of this test-case is to dump /proc/cpuinfo and similar system
# info into gdb.log.
# Check if /proc/cpuinfo is available.
set res [remote_exec target "test -r /proc/cpuinfo"]
set status [lindex $res 0]
set output [lindex $res 1]
if { $status == 0 && $output == "" } {
verbose -log "Cpuinfo available, dumping:"
remote_exec target "cat /proc/cpuinfo"
} else {
verbose -log "Cpuinfo not available"
proc dump_info {cmd {what ""}} {
if {$what == ""} {
set what $cmd
}
set res [remote_exec target $cmd]
set status [lindex $res 0]
set output [lindex $res 1]
if { $status == 0 } {
verbose -log "$what available, dumping:\n$output"
} else {
verbose -log "$what not available"
}
}
set res [remote_exec target "lsb_release -a"]
set status [lindex $res 0]
set output [lindex $res 1]
if { $status == 0 } {
verbose -log "lsb_release -a availabe, dumping:\n$output"
} else {
verbose -log "lsb_release -a not available"
}
set res [remote_exec target "uname -a"]
set status [lindex $res 0]
set output [lindex $res 1]
if { $status == 0 } {
verbose -log "uname -a availabe, dumping:\n$output"
} else {
verbose -log "uname -a not available"
}
dump_info "cat /proc/cpuinfo" "Cpuinfo"
dump_info "uname -a"
dump_info "lsb_release -a"