diff options
author | Pierre-Marie de Rodat <derodat@adacore.com> | 2015-03-10 09:51:27 +0100 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2015-04-01 15:06:39 +0200 |
commit | 3c724c8ca91ee8304ba355f681ccd906f0e9725b (patch) | |
tree | 2ee5d701d9e3c104c6088a138777aff673140d6a /gdb/testsuite/gdb.ada/info_exc.exp | |
parent | 5445da1b7656f82e7892d862895dfd9e7c16889c (diff) | |
download | fsf-binutils-gdb-3c724c8ca91ee8304ba355f681ccd906f0e9725b.zip fsf-binutils-gdb-3c724c8ca91ee8304ba355f681ccd906f0e9725b.tar.gz fsf-binutils-gdb-3c724c8ca91ee8304ba355f681ccd906f0e9725b.tar.bz2 |
Share the "multi_line" helper among all testcases
gdb/testsuite/ChangeLog:
* gdb.ada/complete.exp: Remove "multi_line".
* gdb.ada/info_exc.exp: Remove "multi_line".
* gdb.ada/packed_tagged.exp: Remove "multi_line".
* gdb.ada/ptype_field.exp: Remove "multi_line".
* gdb.ada/sym_print_name.exp: Remove "multi_line".
* gdb.ada/tagged.exp: Remove "multi_line".
* gdb.btrace/buffer-size.exp: Replace [join [list ...]] with
[multi_line ...]
* gdb.btrace/delta.exp: Likewise.
* gdb.btrace/exception.exp: Likewise.
* gdb.btrace/function_call_history.exp: Likewise.
* gdb.btrace/instruction_history.exp: Likewise.
* gdb.btrace/nohist.exp: Likewise.
* gdb.btrace/record_goto.exp: Likewise.
* gdb.btrace/segv.exp: Likewise.
* gdb.btrace/stepi.exp: Likewise.
* gdb.btrace/tailcall.exp: Likewise.
* gdb.btrace/unknown_functions.exp: Likewise.
* gdb.dwarf2/dw2-undefined-ret-addr.exp: Likewise.
* lib/gdb.exp: Add the "multi_line" helper.
Diffstat (limited to 'gdb/testsuite/gdb.ada/info_exc.exp')
-rw-r--r-- | gdb/testsuite/gdb.ada/info_exc.exp | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/gdb/testsuite/gdb.ada/info_exc.exp b/gdb/testsuite/gdb.ada/info_exc.exp index 3f21218..add83c5 100644 --- a/gdb/testsuite/gdb.ada/info_exc.exp +++ b/gdb/testsuite/gdb.ada/info_exc.exp @@ -21,17 +21,6 @@ if {[gdb_compile_ada "${srcfile}" "${binfile}" executable [list debug]] != "" } return -1 } -# A convenience function that joins all the arguments together, -# with a regexp that matches zero-or-more end of lines in between -# each argument. This function is ideal to write the expected output -# of a GDB command that generates more than a couple of lines, as -# this allows us to write each line as a separate string, which is -# easier to read by a human being. - -proc multi_line { args } { - return [join $args "\[\r\n\]*"] -} - clean_restart ${testfile} if ![runto_main] then { |