aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRob Savoye <rob@cygnus>1993-08-30 23:28:57 +0000
committerRob Savoye <rob@cygnus>1993-08-30 23:28:57 +0000
commit1c65406fef17d29139ba633ca5b142990f862fee (patch)
tree82421c1c2a85bd411f4c2f1e35b4e7fbbad65b75
parent5019a2755a097da861620fe857cf343442889cd5 (diff)
downloadgdb-1c65406fef17d29139ba633ca5b142990f862fee.zip
gdb-1c65406fef17d29139ba633ca5b142990f862fee.tar.gz
gdb-1c65406fef17d29139ba633ca5b142990f862fee.tar.bz2
Use default version procedure.
-rw-r--r--gdb/testsuite/config/unix-gdb.exp11
-rw-r--r--gdb/testsuite/config/vx-gdb.exp8
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
}
#