2015-12-23 00:50:04 +00:00

86 lines
1.8 KiB
Plaintext

# gdb scripts for manipulating wchans
define allwchans
set $n = allwchans.arr.num
set $i = 0
while ($i < $n)
set $p = (struct wchan *)(allwchans.arr.v[$i])
set $pnm = $p->wc_name
set $pth = &$p->wc_threads
set $pct = $pth->tl_count
printf "wchan %u @0x%x: %-16s %u\n", $i, $p, $pnm, $pct
set $i++
end
end
document allwchans
Dump the allwchans table.
Usage: allwchans
end
define wchan
set $p = (struct wchan *)(allwchans.arr.v[$arg0])
set $pnm = $p->wc_name
set $pth = $p->wc_threads
set $pct = $pth.tl_count
printf "wchan %u @0x%x: %-16s %u:\n", $arg0, $p, $pnm, $pct
threadlist $pth
end
document wchan
Dump a particular wchan.
Usage: wchan N
(where N is the index into allwchans[] reported by allwchans)
end
define threadlist
set $t = $arg0.tl_head.tln_next->tln_self
while ($t != 0)
printf "thread %s @0x%x\n", $t->t_name, $t
set $t = $t->t_listnode.tln_next->tln_self
end
end
document threadlist
Dump a threadlist.
Usage: threadlist mycpu->c_runqueue
end
define allcpus
set $n = allcpus.arr.num
set $i = 0
while ($i < $n)
set $c = (struct cpu *)(allcpus.arr.v[$i])
set $id = $c->c_isidle
set $ln = $c->c_spinlocks
set $t = $c->c_curthread
set $zom = $c->c_zombies.tl_count
set $rn = $c->c_runqueue.tl_count
printf "cpu %u @0x%x: ", $i, $c
if ($id)
printf "idle, "
else
printf "running, "
end
printf "%u spinlocks, ", $ln
if ($t)
printf "current: %s @0x%x\n", $t->t_name, $t
else
printf "no current thread (?)\n"
end
if ($zom > 0)
printf "%u zombies:\n", $zom
threadlist $c->c_zombies
end
if ($rn > 0)
printf "%u threads in run queue:\n", $rn
threadlist $c->c_zombies
else
printf "run queue empty\n"
end
printf "\n"
set $i++
end
end
document allcpus
Dump all cpus.
Usage: allcpus
end