diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/huge.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/huge.exp | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gdb/testsuite/gdb.base/huge.exp b/gdb/testsuite/gdb.base/huge.exp index f75b620..01bc9ea 100644 --- a/gdb/testsuite/gdb.base/huge.exp +++ b/gdb/testsuite/gdb.base/huge.exp @@ -23,14 +23,14 @@ require {!target_info exists gdb,skip_huge_test} standard_testfile .c -set max [expr 2 * 1024 * 1024] +set max [expr {2 * 1024 * 1024}] set min 16 set opts {} lappend opts debug set compilation_succeeded 0 -for { set size $max } { $size >= $min } { set size [expr $size / 2] } { +for { set size $max } { $size >= $min } { set size [expr {$size / 2}] } { set try_opts [concat $opts [list additional_flags=-DCRASH_GDB=$size]] if { [build_executable $testfile.exp $testfile $srcfile $try_opts] == -1 } { continue @@ -39,10 +39,11 @@ for { set size $max } { $size >= $min } { set size [expr $size / 2] } { set compilation_succeeded 1 break } -require {expr $compilation_succeeded} +require {expr {$compilation_succeeded}} # Start with a fresh gdb. -clean_restart ${binfile} +clean_restart +gdb_load $binfile save_vars { timeout } { set timeout 30 @@ -83,6 +84,6 @@ save_vars { timeout } { unsupported $test } else { # At 56 passes with and without the fix, so use 55. - gdb_assert {$space_used < [expr 55 * 4 * $size] } $test + gdb_assert {$space_used < [expr {55 * 4 * $size}] } $test } } |