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.

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.

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 \