espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-30 17:31:13 +08:00
Code Issues Packages Projects Releases 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
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 # gdb_version -- extract and print the version number of gcc
# #
proc gdb_version {} { proc gdb_version {} {
global GDB default_gdb_version
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"
}
} }
# #

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 # gdb_version -- extract and print the version number of gcc
# #
proc gdb_version {} { proc gdb_version {} {
global GDB default_gdb_version
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"
} }
# #