* lib/gdb.exp (runto): Fix call to gdb_breakpoint.
This commit is contained in:
parent
89398707cd
commit
2c47921e64
2 changed files with 8 additions and 1 deletions
|
@ -460,7 +460,10 @@ proc runto { function args } {
|
|||
|
||||
# We need to use eval here to pass our varargs args to gdb_breakpoint
|
||||
# which is also a varargs function.
|
||||
if ![eval gdb_breakpoint $function $args] {
|
||||
# But we also have to be careful because $function may have multiple
|
||||
# elements, and we don't want Tcl to move the remaining elements after
|
||||
# the first to $args. That is why $function is wrapped in {}.
|
||||
if ![eval gdb_breakpoint {$function} $args] {
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue