while ($i < 2)
if ($i == 0)
set $p = allproc.lh_first
end
if ($p)
printf "\t lwp pid lid flag wchan\n"
end
while ($p)
set $l = $p->p_lwps.lh_first
set $j = 0
while ($j < $p->p_nlwps)
printf "0x%016lx %5d %5d %8x 0x%016lx", \
$l, $p->p_pid, $l->l_lid, $l->l_flag, $l->l_wchan
if ($l->l_wmesg)
printf " (%s)", (char *)$l->l_wmesg
# If the preceding command cannot dereference the pointer, use this instead:
# printf " (%lx)", $l->l_wmesg
end
set $l = $l->l_sibling.le_next
printf "\n"
set $j++
end
set $p = $p->p_list.le_next
end
set $i++
end
end
document lwps
ps for lwps
end
define threadinfo
set $l = (struct lwp *)$arg0
set $pid = $arg1
set $j = 0
set $n = $l->l_name
#if ($n == 0)
# set $n = (char *)""
#end
printf " laddr pid lid flag wchan\n"
printf "%16lx %5d %5d %8x %16lx", \
$l, $pid, $l->l_lid, $l->l_flag, $l->l_wchan
if ($n != 0)
printf " %16s", $n
end
printf "\n\n"
kvm proc $l
where
printf "\n"
end
document threadinfo
Print out the stack and other data of a single thread.
end
define procthreadsaddr
set $p = (struct proc *)$arg0
set $l = $p->p_lwps.lh_first
set $nlwps = $p->p_nlwps
set $pid = $p->p_pid
printf " paddr pid flag stat n firstlwp command\n"
printf "%16lx %5d %8x %4x %5d %16lx %16s\n\n", \
$p, $pid, $p->p_flag, $p->p_stat, \
$nlwps, $p->p_lwps.lh_first, \
(char *) $p->p_comm
while ($l)
threadinfo $l $pid
set $l = $l->l_sibling.le_next
set $j++
end
end
document procthreadsaddr
Print out the stack of all threads in a particular process,
found via struct proc * address.
end
define procthreadspid
set $pid = (unsigned)$arg0
set $p = allproc.lh_first
while ($p)
if ($pid == $p->p_pid)
procthreadsaddr $p
loop_break
end
set $p = $p->p_list.le_next
end
end
document procthreadspid
Print out the stack of all threads in a particular process,
found via PID.
end
define threadlist
set $p = allproc.lh_first
while ($p)
procthreadsaddr $p
set $p = $p->p_list.le_next
end
end
document threadlist
Print out the stack of all threads in the system.
end
define lock
set $ld = (struct lockdebug *)ld_rb_tree
set $a = $ld->ld_lock
set $b = (volatile void *)$arg0
while ($ld && $a != $b)
if ($a < $b)
set $ld = (struct lockdebug *)$ld->ld_rb_node.rb_nodes[1]
end
if ($a > $b)
set $ld = (struct lockdebug *)$ld->ld_rb_node.rb_nodes[0]
end
if ($ld == 0)
loop_break
end
set $a = $ld->ld_lock
# printf "a=%lx b=%lx ld=%lx a<b %d a>b %d\n", $a, $b, $ld, ($a < $b), ($a > $b)
end
if ($ld)
printf "lock address : %#018lx type : ", \
(long)$ld->ld_lock
if ($ld->ld_flags & 0x2)
printf "sleep/adaptive\n"
else
printf "spin\n"
end
printf "initialized : %#018lx", \
(long)$ld->ld_initaddr
if ($ld->ld_lockops->lo_type == 0x2)
printf " interlock: %#018lx\n", $ld->ld_locked
else
printf "\n"
printf "shared holds : %18u exclusive: ", \
$ld->ld_shares
if (($ld->ld_flags & 0x1) != 0)
printf "1\n"
else
printf "0\n"
end
printf "shares wanted: %18u exclusive: %18u\n", \
(unsigned)$ld->ld_shwant, (unsigned)$ld->ld_exwant
printf "cpu last held: %18u\n", \
(unsigned)$ld->ld_cpu
printf "current lwp : %#018lx last held: %#018lx\n", \
(long)0, (long)$ld->ld_lwp
printf "last locked : %#018lx unlocked : %#018lx\n", \
(long)$ld->ld_locked, (long)$ld->ld_unlocked
end
end
end
document lock
Print out lockdebug info like ddb does.
end
