From 2adb32aa5ea12917f4c4c4375ec4074d17564606 Mon Sep 17 00:00:00 2001 From: drow Date: Sun, 27 Jul 2008 21:05:37 +0000 Subject: [PATCH] * linux-nat.c (count_events_callback, select_event_lwp_callback): Only report events from resumed threads. * gdb.threads/schedlock.exp (get_args): Update to work for any value of NUM. (Top level): Report the number of threads that did not resume. --- gdb/ChangeLog | 5 +++++ gdb/linux-nat.c | 8 ++++---- gdb/testsuite/ChangeLog | 6 ++++++ gdb/testsuite/gdb.threads/schedlock.exp | 23 +++++++++++++++++------ 4 files changed, 32 insertions(+), 10 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index e58b216a7b..7cc48ef920 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,5 +1,10 @@ 2008-07-27 Daniel Jacobowitz + * linux-nat.c (count_events_callback, select_event_lwp_callback): Only + report events from resumed threads. + +2008-07-27 Daniel Jacobowitz + * mips-linux-tdep.c (mips_linux_syscall_next_pc): New function. (mips_linux_init_abi): Set tdep->syscall_next_pc. * mips-tdep.c (enum mips_fpu_type, struct gdbarch_tdep): Move to diff --git a/gdb/linux-nat.c b/gdb/linux-nat.c index 967beb4a9f..5ccff50445 100644 --- a/gdb/linux-nat.c +++ b/gdb/linux-nat.c @@ -2319,8 +2319,8 @@ count_events_callback (struct lwp_info *lp, void *data) gdb_assert (count != NULL); - /* Count only LWPs that have a SIGTRAP event pending. */ - if (lp->status != 0 + /* Count only resumed LWPs that have a SIGTRAP event pending. */ + if (lp->status != 0 && lp->resumed && WIFSTOPPED (lp->status) && WSTOPSIG (lp->status) == SIGTRAP) (*count)++; @@ -2347,8 +2347,8 @@ select_event_lwp_callback (struct lwp_info *lp, void *data) gdb_assert (selector != NULL); - /* Select only LWPs that have a SIGTRAP event pending. */ - if (lp->status != 0 + /* Select only resumed LWPs that have a SIGTRAP event pending. */ + if (lp->status != 0 && lp->resumed && WIFSTOPPED (lp->status) && WSTOPSIG (lp->status) == SIGTRAP) if ((*selector)-- == 0) return 1; diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 867eff9e51..ae66c01762 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,11 @@ 2008-07-27 Daniel Jacobowitz + * gdb.threads/schedlock.exp (get_args): Update to work for any + value of NUM. + (Top level): Report the number of threads that did not resume. + +2008-07-27 Daniel Jacobowitz + * gdb.dwarf2/dw2-compressed.S: Also define __start. 2008-07-27 Daniel Jacobowitz diff --git a/gdb/testsuite/gdb.threads/schedlock.exp b/gdb/testsuite/gdb.threads/schedlock.exp index f6b319cd7e..8faee9fdb8 100644 --- a/gdb/testsuite/gdb.threads/schedlock.exp +++ b/gdb/testsuite/gdb.threads/schedlock.exp @@ -45,14 +45,25 @@ if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executab proc get_args { } { global list_count global gdb_prompt + global NUM + + set pattern "(\[0-9\]+)" + for {set i 1} {[expr $i < $NUM]} {incr i} { + append pattern ", (\[0-9\]+)" + } send_gdb "print args\n" gdb_expect { - -re "\\\$\[0-9\]+ = {(\[0-9\]+), (\[0-9\]+)}.*$gdb_prompt" + -re "\\\$\[0-9\]+ = {$pattern}.*$gdb_prompt" { set list_count [expr $list_count + 1] pass "listed args ($list_count)" - return [list $expect_out(1,string) $expect_out(2,string)] + + set result "" + for {set i 1} {[expr $i <= $NUM]} {incr i} { + lappend result $expect_out($i,string) + } + return $result } -re "$gdb_prompt" { @@ -202,16 +213,16 @@ my_continue "initial" set cont_args [get_args] -set ok 1 +set bad 0 for {set i 0} {[expr $i < $NUM]} {set i [expr $i + 1]} { if {[lindex $start_args $i] == [lindex $cont_args $i]} { - set ok 0 + incr bad } } -if { $ok } { +if { $bad == 0 } { pass "all threads alive" } else { - fail "all threads alive" + fail "all threads alive ($bad/$NUM did not run)" } # We can't change threads, unfortunately, in current GDB. Use -- 2.11.0