From: Rob Savoye <rob@cygnus>
Date: Mon, 30 Aug 1993 23:28:57 +0000 (+0000)
Subject: Use default version procedure.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=1c65406fef17d29139ba633ca5b142990f862fee;p=binutils-gdb.git

Use default version procedure.
---

diff --git a/gdb/testsuite/config/unix-gdb.exp b/gdb/testsuite/config/unix-gdb.exp
index e0a7614bd3e..855ffdef185 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 622572edaf6..eb7c2d45220 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
 }
 
 #