Fri Aug 7 06:20:31 2009 UTC ()
Pull up following revision(s) (requested by skrll in ticket #893):
	sys/gdbscripts/lwps: revision 1.2
Use the right pointer to traverse the proc's lwp list.
From PR 41788.


(snj)
diff -r1.1 -r1.1.24.1 src/sys/gdbscripts/lwps
cvs diff -r1.1 -r1.1.24.1 src/sys/gdbscripts/lwps (expand / switch to unified diff)

--- src/sys/gdbscripts/lwps 2008/02/20 20:56:35 1.1
+++ src/sys/gdbscripts/lwps 2009/08/07 06:20:31 1.1.24.1
@@ -1,30 +1,30 @@ @@ -1,30 +1,30 @@
1# $NetBSD: lwps,v 1.1 2008/02/20 20:56:35 ad Exp $ 1# $NetBSD: lwps,v 1.1.24.1 2009/08/07 06:20:31 snj Exp $
2 2
3define lwps 3define lwps
4 set $i = 0 4 set $i = 0
5 5
6 while ($i < 2) 6 while ($i < 2)
7 if ($i == 0) 7 if ($i == 0)
8 set $p = allproc.lh_first 8 set $p = allproc.lh_first
9 end 9 end
10 if ($p) 10 if ($p)
11 printf "\t lwp pid lid flag wchan\n" 11 printf "\t lwp pid lid flag wchan\n"
12 end 12 end
13 while ($p) 13 while ($p)
14 set $l = $p->p_lwps.lh_first 14 set $l = $p->p_lwps.lh_first
15 set $j = 0 15 set $j = 0
16 while ($j < $p->p_nlwps) 16 while ($j < $p->p_nlwps)
17 printf "%16lx %5d %5d %8x %16lx", \ 17 printf "%16lx %5d %5d %8x %16lx", \
18 $l, $p->p_pid, $l->l_lid, $l->l_flag, $l->l_wchan 18 $l, $p->p_pid, $l->l_lid, $l->l_flag, $l->l_wchan
19 if ($l->l_wmesg) 19 if ($l->l_wmesg)
20 printf " (%s)", (char *)$l->l_wmesg 20 printf " (%s)", (char *)$l->l_wmesg
21 end 21 end
22 set $l = $l->l_list.le_next 22 set $l = $l->l_sibling.le_next
23 printf "\n" 23 printf "\n"
24 set $j++ 24 set $j++
25 end 25 end
26 set $p = $p->p_list.le_next 26 set $p = $p->p_list.le_next
27 end 27 end
28 set $i++ 28 set $i++
29 end 29 end
30end 30end