diff options
| author | Alan Modra <amodra@gmail.com> | 2020-01-27 10:51:52 +1030 |
|---|---|---|
| committer | Alan Modra <amodra@gmail.com> | 2020-01-27 22:52:15 +1030 |
| commit | e3696f67abfc46dcac6c9bbe47f8e25e34b17be5 (patch) | |
| tree | e241615305663b2d2fee857efefb7001014b78b1 /binutils/testsuite | |
| parent | 7568c93bf95a518797dfb2987b04911164c14a36 (diff) | |
| download | gdb-e3696f67abfc46dcac6c9bbe47f8e25e34b17be5.zip gdb-e3696f67abfc46dcac6c9bbe47f8e25e34b17be5.tar.gz gdb-e3696f67abfc46dcac6c9bbe47f8e25e34b17be5.tar.bz2 | |
Replace deprecated tcl case statements with switch statements
binutils/
* testsuite/lib/binutils-common.exp (big_or_little_endian): Replace
case statement with switch statement.
gas/
* testsuite/gas/all/gas.exp: Replace case statements with switch
statements.
* testsuite/gas/elf/elf.exp: Likewise.
* testsuite/gas/macros/macros.exp: Likewise.
* testsuite/lib/gas-defs.exp: Likewise.
ld/
* testsuite/ld-elfvers/vers.exp: Replace case statements with
switch statements.
* testsuite/ld-ifunc/ifunc.exp: Likewise.
* testsuite/ld-unique/unique.exp: Likewise.
Diffstat (limited to 'binutils/testsuite')
| -rw-r--r-- | binutils/testsuite/lib/binutils-common.exp | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/binutils/testsuite/lib/binutils-common.exp b/binutils/testsuite/lib/binutils-common.exp index d5951e6..a253c01 100644 --- a/binutils/testsuite/lib/binutils-common.exp +++ b/binutils/testsuite/lib/binutils-common.exp @@ -1399,12 +1399,24 @@ proc big_or_little_endian {} { set tmp_flags " [board_info [target_info name] multilib_flags]" foreach x $tmp_flags { - case $x in { - {*big*endian eb EB -eb -EB -mb -meb} { + switch -glob $x { + *big*endian - + eb - + EB - + -eb - + -EB - + -mb - + -meb { set flags " -EB" return $flags } - {*little*endian el EL -el -EL -ml -mel} { + *little*endian - + el - + EL - + -el - + -EL - + -ml - + -mel { set flags " -EL" return $flags } |