diff options
| author | Chris Demetriou <cgd@google.com> | 2003-05-03 06:52:20 +0000 |
|---|---|---|
| committer | Chris Demetriou <cgd@google.com> | 2003-05-03 06:52:20 +0000 |
| commit | 74cb52a637dc91275cfbf4f6b5ff003b0c782e2a (patch) | |
| tree | d39e56752c07802522e7f63871fddb0cbc03da5a /gas/testsuite | |
| parent | 83b5ab55b331ef1f147ff4f06a89cf3301e6079b (diff) | |
| download | gdb-74cb52a637dc91275cfbf4f6b5ff003b0c782e2a.zip gdb-74cb52a637dc91275cfbf4f6b5ff003b0c782e2a.tar.gz gdb-74cb52a637dc91275cfbf4f6b5ff003b0c782e2a.tar.bz2 | |
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.
Diffstat (limited to 'gas/testsuite')
| -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 \ |