From b34b32e7f91f07a66bf936b7050ac6fbdd69a239 Mon Sep 17 00:00:00 2001 From: Jim Kingdon Date: Mon, 27 Mar 1995 16:05:08 +0000 Subject: [PATCH] * 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. --- gdb/testsuite/ChangeLog | 6 ++++++ gdb/testsuite/lib/gdb.exp | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index f27584cad8d..59e7f048c4d 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -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. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index e91db0eeaa3..cec1f2765ca 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -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" -- 2.30.2