diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/wrap-line.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/wrap-line.exp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.base/wrap-line.exp b/gdb/testsuite/gdb.base/wrap-line.exp index 2ba2123..f763588 100644 --- a/gdb/testsuite/gdb.base/wrap-line.exp +++ b/gdb/testsuite/gdb.base/wrap-line.exp @@ -30,11 +30,11 @@ proc fill_line { width } { # Take into account that the prompt also takes space. set prefix [string length "(gdb) "] - set start [expr $prefix + 1] + set start [expr {$prefix + 1}] # Print chars. for { set i $start } { $i <= $width } { incr i } { - set c [expr $i % 10] + set c [expr {$i % 10}] send_gdb $c append res $c } @@ -93,7 +93,7 @@ proc test_wrap { width_auto_detected } { if { $wrap_mode == $wrap_mode_terminal } { gdb_assert { $gdb_width == $readline_width } } elseif { $wrap_mode == $wrap_mode_readline } { - gdb_assert { $gdb_width == [expr $readline_width + 1] } + gdb_assert { $gdb_width == [expr {$readline_width + 1}] } } else { set have_wrap 0 } |