diff options
Diffstat (limited to 'gdb/testsuite/gdb.base/logical.exp')
| -rw-r--r-- | gdb/testsuite/gdb.base/logical.exp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.base/logical.exp b/gdb/testsuite/gdb.base/logical.exp index 31007e8..f924b09 100644 --- a/gdb/testsuite/gdb.base/logical.exp +++ b/gdb/testsuite/gdb.base/logical.exp @@ -32,7 +32,8 @@ if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {deb return -1 } -clean_restart ${binfile} +clean_restart +gdb_load $binfile # @@ -48,7 +49,7 @@ proc evaluate { vars ops } { set var [lindex $vars $vari] for {set opi 0} {$opi < [llength $ops]} {incr opi} { set op [lindex [lindex $ops $opi] 0] - set val [lindex [lindex $ops $opi] [expr $vari + 1]] + set val [lindex [lindex $ops $opi] [expr {$vari + 1}]] gdb_test "print $var, $op" " = $val" "evaluate $op; variables $var; expecting $val" } } |