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 | |
| 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')
| -rw-r--r-- | binutils/ChangeLog | 5 | ||||
| -rw-r--r-- | binutils/testsuite/lib/binutils-common.exp | 18 |
2 files changed, 20 insertions, 3 deletions
diff --git a/binutils/ChangeLog b/binutils/ChangeLog index 2e31085..74bf211 100644 --- a/binutils/ChangeLog +++ b/binutils/ChangeLog @@ -1,3 +1,8 @@ +2020-01-27 Alan Modra <amodra@gmail.com> + + * testsuite/lib/binutils-common.exp (big_or_little_endian): Replace + case statement with switch statement. + 2020-01-24 Nick Clifton <nickc@redhat.com> * readelf.c (get_build_id): Fix warning messages about corrupt 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 } |