| Index: gdb/testsuite/gdb.threads/attach-stopped.exp
|
| diff --git a/gdb/testsuite/gdb.threads/attach-stopped.exp b/gdb/testsuite/gdb.threads/attach-stopped.exp
|
| index d2aacb3589a21ea3651ac9eef0c508e89dc77b04..f4c05baeadb97b4034e46271478d6485339bc252 100644
|
| --- a/gdb/testsuite/gdb.threads/attach-stopped.exp
|
| +++ b/gdb/testsuite/gdb.threads/attach-stopped.exp
|
| @@ -23,10 +23,8 @@ if { ![isnative] || [is_remote host] || [target_info exists use_gdb_stub]
|
| continue
|
| }
|
|
|
| -set testfile "attach-stopped"
|
| -set srcfile ${testfile}.c
|
| -set binfile ${objdir}/${subdir}/${testfile}
|
| -set escapedbinfile [string_to_regexp ${objdir}/${subdir}/${testfile}]
|
| +standard_testfile
|
| +set escapedbinfile [string_to_regexp $binfile]
|
|
|
| #execute_anywhere "rm -f ${binfile}"
|
| remote_exec build "rm -f ${binfile}"
|
| @@ -42,7 +40,7 @@ proc corefunc { threadtype } {
|
| global subdir
|
| global gdb_prompt
|
|
|
| - if [get_compiler_info ${binfile}] {
|
| + if [get_compiler_info] {
|
| return -1
|
| }
|
|
|
| @@ -78,61 +76,16 @@ proc corefunc { threadtype } {
|
| } else {
|
| gdb_test "bt" ".*sleep.*main.*" "$threadtype: attach2 to stopped bt"
|
| }
|
| - # This breakpoint is there for old/non-x86 kernels not restarting syscalls.
|
| - gdb_breakpoint $srcfile:[gdb_get_line_number "Second sleep"]
|
| - set test "$threadtype: attach2 continue"
|
| - gdb_test_multiple "continue" "continue ($test)" {
|
| - -re "Continuing" {
|
| - pass "continue ($test)"
|
| - }
|
| - }
|
| -
|
| - # For this to work we must be sure to consume the "Continuing."
|
| - # message first, or GDB's signal handler may not be in place.
|
| - after 1000 {send_gdb "\003"}
|
| - set test "$threadtype: attach2 stop interrupt"
|
| - gdb_expect 10 {
|
| - -re "Program received signal SIGINT.*$gdb_prompt $"
|
| - {
|
| - pass $test
|
| - }
|
| - -re "Breakpoint \[0-9\].*$srcfile.*$gdb_prompt $"
|
| - {
|
| - pass $test
|
| - }
|
| - timeout
|
| - {
|
| - fail $test
|
| - }
|
| - }
|
|
|
| gdb_exit
|
|
|
| # Avoid some race:
|
| sleep 2
|
|
|
| - # At this point, the process should be sleeping
|
| + # At this point, the process may be sleeping or T (Stopped) depending on
|
| + # the Linux kernel version. The behavior is not tested as it is not
|
| + # dependent on GDB.
|
|
|
| - if [catch {open /proc/${testpid}/status r} fileid2] {
|
| - set line2 "NOTFOUND"
|
| - } else {
|
| - gets $fileid2 line1;
|
| - gets $fileid2 line2;
|
| - close $fileid2;
|
| - }
|
| -
|
| - set test "$threadtype: attach2, exit leaves process sleeping"
|
| - if {[string match "*(sleeping)*" $line2]} {
|
| - pass $test
|
| - } else {
|
| - fail $test
|
| - }
|
| -
|
| - # Make sure we don't leave a process around to confuse
|
| - # the next test run (and prevent the compile by keeping
|
| - # the text file busy), in case the "set should_exit" didn't
|
| - # work.
|
| -
|
| remote_exec build "kill -9 ${testpid}"
|
| }
|
|
|
|
|