diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/printcmds.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/printcmds.exp | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/gdb/testsuite/gdb.base/printcmds.exp b/gdb/testsuite/gdb.base/printcmds.exp index 8634668..0165791 100644 --- a/gdb/testsuite/gdb.base/printcmds.exp +++ b/gdb/testsuite/gdb.base/printcmds.exp @@ -96,18 +96,18 @@ proc test_integer_literals_rejected {} { # Test various octal values. - test_print_reject "p 09" - test_print_reject "p 079" + test_print_reject "p 09" + test_print_reject "p 079" # Test various hexadecimal values. - test_print_reject "p 0xG" - test_print_reject "p 0xAG" + test_print_reject "p 0xG" + test_print_reject "p 0xAG" # Test various binary values. - test_print_reject "p 0b2" - test_print_reject "p 0b12" + test_print_reject "p 0b2" + test_print_reject "p 0b12" } proc test_float_accepted {} { @@ -458,14 +458,14 @@ proc test_print_repeats_10_one { setting } { for { set x 1 } { $x <= 16 } { incr x } { gdb_test_no_output "set print $setting $x" "$setting $x repeats" for { set e 1 } { $e <= 16 } {incr e } { - set v [expr $e - 1] + set v [expr {$e - 1}] set command "p &ctable2\[${v}*16\]" if { $x < $e } { set aval $x } else { set aval $e } - set xval [expr $x - $e] + set xval [expr {$x - $e}] if { $xval < 0 } { set xval 0 } @@ -703,7 +703,7 @@ proc test_artificial_arrays {} { # for the test because that character isn't recognized as an # escape character. set ctrlv "\026" - if [ishost *-*-mingw*] { + if {[ishost *-*-mingw*]} { set ctrlv "" } gdb_test_escape_braces "p int1dim\[0\]${ctrlv}@2" " = {0, 1}" {p int1dim[0]@2} @@ -797,7 +797,7 @@ proc test_print_string_constants {} { gdb_test_no_output "set print elements 50" - if [target_info exists gdb,cannot_call_functions] { + if {[target_info exists gdb,cannot_call_functions]} { unsupported "this target can not call functions" return } @@ -821,7 +821,7 @@ proc test_print_string_constants {} { proc test_print_array_constants {} { global hex - if [target_info exists gdb,cannot_call_functions] { + if {[target_info exists gdb,cannot_call_functions]} { unsupported "this target can not call functions" return } @@ -1028,7 +1028,7 @@ proc test_print_symbol {} { gdb_test_no_output "set print symbol off" } -# Escape a left curly brace to prevent it from being interpreted as +# Escape a left curly brace to prevent it from being interpreted as # the beginning of a bound proc gdb_test_escape_braces { args } { |