kernhist revision 1.2.2.2
1 1.2.2.2 skrll # $NetBSD: kernhist,v 1.2.2.2 2016/05/29 08:44:37 skrll Exp $ 2 1.2.2.2 skrll 3 1.2.2.2 skrll # by mrg and skrll 4 1.2.2.2 skrll 5 1.2.2.2 skrll define kernhist 6 1.2.2.2 skrll dont-repeat 7 1.2.2.2 skrll 8 1.2.2.2 skrll set $hist = (struct kern_history *)&$arg0 9 1.2.2.2 skrll set $histf = $hist->f 10 1.2.2.2 skrll set $histn = $hist->n 11 1.2.2.2 skrll set $lcv = $histf 12 1.2.2.2 skrll 13 1.2.2.2 skrll printf "Kernel history %s has %d entries (next free %d)\n", $hist->name, $histn, $histf 14 1.2.2.2 skrll while (1) 15 1.2.2.2 skrll set $e = $hist->e[$lcv] 16 1.2.2.2 skrll set $fmt = $e.fmt 17 1.2.2.2 skrll 18 1.2.2.2 skrll if ($fmt) 19 1.2.2.2 skrll printf "%06lx.%06d ", $e.tv.tv_sec, $e.tv.tv_usec 20 1.2.2.2 skrll printf "%s#%ld@%d: ", $e.fn, $e.call, $e.cpunum 21 1.2.2.2 skrll printf "%s: %lx %lx %lx %lx\n", $fmt, $e.v[0], $e.v[1], $e.v[2], $e.v[3] 22 1.2.2.2 skrll set $lcv = ($lcv + 1) % $histn 23 1.2.2.2 skrll else 24 1.2.2.2 skrll if ($histf == 0) 25 1.2.2.2 skrll printf "No entries\n" 26 1.2.2.2 skrll loop_break 27 1.2.2.2 skrll end 28 1.2.2.2 skrll # if fmt is NULL and hist->f isn't zero, skip back to 29 1.2.2.2 skrll # the start of the list since it hasn't looped yet. 30 1.2.2.2 skrll set $lcv = 0 31 1.2.2.2 skrll end 32 1.2.2.2 skrll 33 1.2.2.2 skrll if ($lcv == $histf) 34 1.2.2.2 skrll loop_break 35 1.2.2.2 skrll end 36 1.2.2.2 skrll end 37 1.2.2.2 skrll end 38 1.2.2.2 skrll document kernhist 39 1.2.2.2 skrll dump a kernel hist. eg, "kernhist usbhist". note that the format 40 1.2.2.2 skrll is not expanded due to there being now way to pass a variable format 41 1.2.2.2 skrll string to gdb's printf. 42 1.2.2.2 skrll end 43
Indexes created Fri Oct 03 02:09:57 GMT 2025