OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix gas_version.

This commit is contained in:
Rob Savoye 1994-01-21 00:35:57 +00:00
parent dbb0fae2de
commit 23c6150b6f
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gas/testsuite/lib/gas-defs.exp
View File

@ -24,10 +24,9 @@ proc gas_version {} {
catch "exec $AS -version < /dev/null" tmp
# Should find a way to discard constant parts, keep whatever's
# left, so the version string could be almost anything at all...
regexp " \[0-9\]\[0-9\.a-zA-Z-\]+" $tmp version
regexp "version (cygnus-|)\[-0-9.a-zA-Z-\]+" $tmp version
set tmp $version
regexp "\[0-9\.a-zA-Z-\]+" $tmp version
clone_output "[which $AS] version $version\n"
clone_output "[which $AS] $version\n"
unset tmp
unset version
}
@ -123,6 +122,9 @@ proc gas_test { file as_opts var_opts testname } {
want_no_output "$testname ($extra_opts)"
}
}
if [info exists errorInfo] then {
unset errorInfo
}
}
proc gas_test_ignore_stdout { file as_opts testname } {