* lib/gdb.exp (default_gdb_version): A version number must start

with a digit, but other than that contains all characters up to
	the first whitespace character.
This commit is contained in:
Jim Kingdon 1995-03-27 16:05:08 +00:00
parent d894a6e99b
commit b34b32e7f9
2 changed files with 7 additions and 1 deletions

View File

@ -1,3 +1,9 @@
Mon Mar 27 08:00:34 1995 Jim Kingdon (kingdon@lioth.cygnus.com)
* lib/gdb.exp (default_gdb_version): A version number must start
with a digit, but other than that contains all characters up to
the first whitespace character.
Sun Mar 26 13:19:32 1995 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.base/commands.exp (breakpoint_command_test): New tests.

View File

@ -63,7 +63,7 @@ proc default_gdb_version {} {
global GDBFLAGS
if {[which $GDB] != 0} then {
set tmp [exec echo "q" | $GDB -nw $GDBFLAGS]
regexp " \[0-9.\]+" $tmp version
regexp " \[0-9\]\[^ \t\n\]+" $tmp version
clone_output "[which $GDB] version$version -nw $GDBFLAGS \n"
} else {
warning "$GDB does not exist"