summaryrefslogtreecommitdiff
path: root/sys/gdbscripts
diff options
context:
space:
mode:
authorlha <lha@NetBSD.org>2003-02-26 21:36:14 +0000
committerlha <lha@NetBSD.org>2003-02-26 21:36:14 +0000
commit59dc4c7d0f497163b4ebd0720656693a394b5ac3 (patch)
tree879f6fa52392cafd0fc79e0d768ec752497987df /sys/gdbscripts
parentf720949c2c99f9ef654b348c6af578e46940c233 (diff)
adapt to lwp-world
Diffstat (limited to 'sys/gdbscripts')
-rw-r--r--sys/gdbscripts/xps24
1 files changed, 17 insertions, 7 deletions
diff --git a/sys/gdbscripts/xps b/sys/gdbscripts/xps
index 4fcd13eb910..4955717360b 100644
--- a/sys/gdbscripts/xps
+++ b/sys/gdbscripts/xps
@@ -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
# kernel ps
@@ -18,15 +18,25 @@ define xps
set $p = zombproc.lh_first
end
- printf " proc pid flag st wchan comm\n"
+ printf " proc pid flag nlwps comm\n"
+ printf "\t flag wchan\n"
while ($p)
- printf "%#18lx %5d %8x %2x %#18lx %s", $p, $p->p_pid, \
- $p->p_flag, $p->p_stat, $p->p_wchan, \
+ printf "%#18lx %5d %8x %2x %d %s", \
+ $p, $p->p_pid, \
+ $p->p_flag, $p->p_stat, $p->p_nlwps, \
(char *) $p->p_comm
- if ($p->p_wmesg)
- printf " (%s)", $p->p_wmesg
- end
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
end
set $i++