diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/bfd-errors.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/bfd-errors.exp | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/gdb/testsuite/gdb.base/bfd-errors.exp b/gdb/testsuite/gdb.base/bfd-errors.exp index 8e51f09..f298247 100644 --- a/gdb/testsuite/gdb.base/bfd-errors.exp +++ b/gdb/testsuite/gdb.base/bfd-errors.exp @@ -39,7 +39,7 @@ # # This test then loads the shared library's symbol table (and other # debug info) using the 'add-symbol-file' command. While doing this, -# the test observes and records the BFD errors that were output. +# the test observes and records the BFD errors that were output. # Finally, data collected while adding the shared library symbols are # examined to make sure that identical messages were suppressed while # also making sure that at least two messages have been printed. @@ -87,10 +87,10 @@ close $solib_fp set objcopy_program [gdb_find_objcopy] # Extract the .dynsym and .dynstr section from the shared object. -if { [catch "exec $objcopy_program \ - --dump-section .dynsym=${binfile_lib}.dynsym \ - --dump-section .dynstr=${binfile_lib}.dynstr \ - ${binfile_lib}" output] } { +if { [catch {exec $objcopy_program \ + --dump-section .dynsym=${binfile_lib}.dynsym \ + --dump-section .dynstr=${binfile_lib}.dynstr \ + ${binfile_lib}} output] } { untested "failed objcopy dump-section" verbose -log "objcopy output: $output" return -1 @@ -119,29 +119,29 @@ if { $is_elf64 } { } else { set sz 16 } -set cnt [expr $dynsym_len / $sz] +set cnt [expr {$dynsym_len / $sz}] # Create 32-bit patterns (bad offsets) to write into the st_name area. if { $is_big_endian } { - set pat(0) [binary format I [expr $dynstr_len + 1000]] - set pat(1) [binary format I [expr $dynstr_len + 2000]] + set pat(0) [binary format I [expr {$dynstr_len + 1000}]] + set pat(1) [binary format I [expr {$dynstr_len + 2000}]] } else { - set pat(0) [binary format i [expr $dynstr_len + 1000]] - set pat(1) [binary format i [expr $dynstr_len + 2000]] + set pat(0) [binary format i [expr {$dynstr_len + 1000}]] + set pat(1) [binary format i [expr {$dynstr_len + 2000}]] } # Mangle st_name for the symbols following the first (STN_UNDEF) entry. while { [incr cnt -1] > 0 } { seek $dynsym_fp [incr off $sz] - puts $dynsym_fp $pat([expr $cnt % 2]) + puts $dynsym_fp $pat([expr {$cnt % 2}]) } close $dynsym_fp # Replace .dynsym section in shared object with the mangled version. -if { [catch "exec $objcopy_program \ - --update-section .dynsym=${binfile_lib}.dynsym \ - ${binfile_lib}" output] } { +if { [catch {exec $objcopy_program \ + --update-section .dynsym=${binfile_lib}.dynsym \ + ${binfile_lib}} output] } { untested "failed objcopy update-section" verbose -log "objcopy output: $output" return -1 |