Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adapt to lwp-world

Browse Source
This commit is contained in:
lha 2003-02-26 21:36:14 +00:00
parent f720949c2c
commit 59dc4c7d0f
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
sys/gdbscripts/xps
View File

@ -1,4 +1,4 @@
# $NetBSD: xps,v 1.3 1997/04/16 00:58:26 cgd Exp $ # $NetBSD: xps,v 1.4 2003/02/26 21:36:14 lha Exp $
# xps # xps
# kernel ps # kernel ps
@ -18,15 +18,25 @@ define xps
set $p = zombproc.lh_first set $p = zombproc.lh_first
end end
printf " proc pid flag st wchan comm\n" printf " proc pid flag nlwps comm\n"
printf "\t flag wchan\n"
while ($p) while ($p)
printf "%#18lx %5d %8x %2x %#18lx %s", $p, $p->p_pid, \ printf "%#18lx %5d %8x %2x %d %s", \
$p->p_flag, $p->p_stat, $p->p_wchan, \ $p, $p->p_pid, \
$p->p_flag, $p->p_stat, $p->p_nlwps, \
(char *) $p->p_comm (char *) $p->p_comm
if ($p->p_wmesg)
printf " (%s)", $p->p_wmesg
end
printf "\n" printf "\n"
set $l = $p->p_lwps.lh_first
set $j = 0
while ($j < $p->p_nlwps)
printf "\t%3x %#18xl", $l->l_flag, $l->l_wchan
if ($l->l_wmesg)
printf " (%s)", (char *)$l->l_wmesg
end
set $l = $l->l_list.le_next
printf "\n"
set $j++
end
set $p = $p->p_list.le_next set $p = $p->p_list.le_next
end end
set $i++ set $i++