2008-09-26 Jan Kratochvil * gdb.threads/attachstop-mt.exp: Note a real testcase name this testcase is derived from. Fix racy dependency on an expected PID number. No longer support the testcase on Linux kernel 2.4.x. --- gdb/testsuite/gdb.threads/attachstop-mt.exp 1 May 2008 18:50:14 -0000 1.1 +++ gdb/testsuite/gdb.threads/attachstop-mt.exp 26 Sep 2008 03:45:31 -0000 @@ -14,9 +14,8 @@ # You should have received a copy of the GNU General Public License # along with this program. If not, see . -# This test was created by modifying gdb.threads/attachstop. -# This file was created by Jan Kratochvil . -# Regression for: https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=197584 +# This test is based on gdb.base/attach.exp with modifications by Jeff Johnston +# and Jan Kratochvil . # This test only works on Linux if { ![isnative] || [is_remote host] || ![istarget *-linux*] } { @@ -52,17 +51,25 @@ set testpid [eval exec $binfile &] # No race sleep 2 -# Do not: set testpid2 [expr $testpid + 1] -# as it will not exist on Red Hat 2.6.9-34.0.2.ELsmp -set testpid2 [expr $testpid + 2] - -set status2 /proc/${testpid}/task/${testpid2}/status -if {[expr ! [file exists $status2]]} { - # kernel-2.4 - set status2 /proc/${testpid2}/status +# The testcase has three threads, find some other thread TID for $testpid2. +set tids [exec sh -c "echo /proc/$testpid/task/*"] +regsub -all /proc/$testpid/task/ $tids {} tids +if {$tids == "*"} { + unresolved "/proc/PID/task is not supported (kernel-2.4?)" + remote_exec build "kill -9 ${testpid}" + return -1 } +set tids [lsort -integer [split $tids]] +if {[llength $tids] != 3 || [lindex $tids 0] != $testpid} { + verbose -log "Invalid TIDs <$tids> for PID $testpid" + fail "Invalid TIDs found" + remote_exec build "kill -9 ${testpid}" + return -1 +} +set testpid2 [lindex $tids 2] # Initial sanity test it is normally sleeping +set status2 /proc/${testpid}/task/${testpid2}/status set fileid0 [open $status2 r]; gets $fileid0 line1; gets $fileid0 line2;