83 lines
4.2 KiB
Diff
83 lines
4.2 KiB
Diff
2008-11-20 Andreas Schwab <schwab@suse.de>
|
|
|
|
* gdb.base/foll-fork.exp (catch_fork_child_follow): Fix patterns
|
|
matching syscall entry point.
|
|
* gdb.base/foll-vfork.exp (tcatch_vfork_then_parent_follow)
|
|
(tcatch_vfork_then_child_follow): Likewise. Finish through
|
|
vfork even if we stopped at the syscall trampoline.
|
|
|
|
Index: gdb/testsuite/gdb.base/foll-fork.exp
|
|
===================================================================
|
|
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/foll-fork.exp,v
|
|
retrieving revision 1.11
|
|
diff -u -a -p -u -p -a -r1.11 foll-fork.exp
|
|
--- gdb/testsuite/gdb.base/foll-fork.exp 16 Oct 2008 16:25:36 -0000 1.11
|
|
+++ gdb/testsuite/gdb.base/foll-fork.exp 20 Nov 2008 14:24:45 -0000
|
|
@@ -167,7 +167,7 @@ proc catch_fork_child_follow {} {
|
|
|
|
send_gdb "continue\n"
|
|
gdb_expect {
|
|
- -re "Catchpoint.*(forked process.*),.*in .*(fork|__kernel_vsyscall).*$gdb_prompt $"\
|
|
+ -re "Catchpoint.*(forked process.*),.*in .*(fork|__kernel_v?syscall).*$gdb_prompt $"\
|
|
{pass "explicit child follow, catch fork"}
|
|
-re "$gdb_prompt $" {fail "explicit child follow, catch fork"}
|
|
timeout {fail "(timeout) explicit child follow, catch fork"}
|
|
@@ -239,7 +239,7 @@ proc tcatch_fork_parent_follow {} {
|
|
|
|
send_gdb "continue\n"
|
|
gdb_expect {
|
|
- -re ".*in .*(fork|__kernel_vsyscall).*$gdb_prompt $"\
|
|
+ -re ".*in .*(fork|__kernel_v?syscall).*$gdb_prompt $"\
|
|
{pass "explicit parent follow, tcatch fork"}
|
|
-re "$gdb_prompt $" {fail "explicit parent follow, tcatch fork"}
|
|
timeout {fail "(timeout) explicit parent follow, tcatch fork"}
|
|
Index: gdb/testsuite/gdb.base/foll-vfork.exp
|
|
===================================================================
|
|
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/foll-vfork.exp,v
|
|
retrieving revision 1.8
|
|
diff -u -a -p -u -p -a -r1.8 foll-vfork.exp
|
|
--- gdb/testsuite/gdb.base/foll-vfork.exp 29 Jan 2008 22:47:20 -0000 1.8
|
|
+++ gdb/testsuite/gdb.base/foll-vfork.exp 20 Nov 2008 14:24:45 -0000
|
|
@@ -264,7 +264,7 @@ proc tcatch_vfork_then_parent_follow {}
|
|
# HP-UX 10.20 seems to stop you in "vfork", while more recent HP-UXs
|
|
# stop you in "_vfork".
|
|
gdb_expect {
|
|
- -re "0x\[0-9a-fA-F\]*.*vfork.*$gdb_prompt "\
|
|
+ -re "0x\[0-9a-fA-F\]*.*(vfork|__kernel_v?syscall).*$gdb_prompt "\
|
|
{pass "vfork parent follow, tcatch vfork"}
|
|
-re "vfork \\(\\) at.*$gdb_prompt "\
|
|
{pass "vfork parent follow, tcatch vfork"}
|
|
@@ -275,6 +275,10 @@ proc tcatch_vfork_then_parent_follow {}
|
|
gdb_expect {
|
|
-re "Run till exit from.*vfork.*0x\[0-9a-fA-F\]* in main .* at .*${srcfile}:12.*$gdb_prompt "\
|
|
{pass "vfork parent follow, finish after tcatch vfork"}
|
|
+ -re "Run till exit from.*__kernel_v?syscall.*0x\[0-9a-fA-F\]* in vfork .*$gdb_prompt " {
|
|
+ send_gdb "finish\n"
|
|
+ exp_continue
|
|
+ }
|
|
-re "$gdb_prompt $" {fail "vfork parent follow, finish after tcatch vfork"}
|
|
timeout {fail "(timeout) vfork parent follow, finish after tcatch vfork" }
|
|
}
|
|
@@ -308,9 +312,7 @@ proc tcatch_vfork_then_child_follow {} {
|
|
gdb_expect {
|
|
-re "vfork \\(\\) at .*$gdb_prompt $"\
|
|
{pass "vfork child follow, tcatch vfork"}
|
|
- -re "0x\[0-9a-fA-F\]*.*vfork.*$gdb_prompt "\
|
|
- {pass "vfork child follow, tcatch vfork"}
|
|
- -re "0x\[0-9a-fA-F\]*.*_vfork.*$gdb_prompt "\
|
|
+ -re "0x\[0-9a-fA-F\]*.*(vfork|__kernel_v?syscall).*$gdb_prompt "\
|
|
{pass "vfork child follow, tcatch vfork"}
|
|
-re "$gdb_prompt $" {fail "vfork child follow, tcatch vfork"}
|
|
timeout {fail "(timeout) vfork child follow, tcatch vfork"}
|
|
@@ -319,6 +321,10 @@ proc tcatch_vfork_then_child_follow {} {
|
|
gdb_expect {
|
|
-re "Run till exit from.*vfork.*${srcfile}:12.*$gdb_prompt "\
|
|
{pass "vfork child follow, finish after tcatch vfork"}
|
|
+ -re "Run till exit from.*__kernel_v?syscall.*0x\[0-9a-fA-F\]* in vfork .*$gdb_prompt " {
|
|
+ send_gdb "finish\n"
|
|
+ exp_continue
|
|
+ }
|
|
-re "Run till exit from.*vfork.*${srcfile2}:9.*$gdb_prompt "\
|
|
{pass "vfork child follow, finish after tcatch vfork (followed exec)"}
|
|
-re "$gdb_prompt $" {fail "vfork child follow, finish after tcatch vfork"}
|