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 93c22dd..2da83f2 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 2208b1c..3df1a12 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 \