Add default gdb version so it can be shared.

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 880ff0f8d6c01d305547f46ad5ccb1500c674519..1518c26e320d3a9904af588b7473eee64829f885 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -23,6 +23,22 @@
 # need to be modified for any target, it can be done with a variable
 # 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
 #