diff options
author | Rob Savoye <rob@cygnus> | 1993-08-30 23:28:57 +0000 |
---|---|---|
committer | Rob Savoye <rob@cygnus> | 1993-08-30 23:28:57 +0000 |
commit | 1c65406fef17d29139ba633ca5b142990f862fee (patch) | |
tree | 82421c1c2a85bd411f4c2f1e35b4e7fbbad65b75 | |
parent | 5019a2755a097da861620fe857cf343442889cd5 (diff) | |
download | gdb-1c65406fef17d29139ba633ca5b142990f862fee.zip gdb-1c65406fef17d29139ba633ca5b142990f862fee.tar.gz gdb-1c65406fef17d29139ba633ca5b142990f862fee.tar.bz2 |
Use default version procedure.
-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 } # |