diff options
| author | Jan Kratochvil <jan.kratochvil@redhat.com> | 2010-01-14 21:12:00 +0000 |
|---|---|---|
| committer | Jan Kratochvil <jan.kratochvil@redhat.com> | 2010-01-14 21:12:00 +0000 |
| commit | bbfba9ed150f56ba5b09360314b30381a865ff5c (patch) | |
| tree | e19bd8850f4c2d90c1a662b736907121b67939b8 /gdb/testsuite/lib | |
| parent | 61f0d76280d963a9ecf3a3a525dae7ac21050636 (diff) | |
| download | gdb-bbfba9ed150f56ba5b09360314b30381a865ff5c.zip gdb-bbfba9ed150f56ba5b09360314b30381a865ff5c.tar.gz gdb-bbfba9ed150f56ba5b09360314b30381a865ff5c.tar.bz2 | |
gdb/testsuite/
* gdb.base/break-interp-lib.c: Include unistd.h, assert.h and stdio.h.
(libfunc): New parameter action. Implement also selectable "sleep".
* gdb.base/break-interp-main.c: Include assert.h.
(libfunc): New parameter action.
(main): New parameters argc and argv. Assert argc. Pass argv.
* gdb.base/break-interp.exp (test_core): Pass the "segv" argument.
(test_attach): New proc.
(test_ld): Pass new "segv" exec parameter. Call also test_attach.
* lib/gdb.exp (core_find): New parameter arg. Pass it to $binfile.
Diffstat (limited to 'gdb/testsuite/lib')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index ee3061e..9b06a2f 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -3121,7 +3121,7 @@ if {[info exists TRANSCRIPT]} { } } -proc core_find {binfile {deletefiles {}}} { +proc core_find {binfile {deletefiles {}} {arg ""}} { global objdir subdir set destcore "$binfile.core" @@ -3143,7 +3143,7 @@ proc core_find {binfile {deletefiles {}}} { set found 0 set coredir "${objdir}/${subdir}/coredir.[getpid]" file mkdir $coredir - catch "system \"(cd ${coredir}; ulimit -c unlimited; ${binfile}; true) >/dev/null 2>&1\"" + catch "system \"(cd ${coredir}; ulimit -c unlimited; ${binfile} ${arg}; true) >/dev/null 2>&1\"" # remote_exec host "${binfile}" foreach i "${coredir}/core ${coredir}/core.coremaker.c ${binfile}.core" { if [remote_file build exists $i] { |