Replace deprecated tcl case statements with switch statements
authorAlan Modra <amodra@gmail.com>
Mon, 27 Jan 2020 00:21:52 +0000 (10:51 +1030)
committerAlan Modra <amodra@gmail.com>
Mon, 27 Jan 2020 12:22:15 +0000 (22:52 +1030)
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.

binutils/ChangeLog
binutils/testsuite/lib/binutils-common.exp
gas/ChangeLog
gas/testsuite/gas/all/gas.exp
gas/testsuite/gas/elf/elf.exp
gas/testsuite/gas/macros/macros.exp
gas/testsuite/lib/gas-defs.exp
ld/ChangeLog
ld/testsuite/ld-elfvers/vers.exp
ld/testsuite/ld-ifunc/ifunc.exp
ld/testsuite/ld-unique/unique.exp

index 2e310851fae6c60d11565bce9ad353d6026ea53e..74bf211681b8bd39028ce442ed9b20e355e58f8e 100644 (file)
@@ -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
index d5951e62f2c6fa56e4942f48341341e759078c57..a253c01a5cad2fc2c45813983f1aeeffc53b97d1 100644 (file)
@@ -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
                }
index 5d149df14b7933fc70efc56674ccbfa51777bab3..6c182f59e1915a2bd5563bf4ee631236805a46f3 100644 (file)
@@ -1,3 +1,11 @@
+2020-01-27  Alan Modra  <amodra@gmail.com>
+
+       * 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.
+
 2020-01-27  Tamar Christina  <tamar.christina@arm.com>
 
        PR 25403
index 78cd3eb3ea9783d8c5e729ff483cb305b52f0020..d4140537827965447c3d4808a2380337772a809b 100644 (file)
@@ -80,9 +80,9 @@ if { ![ishost "*-*-mingw*"] } then {
 }
 
 # .equ works differently on some targets.
-case $target_triplet in {
-    { hppa*-*-* } { }
-    { *c54x*-*-* } { }
+switch -glob $target_triplet {
+    hppa*-*-* { }
+    *c54x*-*-* { }
     default {
        gas_test "equ-ok.s" "" "" ".equ for symbol already set"
        gas_test_error "equ-bad.s" "" ".equ for symbol already set through .eqv"
@@ -106,19 +106,19 @@ run_dump_test forward
 # mmix doesn't like .L1:
 # ti addresses aren't octets.
 if { ![is_aout_format] } {
-    case $target_triplet in {
-       { hppa*64*-*-* } {
+    switch -glob $target_triplet {
+       hppa*64*-*-* {
            run_dump_test fwdexp
        }
-       { alpha-*-*linux*ecoff } { }
-       { alpha-*-osf* } { }
-       { hppa*-*-hpux* } { }
-       { mep-*-* } { }
-       { mmix-*-* } { }
-       { nds32*-*-* } { }
-       { tic30*-*-* } { }
-       { tic4x*-*-* } { }
-       { tic54x*-*-* } { }
+       alpha-*-*linux*ecoff { }
+       alpha-*-osf* { }
+       hppa*-*-hpux* { }
+       mep-*-* { }
+       mmix-*-* { }
+       nds32*-*-* { }
+       tic30*-*-* { }
+       tic4x*-*-* { }
+       tic54x*-*-* { }
        default {
            run_dump_test fwdexp
        }
@@ -129,23 +129,23 @@ if { ![is_aout_format] } {
 # most of the tests won't work on targets that set linkrelax.
 # 4 octet bytes confuse address matching on ti targets.
 # pdp11 gets unexpected reloc types.
-case $target_triplet in {
-    { alpha*-*-* } { }
-    { am3*-*-* } { }
-    { cr16*-*-* } { }
-    { crx*-*-* } { }
-    { h8300-*-* } { }
-    { mips*-*-* } { }
-    { mn10200-*-* } { }
-    { mn10300-*-* } { }
-    { msp430*-*-* } { }
-    { nds32*-*-* } { }
-    { pdp11-*-* } { }
-    { tic30*-*-* } { }
-    { tic4x*-*-* } { }
-    { tic54x*-*-* } { }
-    { xtensa*-*-* } { }
-    { z80-*-* } { }
+switch -glob $target_triplet {
+    alpha*-*-* { }
+    am3*-*-* { }
+    cr16*-*-* { }
+    crx*-*-* { }
+    h8300-*-* { }
+    mips*-*-* { }
+    mn10200-*-* { }
+    mn10300-*-* { }
+    msp430*-*-* { }
+    nds32*-*-* { }
+    pdp11-*-* { }
+    tic30*-*-* { }
+    tic4x*-*-* { }
+    tic54x*-*-* { }
+    xtensa*-*-* { }
+    z80-*-* { }
     default {
        run_dump_test redef
        # These targets fail redef2 because they disallow redefined
@@ -269,10 +269,10 @@ if {    ![istarget *c30*-*-*]
 
 # ".struct" and ".align" have different meanings on c54x
 # These directives are done in the c54x-specific tests instead
-case $target_triplet in {
-    { hppa*-*-* } { }
-    { *c4x*-*-* } { }
-    { *c54x*-*-* } { }
+switch -glob $target_triplet {
+    hppa*-*-* { }
+    *c4x*-*-* { }
+    *c54x*-*-* { }
     default {
        run_dump_test struct
        run_dump_test align
@@ -281,14 +281,14 @@ case $target_triplet in {
 }
 
 # '<' and '>' appear to have special meanings on the excluded targets
-case $target_triplet in {
-    { frv-*-* } { }
-    { hppa*-*-* } { }
-    { m32r-*-* } { }
-    { mmix-*-* } { }
-    { *c4x*-*-* } { }
-    { *c54x*-*-* } { }
-    { bfin-*-* } { }
+switch -glob $target_triplet {
+    frv-*-* { }
+    hppa*-*-* { }
+    m32r-*-* { }
+    mmix-*-* { }
+    *c4x*-*-* { }
+    *c54x*-*-* { }
+    bfin-*-* { }
     default {
        run_dump_test altmacro
        # The second test is valid only when '!' is not a comment
@@ -342,14 +342,14 @@ proc test_cond {} {
 # not limited to the fact that it depends on specific section
 # names appearing in the output file.
 # Again, p2align doesn't work on c54x and related targets.
-case $target_triplet in {
-    { alpha-*-linux*ecoff} { }
-    { alpha-*-osf*} { }
-    { hppa*-*-* } { }
-    { *c4x*-*-* } { }
-    { *c54x*-*-* } { }
-    { rl78-*-* } { }
-    { rx-*-* } { }
+switch -glob $target_triplet {
+    alpha-*-linux*ecoff { }
+    alpha-*-osf* { }
+    hppa*-*-* { }
+    *c4x*-*-* { }
+    *c54x*-*-* { }
+    rl78-*-* { }
+    rx-*-* { }
     default {
         test_cond
        remote_download host "$srcdir/$subdir/incbin.dat"
@@ -394,11 +394,11 @@ run_dump_test quad
 run_dump_test octa
 
 # .set works differently on some targets.
-case $target_triplet in {
-    { alpha*-*-* } { }
-    { mips*-*-* } { }
-    { *c54x*-*-* } { }
-    { z80-*-* } { }
+switch -glob $target_triplet {
+    alpha*-*-* { }
+    mips*-*-* { }
+    *c54x*-*-* { }
+    z80-*-* { }
     default {
        run_dump_test weakref1
        run_dump_test weakref1g
@@ -426,17 +426,17 @@ dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/err-*.s $srcdir/$subdir/warn
 dg-finish
 
 # Set $nop_type appropriately to indicate the NOP instruction mnemonic.
-case $target_triplet in {
-    { "bpf-*-*" } {
+switch -glob $target_triplet {
+    bpf-*-* {
         set nop_type 6
     }
-    { "mmix-*-*" } {
+    mmix-*-* {
        set nop_type 5
     }
-    { "or1k*-*-*" } {
+    or1k*-*-* {
        set nop_type 2
     }
-    { "ia64-*-*" } {
+    ia64-*-* {
        set nop_type 1
     }
     default {
index 746ff7eea0ddb323a18ed64a5699e6734be890dc..5a298fe5832600c9de0286a3703839affdb6ae21 100644 (file)
@@ -112,14 +112,15 @@ if { [is_elf_format] } then {
        && ![istarget "am3*-*-*"]} then {
       run_dump_test "ehopt0"
     }
-    case $target_triplet in {
-       { m68k-*-* m68[03]??-*-* } {
+    switch -glob $target_triplet {
+       m68k-*-* -
+       m68[03]??-*-* {
            run_dump_test "file" { { as "--defsym m68k=1" } }
        }
-       { mmix-*-* } {
+       mmix-*-* {
            run_dump_test "file" { { as "--defsym mmix=1" } }
        }
-       { xtensa*-*-* } {
+       xtensa*-*-* {
            run_dump_test "file" { { as "--rename-section file.s=file.c" } }
        }
        default {
@@ -135,37 +136,37 @@ if { [is_elf_format] } then {
     run_dump_test "group1b"
     run_dump_test "group2"
     run_dump_test "group3"
-    case $target_triplet in {
-       { hppa64*-*-hpux* } { }
-       { riscv*-*-* } { }
+    switch -glob $target_triplet {
+       hppa64*-*-hpux* { }
+       riscv*-*-* { }
        default {
            run_dump_test "groupautoa"
        }
     }
-    case $target_triplet in {
-       { hppa64*-*-hpux* } { }
-       { riscv*-*-* } { }
-       { xtensa*-*-* } { }
+    switch -glob $target_triplet {
+       hppa64*-*-hpux* { }
+       riscv*-*-* { }
+       xtensa*-*-* { }
        default {
            run_dump_test "groupautob"
        }
     }
-    case $target_triplet in {
-       { alpha*-*-* } { }
-       { am3*-*-* } { }
-       { *c54x*-*-* } { }
-       { cr16*-*-* } { }
-       { crx*-*-* } { }
-       { h8300-*-* } { }
-       { hppa*-*-* } { }
-       { iq2000*-*-* } { }
-       { mips*-*-* } { }
-       { mn10200-*-* } { }
-       { mn10300-*-* } { }
-       { msp43*-*-* } { }
-       { rl78-*-* } { }
-       { riscv*-*-* } { }
-       { rx-*-* } { }
+    switch -glob $target_triplet {
+       alpha*-*-* { }
+       am3*-*-* { }
+       *c54x*-*-* { }
+       cr16*-*-* { }
+       crx*-*-* { }
+       h8300-*-* { }
+       hppa*-*-* { }
+       iq2000*-*-* { }
+       mips*-*-* { }
+       mn10200-*-* { }
+       mn10300-*-* { }
+       msp43*-*-* { }
+       rl78-*-* { }
+       riscv*-*-* { }
+       rx-*-* { }
        default {
            # The next test can fail if the target does not convert fixups
            # against ordinary symbols into relocations against section symbols.
@@ -183,11 +184,12 @@ if { [is_elf_format] } then {
     # new sections created without atrributes.
     if {! [istarget "h8300-*-*"]} then {
        set as_flags "-al --generate-missing-build-notes=no"
-       case $target_triplet in {
-           { i*86-*-* x86_64-*-* } {
+       switch -glob $target_triplet {
+           i*86-*-* -
+           x86_64-*-* {
                set as_flags "$as_flags -mx86-used-note=no"
            }
-           { riscv*-*-* } {
+           riscv*-*-* {
                set as_flags "$as_flags -march-attr"
            }
        }
index a5df0d3ae3d670d32b8a69685383f4052d88f49f..7beaf48cf716e11f73af547aa36d3197e88a95a2 100644 (file)
@@ -42,10 +42,10 @@ gas_test_error "err.s" "" "macro infinite recursion"
 setup_xfail "tic4x*-*"
 gas_test "and.s" "" "" "logical and in macro definition"
 
-case $target_triplet in {
-    { hppa*-*-* } { if [istarget *-*-linux*] { run_dump_test semi } }
-    { *c4x*-*-* } { }
-    { *c54x*-*-* } { }
+switch -glob $target_triplet {
+    hppa*-*-* { if [istarget *-*-linux*] { run_dump_test semi } }
+    *c4x*-*-* { }
+    *c54x*-*-* { }
     default {
        run_dump_test semi
     }
@@ -74,14 +74,14 @@ run_dump_test app4
 
 run_list_test badarg ""
 
-case $target_triplet in {
-    { *c54x*-*-* } { }
-    { *c4x*-*-* } { }
-    { mmix-* } { }
-    { ns32k-*-* } { }
-    { rl78-*-* } { }
-    { rx-*-* } { }
-    { vax-*-* } { }
+switch -glob $target_triplet {
+    *c54x*-*-* { }
+    *c4x*-*-* { }
+    mmix-* { }
+    ns32k-*-* { }
+    rl78-*-* { }
+    rx-*-* { }
+    vax-*-* { }
     default { run_list_test dot "-alm" }
 }
 run_list_test end ""
index c17262c56a64b0bc60f682b203ecc1c05ab266c1..6649eaa3762518ddaece284e48ee1043b61554d3 100644 (file)
@@ -267,7 +267,7 @@ proc gas_init { args } {
     global target_os
     global stdoptlist
 
-    case "$target_cpu" in {
+    switch -glob "$target_cpu" {
        "m68???"                { set target_cpu_family m68k }
        "i[3-7]86"              { set target_cpu_family i386 }
        default                 { set target_cpu_family $target_cpu }
index b39c8c09b212e048112055d04346e35111e04117..fe87678b85dbd750488133fd8635ef642428bf92 100644 (file)
@@ -1,3 +1,10 @@
+2020-01-27  Alan Modra  <amodra@gmail.com>
+
+       * testsuite/ld-elfvers/vers.exp: Replace case statements with
+       switch statements.
+       * testsuite/ld-ifunc/ifunc.exp: Likewise.
+       * testsuite/ld-unique/unique.exp: Likewise.
+
 2020-01-27  H.J. Lu  <hongjiu.lu@intel.com>
            Alan Modra  <amodra@gmail.com>
 
index e0ece081d5e44de019edd5e857892844b1e00dd5..6ab1e75db6aa2b34a7284d478d11372f877238e2 100644 (file)
@@ -92,9 +92,9 @@ if { [istarget mips*-*-*] && ! [at_least_gcc_version 4 3] } then {
     }
 }
 
-case $target_triplet in {
-    { ia64-*-* } { set as_options "-x" }
-    { sparc-*-* } { set as_options "-Av9a" }
+switch -glob $target_triplet {
+    ia64-*-* { set as_options "-x" }
+    sparc-*-* { set as_options "-Av9a" }
     default { set as_options "" }
 }
 
index 3ef32242d5764bbd80740d955a3bc3ac8c5120d0..4e9e83bbc38961cc1e7bedf4e4c8500af99cc28e 100644 (file)
@@ -268,8 +268,8 @@ if { $fails == 0 } {
 # ifunc should have an OSABI field of GNU.  The linked non-ifunc using
 # executable should have an OSABI field of NONE (aka System V).
 
-case $target_triplet in {
-    { hppa*-*-linux* } { set expected_none {UNIX - GNU} }
+switch -glob $target_triplet {
+    hppa*-*-linux* { set expected_none {UNIX - GNU} }
     default { set expected_none {UNIX - System V} }
 }
 
index f9dd870b9a7d4dd3a5563df23c883284e9ba4f03..5457deb4ece590e1843957075defcb367f00a4c6 100644 (file)
@@ -163,8 +163,8 @@ if { $fails == 0 } {
 }
 
 # Check the empty object file.
-case $target_triplet in {
-    { hppa*-*-linux* } { set expected_none {UNIX - GNU} }
+switch -glob $target_triplet {
+    hppa*-*-linux* { set expected_none {UNIX - GNU} }
     default { set expected_none {UNIX - System V} }
 }
 if {! [check_osabi tmpdir/unique_empty.o $expected_none]} {