diff options
Diffstat (limited to 'gdb/testsuite/gdb.guile/scm-value.exp')
| -rw-r--r-- | gdb/testsuite/gdb.guile/scm-value.exp | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gdb/testsuite/gdb.guile/scm-value.exp b/gdb/testsuite/gdb.guile/scm-value.exp index 1567b13..ea77d8f 100644 --- a/gdb/testsuite/gdb.guile/scm-value.exp +++ b/gdb/testsuite/gdb.guile/scm-value.exp @@ -309,9 +309,10 @@ proc test_value_after_death {} { proc test_subscript_regression {exefile lang} { # Start with a fresh gdb. - clean_restart ${exefile} + clean_restart + gdb_load ${exefile} - if ![gdb_guile_runto_main ] { + if {![gdb_guile_runto_main ]} { return } @@ -427,7 +428,7 @@ if { [build_inferior "${binfile}" "c"] < 0 } { } # Start with a fresh gdb. -clean_restart ${binfile} +clean_restart ${::testfile} gdb_install_guile_utils gdb_install_guile_module @@ -437,7 +438,7 @@ test_value_hash # The following tests require execution. -if ![gdb_guile_runto_main] { +if {![gdb_guile_runto_main]} { return } @@ -446,7 +447,7 @@ test_inferior_function_call test_strings test_value_after_death -# Test either C or C++ values. +# Test either C or C++ values. test_subscript_regression "${binfile}" "c" |