diff options
Diffstat (limited to 'gdb/testsuite/lib/debuginfod-support.exp')
| -rw-r--r-- | gdb/testsuite/lib/debuginfod-support.exp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gdb/testsuite/lib/debuginfod-support.exp b/gdb/testsuite/lib/debuginfod-support.exp index 674888a..ad6963e 100644 --- a/gdb/testsuite/lib/debuginfod-support.exp +++ b/gdb/testsuite/lib/debuginfod-support.exp @@ -18,7 +18,7 @@ # Return true if the debuginfod tests should be run, otherwise, return # false. proc allow_debuginfod_tests {} { - if [is_remote host] { + if {[is_remote host]} { return false } @@ -37,7 +37,7 @@ proc allow_debuginfod_tests {} { # (installed by ASan) exist on startup. That makes TCL's exec throw an # error. This is dealt with by the --quiet in INTERNAL_GDBFLAGS. if { [string first "with-debuginfod" \ - [eval exec $::GDB $::INTERNAL_GDBFLAGS \ + [exec $::GDB {*}$::INTERNAL_GDBFLAGS \ --configuration]] == -1 } { return false } @@ -189,7 +189,7 @@ proc start_debuginfod { db debugdir } { proc stop_debuginfod { } { global debuginfod_spawn_id - if [info exists debuginfod_spawn_id] { + if {[info exists debuginfod_spawn_id]} { kill_wait_spawned_process $debuginfod_spawn_id unset debuginfod_spawn_id } |