diff options
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/config/unix-gdb.exp | 11 | ||||
| -rw-r--r-- | gdb/testsuite/config/vx-gdb.exp | 8 |
2 files changed, 2 insertions, 17 deletions
diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp index e0a7614..855ffde 100644 --- a/gdb/testsuite/config/unix-gdb.exp +++ b/gdb/testsuite/config/unix-gdb.exp @@ -39,16 +39,7 @@ if ![info exists decimal] then { # gdb_version -- extract and print the version number of gcc # proc gdb_version {} { - global GDB - global GDBFLAGS - if {[which $GDB] != 0} then { - set tmp [exec echo "q" | $GDB] - set version "[lindex $tmp [lsearch $tmp "\[0-9\]*"]]" - set version "[string range $version 0 [expr [string length $version]-2]]" - clone_output "[which $GDB] version $version $GDBFLAGS\n" - } else { - warning "$GDB does not exist" -} + default_gdb_version } # diff --git a/gdb/testsuite/config/vx-gdb.exp b/gdb/testsuite/config/vx-gdb.exp index 622572e..eb7c2d4 100644 --- a/gdb/testsuite/config/vx-gdb.exp +++ b/gdb/testsuite/config/vx-gdb.exp @@ -37,13 +37,7 @@ if ![info exists prompt] then { # gdb_version -- extract and print the version number of gcc # proc gdb_version {} { - global GDB - global GDBFLAGS - global prompt - set tmp [exec echo "q" | $GDB] - set version [lindex $tmp [lsearch $tmp "\[0-9\]*"]] - set version [string range $version 0 [expr [string length $version]-2]] - clone_output "[which $GDB] version $version $GDBFLAGS\n" + default_gdb_version } # |