/*
* Convenience routine for freeing strings.
*/
void
strfree(char *s)
{
mdb_free(s, strlen(s) + 1);
}
/*
* Print the core fields in an NCA node_t. With the "-r" argument,
* provide additional information about the request; with "-v",
* provide more verbose output.
*/
static int
nca_node(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
{
unsigned int i, max;
unsigned int verbose = FALSE;
unsigned int request = FALSE;
const int NODE_REFDELT = NCA_ADDR_WIDTH + 4 + 2;
boolean_t arm;
node_t node;
char *buf;
namedmem_t hdr[4];
if (!(flags & DCMD_ADDRSPEC))
return (DCMD_USAGE);
if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, TRUE, &verbose,
'r', MDB_OPT_SETBITS, TRUE, &request, 'p', NULL) != argc)
return (DCMD_USAGE);
if (!DCMD_HDRSPEC(flags) && verbose)
mdb_printf("\n\n");
if (DCMD_HDRSPEC(flags) || verbose) {
mdb_printf("%<u>%-*s %4s %5s %8s %-*s %-*s %-*s %-*s%</u>\n",
NCA_ADDR_WIDTH, "ADDR", "REF", "STATE", "DATASIZE",
NCA_ADDR_WIDTH, "SQUEUE", NCA_ADDR_WIDTH, "REQUEST",
NCA_ADDR_WIDTH, "PLRUN", NCA_ADDR_WIDTH, "VLRUN");
}
if (mdb_vread(&node, sizeof (node_t), addr) == -1) {
mdb_warn("cannot read node_t at %p", addr);
return (DCMD_ERR);
}
mdb_printf("%0*p %4d %05x %8d %0*p %0*p %0*p %0*p\n",
NCA_ADDR_WIDTH, addr, node.cnt, node.ref,
node.datasz, NCA_ADDR_WIDTH, node.sqp, NCA_ADDR_WIDTH,
node.req, NCA_ADDR_WIDTH, node.plrunn, NCA_ADDR_WIDTH, node.vlrunn);
if (verbose) {
arm = B_TRUE;
for (i = 0; node_refs[i].bit_name != NULL; i++) {
if ((node.ref & (1 << i)) == 0)
continue;
if (arm) {
mdb_printf("%*s|\n", NODE_REFDELT, "");
mdb_printf("%*s+--> ", NODE_REFDELT, "");
arm = B_FALSE;
} else
mdb_printf("%*s ", NODE_REFDELT, "");
mdb_printf("%-12s %s\n", node_refs[i].bit_name,
node_refs[i].bit_descr);
}
}
if (!request || node.req == NULL)
return (DCMD_OK);
mdb_inc_indent(4);
mdb_printf("\n%u byte HTTP/%u.%u %s request (%u bytes in header, "
"%u in content)\n", node.reqsz, node.version >> 16,
node.version & 0xff, method2name(node.method), node.reqhdrsz,
node.reqcontl);
hdr[0].nm_name = "URI";
hdr[0].nm_addr = (uintptr_t)node.path;
hdr[0].nm_len = node.pathsz;
hdr[1].nm_name = "Accept";
hdr[1].nm_addr = (uintptr_t)node.reqaccept;
hdr[1].nm_len = node.reqacceptsz;
hdr[2].nm_name = "Accept-Language";
hdr[2].nm_addr = (uintptr_t)node.reqacceptl;
hdr[2].nm_len = node.reqacceptlsz;
hdr[3].nm_name = "Host";
hdr[3].nm_addr = (uintptr_t)node.reqhost;
hdr[3].nm_len = node.reqhostsz;
/*
* A little optimization. Allocate all of the necessary memory here,
* so we don't have to allocate on each loop iteration.
*/
max = node.reqhdrsz;
for (i = 0; i < 4; i++)
max = MAX(max, hdr[i].nm_len);
max++;
buf = mdb_alloc(max, UM_SLEEP);
mdb_inc_indent(4);
for (i = 0; i < sizeof (hdr) / sizeof (hdr[0]); i++) {
if (hdr[i].nm_len <= 0)
continue;
if (mdb_vread(buf, hdr[i].nm_len, hdr[i].nm_addr) == -1) {
mdb_warn("cannot read \"%s\" header field at %p",
hdr[i].nm_name, hdr[i].nm_addr);
continue;
}
buf[hdr[i].nm_len] = '\0';
mdb_printf("%s: ", hdr[i].nm_name);
mdb_inc_indent(4);
mdb_printf("%s\n", buf);
mdb_dec_indent(4);
}
if (node.reqhdrsz > 0 && verbose) {
if (mdb_vread(buf, node.reqhdrsz, (uintptr_t)node.reqhdr) == -1)
mdb_warn("cannot read header at %p", node.reqhdr);
else {
mdb_printf("Raw header: ");
mdb_inc_indent(4);
printbuf((uint8_t *)buf, node.reqhdrsz);
mdb_dec_indent(4);
}
}
mdb_dec_indent(4);
mdb_dec_indent(4);
mdb_free(buf, max);
return (DCMD_OK);
}
void
mdb_free_align(void *ptr, size_t nbytes)
{
mdb_free(ptr, nbytes);
}
/*
* Print the core fields in an nca_io2_t. With the "-v" argument,
* provide more verbose output. With the "-p" argument, print payload
* information.
*/
static int
nca_io2(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
{
unsigned int i;
unsigned int payload_len;
uint64_t payload_output_max = 0;
unsigned int verbose = FALSE;
const int IO2_ADVDELT = NCA_ADDR_WIDTH + 1;
boolean_t arm;
nca_io2_t io2;
uint8_t *buf;
namedmem_t area[3];
if (!(flags & DCMD_ADDRSPEC))
return (DCMD_USAGE);
if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, TRUE, &verbose,
'p', MDB_OPT_UINT64, &payload_output_max, NULL) != argc)
return (DCMD_USAGE);
if (!DCMD_HDRSPEC(flags) && verbose)
mdb_printf("\n\n");
if (DCMD_HDRSPEC(flags) || verbose) {
mdb_printf("%<u>%-*s %2s %4s %8s %*s %8s %16s %-12s%</u>\n",
NCA_ADDR_WIDTH, "ADDR", "AV", "MFNP", "TID",
NCA_ADDR_WIDTH, "CONN", "CONN_TAG", "CACHE_TAG",
"OPERATION");
}
if (mdb_vread(&io2, sizeof (nca_io2_t), addr) == -1) {
mdb_warn("cannot read nca_io2_t at %p", addr);
return (DCMD_ERR);
}
if (io2.version != NCA_HTTP_VERSION2)
mdb_warn("nca_io2_t at %p has incorrect version `%u'\n", addr,
io2.version);
mdb_printf("%0*p %02x %c%c%c%c %08x %0*llx %08x %016llx %s\n",
NCA_ADDR_WIDTH, addr, io2.advisory, YESNO(io2.more),
YESNO(io2.first), YESNO(io2.nocache), YESNO(io2.preempt),
(uint32_t)io2.tid, NCA_ADDR_WIDTH, io2.cid, io2.tag, io2.ctag,
op2name(io2.op));
if (verbose) {
arm = B_TRUE;
for (i = 0; advise_types[i].bit_name != NULL; i++) {
if ((io2.advisory & (1 << i)) == 0)
continue;
if (arm) {
mdb_printf("%*s|\n", IO2_ADVDELT, "");
mdb_printf("%*s+--> ", IO2_ADVDELT, "");
arm = B_FALSE;
} else
mdb_printf("%*s ", IO2_ADVDELT, "");
mdb_printf("%-15s %s\n", advise_types[i].bit_name,
advise_types[i].bit_descr);
}
}
payload_len = io2.data_len + io2.direct_len + io2.trailer_len;
if (payload_output_max == 0 || payload_len == 0)
return (DCMD_OK);
mdb_inc_indent(4);
mdb_printf("\n%u byte payload consists of:\n", payload_len);
mdb_inc_indent(4);
buf = mdb_alloc(payload_output_max, UM_SLEEP);
area[0].nm_name = "data";
area[0].nm_addr = addr + io2.data;
area[0].nm_len = io2.data_len;
area[1].nm_name = direct2name(io2.direct_type);
area[1].nm_addr = addr + io2.direct;
area[1].nm_len = io2.direct_len;
area[2].nm_name = "trailer";
area[2].nm_addr = addr + io2.trailer;
area[2].nm_len = io2.trailer_len;
for (i = 0; i < sizeof (area) / sizeof (area[0]); i++) {
if (area[i].nm_len <= 0)
continue;
mdb_printf("%d byte %s area at %p (", area[i].nm_len,
area[i].nm_name, area[i].nm_addr);
if (area[i].nm_len > payload_output_max) {
mdb_printf("first");
area[i].nm_len = (int)payload_output_max;
} else
mdb_printf("all");
mdb_printf(" %u bytes follow):\n", area[i].nm_len);
if (mdb_vread(buf, area[i].nm_len, area[i].nm_addr) == -1)
mdb_warn("cannot read %s area at %p", area[i].nm_name,
area[i].nm_addr);
else {
mdb_inc_indent(4);
printbuf(buf, area[i].nm_len);
mdb_dec_indent(4);
}
}
mdb_dec_indent(4);
mdb_dec_indent(4);
mdb_free(buf, payload_output_max);
return (DCMD_OK);
}
void
ttrace_walk_fini(mdb_walk_state_t *wsp)
{
mdb_free(wsp->walk_data, sizeof (trap_trace_ctl_t) * NCPU);
}
