From 5019a2755a097da861620fe857cf343442889cd5 Mon Sep 17 00:00:00 2001
From: Rob Savoye <rob@cygnus>
Date: Mon, 30 Aug 1993 23:12:28 +0000
Subject: Add default gdb version so it can be shared.

---
 gdb/testsuite/lib/gdb.exp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'gdb')

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 880ff0f..1518c26 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -24,6 +24,22 @@
 # or by passing arguments.
 
 #
+# gdb_version -- extract and print the version number of gcc
+#
+proc default_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"
+    }
+}
+
+#
 # gdb_unload -- unload a file if one is loaded
 #
 
-- 
cgit v1.1