From 23c6150b6f30dd0e09426652bdf459dfc351e8f8 Mon Sep 17 00:00:00 2001
From: Rob Savoye <rob@cygnus>
Date: Fri, 21 Jan 1994 00:35:57 +0000
Subject: [PATCH] Fix gas_version.

---
 gas/testsuite/lib/gas-defs.exp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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 } {
-- 
2.30.2