Fix gas_version.

diff --git a/gas/testsuite/lib/gas-defs.exp b/gas/testsuite/lib/gas-defs.exp
index ad04a9959e8de5fa9ed2c985b4735c9e8b146bd5..d666f05d9c621b1cd051575ad6d0d03e09894850 100644 (file)
--- 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 } {