From: Chris Demetriou <cgd@google.com>
Date: Sat, 3 May 2003 06:52:20 +0000 (+0000)
Subject: 2003-05-02  Chris Demetriou  <cgd@broadcom.com>
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=74cb52a637dc91275cfbf4f6b5ff003b0c782e2a;p=binutils-gdb.git

2003-05-02  Chris Demetriou  <cgd@broadcom.com>

        * gas/mips/mips.exp (mips_arch_init): Reimplement in
        a way that's safe with ancient versions of tcl/expect.
---

diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog
index 93c22dd4c3f..2da83f2f167 100644
--- a/gas/testsuite/ChangeLog
+++ b/gas/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2003-05-02  Chris Demetriou  <cgd@broadcom.com>
+
+	* gas/mips/mips.exp (mips_arch_init): Reimplement in
+	a way that's safe with ancient versions of tcl/expect.
+
 2003-05-01  Chris Demetriou  <cgd@broadcom.com>
 
 	* gas/mips/mips.exp (mips_arch_init): New function.
diff --git a/gas/testsuite/gas/mips/mips.exp b/gas/testsuite/gas/mips/mips.exp
index 2208b1c7c86..3df1a12abe1 100644
--- a/gas/testsuite/gas/mips/mips.exp
+++ b/gas/testsuite/gas/mips/mips.exp
@@ -84,7 +84,9 @@
 # to be empty.
 proc mips_arch_init {} {
     global mips_arches
-    array unset mips_arches
+
+    # Catch becuase the variable won't be set the first time through.
+    catch {unset mips_arches}
 }
 
 # mips_arch_create ARCH GPRSIZE EXTENDS PROPS AS_FLAGS OBJDUMP_FLAGS \