darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use default version procedure.

Browse source
This commit is contained in:
Rob Savoye 1993-08-30 23:28:57 +00:00
parent 5019a2755a
commit 1c65406fef
2 changed files with 2 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gdb/testsuite/config/unix-gdb.exp
View file

@ -39,16 +39,7 @@ if ![info exists decimal] then {
# gdb_version -- extract and print the version number of gcc
#
proc 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"
}
default_gdb_version
}
#

8
gdb/testsuite/config/vx-gdb.exp
View file

@ -37,13 +37,7 @@ if ![info exists prompt] then {
# gdb_version -- extract and print the version number of gcc
#
proc gdb_version {} {
global GDB
global GDBFLAGS
global prompt
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"
default_gdb_version
}
#