From: Rob Savoye <rob@cygnus>
Date: Fri, 21 Jan 1994 00:35:57 +0000 (+0000)
Subject: Fix gas_version.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=23c6150b6f30dd0e09426652bdf459dfc351e8f8;p=binutils-gdb.git

Fix gas_version.
---

diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index ad04a9959e8..d666f05d9c6 100644
--- a/gas/testsuite/lib/gas-defs.exp
+++ b/gas/testsuite/lib/gas-defs.exp
@@ -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 } {