From 1c65406fef17d29139ba633ca5b142990f862fee Mon Sep 17 00:00:00 2001
From: Rob Savoye <rob@cygnus>
Date: Mon, 30 Aug 1993 23:28:57 +0000
Subject: Use default version procedure.

---
 gdb/testsuite/config/unix-gdb.exp | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'gdb/testsuite/config/unix-gdb.exp')

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
 }
 
 #
-- 
cgit v1.1