Use default version procedure.

diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp
index e0a7614..855ffde 100644 (file)
--- 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 (file)
--- 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
 }
 
 #