diff options
| author | Pedro Alves <palves@redhat.com> | 2016-01-25 12:00:18 +0000 |
|---|---|---|
| committer | Pedro Alves <palves@redhat.com> | 2016-01-25 13:15:11 +0000 |
| commit | f1da4b11eef6dba04a1cfa579c6ba313718105b8 (patch) | |
| tree | e536817c8624980e05a753ea2274a3431340dee7 /gdb/testsuite/lib | |
| parent | 018a260a3b84c482af7751dfd98c91273d2265ce (diff) | |
| download | gdb-f1da4b11eef6dba04a1cfa579c6ba313718105b8.zip gdb-f1da4b11eef6dba04a1cfa579c6ba313718105b8.tar.gz gdb-f1da4b11eef6dba04a1cfa579c6ba313718105b8.tar.bz2 | |
Move foreach_with_prefix to lib/gdb.exp
gdb/testsuite/ChangeLog:
2016-01-25 Pedro Alves <palves@redhat.com>
* gdb.base/step-sw-breakpoint-adjust-pc.exp (foreach_with_prefix):
Delete, moved to lib/gdb.exp.
* gdb.threads/forking-threads-plus-breakpoint.exp
(foreach_with_prefix): Likewise.
* gdb.threads/process-dies-while-handling-bp.exp
(foreach_with_prefix): Likewise.
* lib/gdb.exp (foreach_with_prefix): New procedure.
Diffstat (limited to 'gdb/testsuite/lib')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index e6fe62c..66821eb 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1906,6 +1906,18 @@ proc with_test_prefix { prefix body } { } } +# Wrapper for foreach that calls with_test_prefix on each iteration, +# including the iterator's name and current value in the prefix. + +proc foreach_with_prefix {var list body} { + upvar 1 $var myvar + foreach myvar $list { + with_test_prefix "$var=$myvar" { + uplevel 1 $body + } + } +} + # Run BODY in the context of the caller. After BODY is run, the variables # listed in VARS will be reset to the values they had before BODY was run. # |