1# Dump kmem statistics 2# @(#)kdump 8.1 (Berkeley) 06/10/93 3 4set $last=75 5set $seg=43 6 7# kmem_hdr 8define kmemhdr 9 printf "\tINUSE\tCALLS\tMEMUSED\tLIMBLK\tMAPBLK\tMAXUSED\t\tLIMIT\n" 10end 11 12# pkmem <ptr> 13define pkmem 14 set $kp=(struct kmemstats *)$arg0 15 set $n = (struct kmemstats *)$kp - (struct kmemstats *)kmemstats 16 printf "%d:\t%d\t%d", $n, $kp->ks_inuse, $kp->ks_calls 17 printf "\t0x%x\t%d", $kp->ks_memuse, $kp->ks_limblocks 18 printf "\t%d\t0x%x\t\t%d\n", $kp->ks_mapblocks, $kp->ks_maxused, $kp->ks_limit 19end 20 21define kmemdump 22 set $kp=(struct kmemstats *)(kmemstats + $arg0) 23 kmemhdr 24 pkmem $kp 25end 26 27define kdumpall 28 set $i=0 29 30 kmemhdr 31 set $kp = (struct kmemstats *)kmemstats 32 while ($i < $last) 33 pkmem $kp 34 set $kp++ 35 set $i++ 36 end 37end 38