* any improvements or extensions that they make and grant Carnegie Mellon
* the rights to redistribute these changes.
*/
-#include <mach_kdb.h>
/*
* xpr silent tracing circular buffer.
*/
mp_enable_preemption();
}
-void
-xprbootstrap(void)
-{
- vm_offset_t addr;
- vm_size_t size;
- kern_return_t kr;
-
- simple_lock_init(&xprlock, 0);
- if (nxprbufs == 0)
- return; /* assume XPR support not desired */
-
- /* leave room at the end for a saved copy of xprptr */
- size = nxprbufs * sizeof(struct xprbuf) + sizeof xprptr;
-
- kr = kmem_alloc_kobject(kernel_map, &addr, size);
- if (kr != KERN_SUCCESS)
- panic("xprbootstrap");
-
- if (xprenable) {
- /*
- * If xprenable is set (the default) then we zero
- * the buffer so xpr_dump doesn't encounter bad pointers.
- * If xprenable isn't set, then we preserve
- * the original contents of the buffer. This is useful
- * if memory survives reboots, so xpr_dump can show
- * the previous buffer contents.
- */
-
- (void) memset((void *) addr, 0, size);
- }
-
- xprbase = (struct xprbuf *) addr;
- xprlast = &xprbase[nxprbufs];
- xprptr = xprbase; /* setting xprptr enables tracing */
-}
-
-int xprinitial = 0;
-
-void
-xprinit(void)
-{
- xprflags |= xprinitial;
-}
-
-#if MACH_KDB
-#include <ddb/db_output.h>
-
-/*
- * Prototypes for functions called from the debugger
- */
-void
-xpr_dump(
- struct xprbuf *base,
- int nbufs);
-
-void
-xpr_search(
- int arg_index,
- int value);
-
-extern jmp_buf_t *db_recover;
-
-/*
- * Print current content of xpr buffers (KDB's sake)
- * Use stack order to make it understandable.
- *
- * Called as "!xpr_dump" this dumps the kernel's xpr buffer.
- * Called with arguments, it can dump xpr buffers in user tasks,
- * assuming they use the same format as the kernel.
- */
-static spl_t xpr_dump_spl;
-static struct xprbuf *base;
-static int nbufs;
-void
-xpr_dump(
- struct xprbuf *_base,
- int _nbufs)
-{
- jmp_buf_t db_jmpbuf;
- jmp_buf_t *prev;
- struct xprbuf *last, *ptr;
- register struct xprbuf *x;
- int i;
-
- base = _base;
- nbufs = _nbufs;
-
- if (base == 0) {
- base = xprbase;
- nbufs = nxprbufs;
- }
-
- if (nbufs == 0)
- return;
-
- if (base == xprbase) {
- xpr_dump_spl = splhigh();
- simple_lock(&xprlock);
- }
-
- last = base + nbufs;
- ptr = * (struct xprbuf **) last;
-
- prev = db_recover;
- if (_setjmp(db_recover = &db_jmpbuf) == 0)
- for (x = ptr, i = 0; i < nbufs; i++) {
- if (--x < base)
- x = last - 1;
-
- if (x->msg == 0)
- break;
-
- db_printf("<%d:%x:%x> ", x - base, x->cpuinfo, x->timestamp);
- db_printf(x->msg, x->arg1,x->arg2,x->arg3,x->arg4,x->arg5);
- }
- db_recover = prev;
-
- if (base == xprbase) {
- simple_unlock(&xprlock);
- splx(xpr_dump_spl);
- }
-}
-
-/*
- * dump xpr table with a selection criteria.
- * argument number "arg_index" must equal "value"
- */
-
-void
-xpr_search(
- int arg_index,
- int value)
-{
- jmp_buf_t db_jmpbuf;
- jmp_buf_t *prev;
- register struct xprbuf *x;
- spl_t s;
- int n;
-
- if (!nxprbufs)
- return;
-
- s = splhigh();
- simple_lock(&xprlock);
-
- prev = db_recover;
- if (_setjmp(db_recover = &db_jmpbuf) == 0) {
- n = nxprbufs;
-
- for (x = *(struct xprbuf **)xprlast ; n--; ) {
- if (--x < xprbase)
- x = xprlast - 1;
-
- if (x->msg == 0) {
- break;
- }
-
- if (*((&x->arg1)+arg_index) != value)
- continue;
-
- db_printf("<%d:%d:%x> ", x - xprbase,
- x->cpuinfo, x->timestamp);
- db_printf(x->msg, x->arg1,x->arg2,x->arg3,x->arg4,x->arg5);
- }
- }
- db_recover = prev;
-
- simple_unlock(&xprlock);
- splx(s);
-}
-#endif /* MACH_KDB */