* config/udi.exp,unix.exp: Transform tool name.

* binutils.all/*.exp: Clear errorInfo after exec.
This commit is contained in:
Rob Savoye 1993-11-03 18:15:18 +00:00
parent 87cd094b7c
commit 73e1e09b8e
2 changed files with 34 additions and 18 deletions

View file

@ -21,15 +21,23 @@
load_lib util-defs.exp
#
# nm_version -- extract and print the version number of nm
#
proc nm_version { } {
set tmp [exec $NM +version]
regexp " \[0-9\.\]+" $tmp version
clone_output "[which $NM] version $version\n"
unset tmp
unset version
if ![info exists NM] then {
set NM [transform nm]
}
if ![info exists NMFLAGS] then {
set NMFLAGS ""
}
if ![info exists SIZE] then {
set SIZE [transform size]
}
if ![info exists SIZEFLAGS] then {
set SIZEFLAGS ""
}
if ![info exists OBJDUMP] then {
set OBJDUMP [transform objdump]
}
if ![info exists OBJDUMPFLAGS] then {
set OBJDUMPFLAGS ""
}
#

View file

@ -21,15 +21,23 @@
load_lib util-defs.exp
#
# nm_version -- extract and print the version number of nm
#
proc nm_version { } {
set tmp [exec $NM +version]
regexp " \[0-9\.\]+" $tmp version
clone_output "[which $NM] version $version\n"
unset tmp
unset version
if ![info exists NM] then {
set NM [transform nm]
}
if ![info exists NMFLAGS] then {
set NMFLAGS ""
}
if ![info exists SIZE] then {
set SIZE [transform size]
}
if ![info exists SIZEFLAGS] then {
set SIZEFLAGS ""
}
if ![info exists OBJDUMP] then {
set OBJDUMP [transform objdump]
}
if ![info exists OBJDUMPFLAGS] then {
set OBJDUMPFLAGS ""
}
#