diff options
-rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | gdb/testsuite/lib/gdb.exp | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index f27584c..59e7f04 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 e91db0e..cec1f27 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" |