diff options
| author | Doug Evans <dje@google.com> | 2012-10-15 17:35:54 +0000 |
|---|---|---|
| committer | Doug Evans <dje@google.com> | 2012-10-15 17:35:54 +0000 |
| commit | 2c47921e64abfc0aa3d3187e0c23943138ec3783 (patch) | |
| tree | 96c91b52688cfa1f1da90b71e748d430dbec451f /gdb/testsuite | |
| parent | 89398707cdb7583fdede42646e58f93d839bc55f (diff) | |
| download | gdb-2c47921e64abfc0aa3d3187e0c23943138ec3783.zip gdb-2c47921e64abfc0aa3d3187e0c23943138ec3783.tar.gz gdb-2c47921e64abfc0aa3d3187e0c23943138ec3783.tar.bz2 | |
* lib/gdb.exp (runto): Fix call to gdb_breakpoint.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 5 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index d3f5544..ceefea5 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2012-10-15 Doug Evans <dje@google.com> + + * lib/gdb.exp (runto): Fix call to gdb_breakpoint. + 2012-10-15 Yufeng Zhang <yufeng.zhang@arm.com> * gdb.dwarf2/dw2-icc-opaque.S: Remove '#'. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 33529cc..f27d4a7 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -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; } |