diff options
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 16 |
1 files changed, 16 insertions, 0 deletions
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 # |