diff options
| -rw-r--r-- | gas/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gas/testsuite/gas/mips/mips.exp | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 93c22dd..2da83f2 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 2208b1c..3df1a12 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 \ |