Module Name: src
Committed By: mrg
Date: Mon May 6 02:41:02 UTC 2019
Modified Files:
src/sys/gdbscripts: procs
Added Files:
src/sys/gdbscripts: devs
Log Message:
add a 'devs' script to display a list of all devices by device_t,
name, parent, private data.
for procs, put the printf \n into the same line. non trivial
speed up with large process table.
To generate a diff of this commit:
cvs rdiff -u -r0 -r1.1 src/sys/gdbscripts/devs
cvs rdiff -u -r1.2 -r1.3 src/sys/gdbscripts/procs
Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.
Modified files:
Index: src/sys/gdbscripts/procs
diff -u src/sys/gdbscripts/procs:1.2 src/sys/gdbscripts/procs:1.3
--- src/sys/gdbscripts/procs:1.2 Wed Nov 18 18:05:51 2009
+++ src/sys/gdbscripts/procs Mon May 6 02:41:02 2019
@@ -1,4 +1,4 @@
-# $NetBSD: procs,v 1.2 2009/11/18 18:05:51 eeh Exp $
+# $NetBSD: procs,v 1.3 2019/05/06 02:41:02 mrg Exp $
define procs
set $i = 0
@@ -11,11 +11,10 @@ define procs
printf " proc pid flag stat nlwps lwp comm\n"
end
while ($p)
- printf "%16lx %5d %8x %4x %5d %16lx %s", \
+ printf "%16lx %5d %8x %4x %5d %16lx %s\n", \
$p, $p->p_pid, \
$p->p_flag, $p->p_stat, $p->p_nlwps, $p->p_lwps.lh_first, \
(char *) $p->p_comm
- printf "\n"
set $p = $p->p_list.le_next
end
set $i++
Added files:
Index: src/sys/gdbscripts/devs
diff -u /dev/null src/sys/gdbscripts/devs:1.1
--- /dev/null Mon May 6 02:41:02 2019
+++ src/sys/gdbscripts/devs Mon May 6 02:41:02 2019
@@ -0,0 +1,20 @@
+# $NetBSD: devs,v 1.1 2019/05/06 02:41:02 mrg Exp $
+
+define devs
+ set $i = 0
+
+ while ($i < 2)
+ if ($i == 0)
+ set $d = alldevs.tqh_first
+ end
+ if ($d)
+ printf " device_t parent private dv_xname\n"
+ end
+ while ($d)
+ printf "%16lx %16lx %16lx %s\n", \
+ $d, $d->dv_parent, $d->dv_private, $d->dv_xname
+ set $d = $d->dv_list.tqe_next
+ end
+ set $i++
+ end
+end
