* gas/mips/mips.exp (mips_arch_init): Reimplement in
a way that's safe with ancient versions of tcl/expect.
+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.
2003-05-01 Chris Demetriou <cgd@broadcom.com>
* gas/mips/mips.exp (mips_arch_init): New function.
# to be empty.
proc mips_arch_init {} {
global mips_arches
# 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 \
}
# mips_arch_create ARCH GPRSIZE EXTENDS PROPS AS_FLAGS OBJDUMP_FLAGS \