* 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:
parent
d894a6e99b
commit
b34b32e7f9
|
@ -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)
|
Sun Mar 26 13:19:32 1995 Jim Kingdon (kingdon@lioth.cygnus.com)
|
||||||
|
|
||||||
* gdb.base/commands.exp (breakpoint_command_test): New tests.
|
* gdb.base/commands.exp (breakpoint_command_test): New tests.
|
||||||
|
|
|
@ -63,7 +63,7 @@ proc default_gdb_version {} {
|
||||||
global GDBFLAGS
|
global GDBFLAGS
|
||||||
if {[which $GDB] != 0} then {
|
if {[which $GDB] != 0} then {
|
||||||
set tmp [exec echo "q" | $GDB -nw $GDBFLAGS]
|
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"
|
clone_output "[which $GDB] version$version -nw $GDBFLAGS \n"
|
||||||
} else {
|
} else {
|
||||||
warning "$GDB does not exist"
|
warning "$GDB does not exist"
|
||||||
|
|
Loading…
Reference in New Issue