From 74cb52a637dc91275cfbf4f6b5ff003b0c782e2a Mon Sep 17 00:00:00 2001 From: Chris Demetriou Date: Sat, 3 May 2003 06:52:20 +0000 Subject: [PATCH] 2003-05-02 Chris Demetriou * gas/mips/mips.exp (mips_arch_init): Reimplement in a way that's safe with ancient versions of tcl/expect. --- gas/testsuite/ChangeLog | 5 +++++ gas/testsuite/gas/mips/mips.exp | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gas/testsuite/ChangeLog b/gas/testsuite/ChangeLog index 93c22dd4c3f..2da83f2f167 100644 --- a/gas/testsuite/ChangeLog +++ b/gas/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2003-05-02 Chris Demetriou + + * 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 * 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 2208b1c7c86..3df1a12abe1 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 \ -- 2.30.2