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 93c22dd4c3fe7c83ca57898ebe87f417a452b7f8..2da83f2f167c9137b2fcf6f9f93b4bc1c427c691 100644 (file)
--- 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 2208b1c7c8678591144571184449848d90acd8e4..3df1a12abe1a54444ad4ff5aed2d2d7732ce0014 100644 (file)
--- 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 \