/* * CDDL HEADER START * * The contents of this file are subject to the terms of the * Common Development and Distribution License (the "License"). * You may not use this file except in compliance with the License. * * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE * or http://www.opensolaris.org/os/licensing. * See the License for the specific language governing permissions * and limitations under the License. * * When distributing Covered Code, include this CDDL HEADER in each * file and include the License file at usr/src/OPENSOLARIS.LICENSE. * If applicable, add the following below this CDDL HEADER, with the * fields enclosed by brackets "[]" replaced with your own identifying * information: Portions Copyright [yyyy] [name of copyright owner] * * CDDL HEADER END */ /* * Copyright 2008 Sun Microsystems, Inc. All rights reserved. * Use is subject to license terms. */ #pragma ident "%Z%%M% %I% %E% SMI" /* * This module provides debugging tools for the LDoms channels (ldc) */ #include #include #include #include #define ALLBITS (u_longlong_t)-1 const mdb_bitmask_t ldc_mode_bits[] = { { "raw ", ALLBITS, LDC_MODE_RAW }, { "unrel ", ALLBITS, LDC_MODE_UNRELIABLE }, { "rel ", ALLBITS, LDC_MODE_RELIABLE }, { NULL, 0, 0} }; const mdb_bitmask_t ldc_status_bits[] = { { "init ", ALLBITS, LDC_INIT }, { "open ", ALLBITS, LDC_OPEN }, { "ready ", ALLBITS, LDC_READY }, { "up ", ALLBITS, LDC_UP }, { NULL, 0, 0} }; const mdb_bitmask_t ldc_tstate_bits[] = { { "txq", TS_TXQ_RDY, TS_TXQ_RDY }, { "rxq", TS_RXQ_RDY, TS_RXQ_RDY }, { "hv_qconf", TS_QCONF_RDY, TS_QCONF_RDY }, { "cnex_reg", TS_CNEX_RDY, TS_CNEX_RDY }, { "hv_link_rdy", TS_LINK_READY, TS_LINK_READY }, { "ver_done", TS_VER_DONE, TS_VER_DONE }, { "hs_done", TS_HSHAKE_DONE, TS_HSHAKE_DONE }, { NULL, 0, 0} }; const mdb_bitmask_t ldc_hstate_bits[] = { { "snt_ver", TS_SENT_VER, TS_SENT_VER }, { "snt_rts", TS_SENT_RTS, TS_SENT_RTS }, { "rcv_rtr", TS_RCVD_RTR, TS_RCVD_RTR }, { "snt_rdx", TS_SENT_RDX, TS_SENT_RDX }, { "rcv_ver", TS_RCVD_VER, TS_RCVD_VER }, { "rcv_rts", TS_RCVD_RTS, TS_RCVD_RTS }, { "snt_rtr", TS_SENT_RTR, TS_SENT_RTR }, { "rcv_rdx", TS_RCVD_RDX, TS_RCVD_RDX }, { NULL, 0, 0} }; const mdb_bitmask_t ldc_class_bits[] = { { "generic ", ALLBITS, LDC_DEV_GENERIC }, { "blk ", ALLBITS, LDC_DEV_BLK }, { "blk_svc ", ALLBITS, LDC_DEV_BLK_SVC }, { "net ", ALLBITS, LDC_DEV_NT }, { "net_svc ", ALLBITS, LDC_DEV_NT_SVC }, { "serial ", ALLBITS, LDC_DEV_SERIAL }, { NULL, 0, 0} }; const mdb_bitmask_t ldc_intrstate_bits[] = { { "none ", ALLBITS, LDC_INTR_NONE }, { "active ", ALLBITS, LDC_INTR_ACTIVE }, { "pending", ALLBITS, LDC_INTR_PEND }, { NULL, 0, 0} }; const mdb_bitmask_t ldc_linkstate_bits[] = { { "down ", ALLBITS, LDC_CHANNEL_DOWN }, { "reset", ALLBITS, LDC_CHANNEL_RESET }, { "up ", ALLBITS, LDC_CHANNEL_UP }, { NULL, 0, 0} }; const mdb_bitmask_t msg_type_bits[] = { { "ctrl", ALLBITS, LDC_CTRL }, { "data", ALLBITS, LDC_DATA }, { "err ", ALLBITS, LDC_ERR }, { NULL, 0, 0} }; const mdb_bitmask_t msg_stype_bits[] = { { "info ", ALLBITS, LDC_INFO }, { "ack ", ALLBITS, LDC_ACK }, { "nack ", ALLBITS, LDC_NACK }, { NULL, 0, 0} }; const mdb_bitmask_t msg_ctrl_bits[] = { { "ver ", ALLBITS, LDC_VER }, { "rts ", ALLBITS, LDC_RTS }, { "rtr ", ALLBITS, LDC_RTR }, { "rdx ", ALLBITS, LDC_RDX }, { NULL, 0, 0} }; const mdb_bitmask_t mhdl_status_bits[] = { { "unbound", ALLBITS, LDC_UNBOUND }, { "bound ", LDC_BOUND, LDC_BOUND }, { "mapped ", LDC_MAPPED, LDC_MAPPED }, { NULL, 0, 0} }; const mdb_bitmask_t mhdl_type_bits[] = { { "shadow ", ALLBITS, LDC_SHADOW_MAP }, { "direct ", ALLBITS, LDC_DIRECT_MAP }, { "io ", ALLBITS, LDC_IO_MAP }, { NULL, 0, 0} }; const mdb_bitmask_t mhdl_perm_bits[] = { { "r-- ", ALLBITS, LDC_MEM_R }, { "-w- ", ALLBITS, LDC_MEM_W }, { "--x ", ALLBITS, LDC_MEM_X }, { "rw- ", ALLBITS, LDC_MEM_RW }, { "rwx ", ALLBITS, LDC_MEM_RWX }, { NULL, 0, 0} }; /* * Print LDC channel information */ int ldcinfo(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv) { uint_t verbose = FALSE; ldc_chan_t ldcp; /* * If no ldc_chan_t address was specified on the command line, * we can print out all ldc channels by invoking the * walker, using this dcmd itself as the callback. */ if (!(flags & DCMD_ADDRSPEC)) { if (mdb_walk_dcmd("ldcinfo", "ldcinfo", argc, argv) == -1) { mdb_warn("failed to walk 'ldcinfo'"); return (DCMD_ERR); } return (DCMD_OK); } if (mdb_vread(&ldcp, sizeof (ldcp), addr) != sizeof (ldcp)) { mdb_warn("failed to read ldc_chan_t at %p", addr); return (DCMD_ERR); } if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, TRUE, &verbose, NULL) != argc) { return (DCMD_USAGE); } if (DCMD_HDRSPEC(flags)) { mdb_printf("%-5s %-13s %-6s %-8s %-6s %-6s %-6s %-8s\n", "ID", "ADDR", "MODE", "DEVCLASS", "STATUS", "TSTATE", "HSTATE", "HV_LINK"); } mdb_printf("0x%-3x 0x%p %b %b %b 0x%-4x 0x%-4x %b\n", ldcp.id, addr, ldcp.mode, ldc_mode_bits, ldcp.devclass, ldc_class_bits, ldcp.status, ldc_status_bits, ldcp.tstate, ldcp.hstate, ldcp.link_state, ldc_linkstate_bits); if (verbose) { mdb_printf("Link State: %b\n", ldcp.tstate, ldc_tstate_bits); mdb_printf("Hshake State: %b\n", ldcp.hstate, ldc_hstate_bits); mdb_printf("Callback: %a(0x%p) - %s\n", ldcp.cb, ldcp.cb_arg, (ldcp.cb_enabled == 1) ? "enabled" : "disabled"); mdb_printf("Tx Info: 0x%p len=0x%lx hd=0x%lx tl=0x%lx " "intr=%b\n", ldcp.tx_q_va, ldcp.tx_q_entries, ldcp.tx_head, ldcp.tx_tail, ldcp.tx_intr_state, ldc_intrstate_bits); mdb_printf("Rx Info: 0x%p len=0x%lx intr=%b\n", ldcp.rx_q_va, ldcp.rx_q_entries, ldcp.rx_intr_state, ldc_intrstate_bits); if (ldcp.mode == LDC_MODE_RELIABLE) { mdb_printf("Rx Dq Info: 0x%p len=0x%lx hd=0x%lx " "tl=0x%lx ackhd=0x%lx", ldcp.rx_dq_va, ldcp.rx_dq_entries, ldcp.rx_dq_head, ldcp.rx_dq_tail, ldcp.rx_ack_head); mdb_printf("Stream: buf=0x%p off=0x%lx remains=0x%lx\n", ldcp.stream_bufferp, ldcp.stream_offset, ldcp.stream_remains); } if (ldcp.mtbl != NULL || ldcp.mhdl_list != NULL) mdb_printf("Memory: mtbl=0x%p mhdl_list=0x%p\n", ldcp.mtbl, ldcp.mhdl_list); if (ldcp.exp_dring_list != NULL || ldcp.imp_dring_list != NULL) mdb_printf("Desc Ring: exported=0x%p imported=0x%p\n", ldcp.exp_dring_list, ldcp.imp_dring_list); mdb_printf("\n"); } return (DCMD_OK); } /* * ldcinfo walker initialization */ int ldc_walk_init(mdb_walk_state_t *wsp) { ldc_soft_state_t softstate; /* Must have a start addr. */ if (wsp->walk_addr == NULL) { if (mdb_readvar(&wsp->walk_addr, "ldcssp") == -1) { mdb_warn("failed to read 'ldcssp'"); return (WALK_ERR); } if (wsp->walk_addr == NULL) return (WALK_DONE); if (mdb_vread(&softstate, sizeof (softstate), wsp->walk_addr) != sizeof (softstate)) { mdb_warn("failed to read softstate %p", wsp->walk_addr); return (WALK_ERR); } wsp->walk_addr = (uintptr_t)softstate.chan_list; } return (WALK_NEXT); } /* * ldcinfo walker step routine. */ int ldc_walk_step(mdb_walk_state_t *wsp) { int status; ldc_chan_t ldcp; if (wsp->walk_addr == NULL) return (WALK_DONE); if (mdb_vread(&ldcp, sizeof (ldc_chan_t), wsp->walk_addr) == -1) { mdb_warn("failed to read at %p", wsp->walk_addr); return (WALK_ERR); } status = wsp->walk_callback(wsp->walk_addr, &ldcp, wsp->walk_cbdata); wsp->walk_addr = (uintptr_t)ldcp.next; return (status); } /* * dcmd to print ldc packet information * * arg0 - count (number of pkts to print) */ int ldcmsg(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv) { ldc_msg_t msg; uint64_t count = 1; int i; /* * If no ldc_msg_t address was specified on the command line, * print usage. */ if (!(flags & DCMD_ADDRSPEC)) { return (DCMD_USAGE); } /* chk if we need to print more that one pkt */ if (argc != 0) { const mdb_arg_t *arg = &argv[0]; if (arg->a_type == MDB_TYPE_IMMEDIATE) count = arg->a_un.a_val; else count = (uint64_t)mdb_strtoull(arg->a_un.a_str); } /* print header */ mdb_printf("%-13s %-10s %-4s %-5s %-4s %-11s %-4s %-10s\n", "ADDR", "SEQID", "TYPE", "STYPE", "CTRL", "ENVELOPE", "SIZE", "ACKID"); /* print pkt */ for (i = 0; i < count; i++) { if (mdb_vread(&msg, sizeof (msg), addr) != sizeof (msg)) { mdb_warn("failed to read ldc_msg_t at %p", addr); return (DCMD_ERR); } mdb_printf("0x%p 0x%-8x %b %b", addr, msg.seqid, msg.type, msg_type_bits, msg.stype, msg_stype_bits); if (msg.type == LDC_CTRL) mdb_printf(" %b ", msg.ctrl, msg_ctrl_bits); else mdb_printf(" %-4s ", "--"); mdb_printf("%-5s %-5s", ((msg.env & LDC_FRAG_START) != 0) ? "start" : "--", ((msg.env & LDC_FRAG_STOP) != 0) ? "stop" : "--"); /* print size */ if (msg.type == LDC_DATA && msg.stype == LDC_INFO) mdb_printf(" 0x%-2x ", (msg.env & LDC_LEN_MASK)); else mdb_printf(" %-4s ", "--"); /* print ackid if data/ack */ if (msg.type == LDC_DATA && msg.stype == LDC_ACK) mdb_printf("0x%-8x\n", msg.ackid); else mdb_printf("%-10s\n", "--"); /* next packet */ addr = addr + LDC_PACKET_SIZE; } return (DCMD_OK); } /* * Print LDC map table information */ int ldcmtbl(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv) { uint_t verbose = FALSE; ldc_mtbl_t mtbl; ldc_mte_slot_t mte; uintptr_t mteaddr; int i; /* * If no ldc_mtbl_t address was specified on the command line, * print usage. */ if (!(flags & DCMD_ADDRSPEC)) { return (DCMD_USAGE); } if (mdb_vread(&mtbl, sizeof (mtbl), addr) != sizeof (mtbl)) { mdb_warn("failed to read ldc_mtbl_t at %p", addr); return (DCMD_ERR); } mdb_printf("Map Table: addr=0x%p total=%ld free=%ld tbl_base=0x%p\n", addr, mtbl.num_entries, mtbl.num_avail, mtbl.table); if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, TRUE, &verbose, NULL) != argc) { return (DCMD_USAGE); } if (!verbose) return (DCMD_OK); /* print table header */ mdb_printf("\n%-4s %-13s %-2s %-2s %-2s %-2s %-2s %-2s %-2s %-5s\n", "IDX", "RA_PFN", "CW", "CR", "IW", "IR", "X", "W", "R", "PGSZC"); /* print each table entry */ mteaddr = (uintptr_t)mtbl.table; for (i = 0; i < mtbl.num_entries; i++) { if (mdb_vread(&mte, sizeof (mte), mteaddr) != sizeof (mte)) { return (DCMD_ABORT); } /* skip empty entries */ if (mte.entry.ll != 0) { mdb_printf("%-4d 0x%-11x %-2d %-2d %-2d %-2d " "%-2d %-2d %-2d 0x%-2x\n", i, mte.entry.mte_bit.rpfn, mte.entry.mte_bit.cw, mte.entry.mte_bit.cr, mte.entry.mte_bit.iw, mte.entry.mte_bit.ir, mte.entry.mte_bit.x, mte.entry.mte_bit.w, mte.entry.mte_bit.r, mte.entry.mte_bit.pgszc); } mteaddr = mteaddr + sizeof (ldc_mte_slot_t); } return (DCMD_OK); } /* * Print LDC channel memory handle information */ int ldcmhdl(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv) { ldc_mhdl_t mhdl; ldc_memseg_t memseg; uint64_t count = 1; int i; /* * If no ldc_msg_t address was specified on the command line, * print usage. */ if (!(flags & DCMD_ADDRSPEC)) { return (DCMD_USAGE); } /* chk if we need to print more that one pkt */ if (argc != 0) { const mdb_arg_t *arg = &argv[0]; if (arg->a_type == MDB_TYPE_IMMEDIATE) count = arg->a_un.a_val; else count = (uint64_t)mdb_strtoull(arg->a_un.a_str); } mdb_printf("%-13s %-7s %-7s %-4s %-13s %-13s %-10s\n", "ADDR", "STATUS", "MAPTYPE", "PERM", "MEMSEG", "VADDR", "SIZE"); /* print pkt */ for (i = 0; i < count; i++) { if (mdb_vread(&mhdl, sizeof (mhdl), addr) != sizeof (mhdl)) { mdb_warn("failed to read ldc_mhdl_t at %p", addr); return (DCMD_ERR); } mdb_printf("0x%p %b %b %b 0x%p ", addr, mhdl.status, mhdl_status_bits, mhdl.mtype, mhdl_type_bits, mhdl.perm, mhdl_perm_bits, mhdl.memseg); if (mhdl.memseg != NULL) { if (mdb_vread(&memseg, sizeof (memseg), (uintptr_t)mhdl.memseg) != sizeof (memseg)) { mdb_warn("failed to read ldc_memseg_t at %p", mhdl.memseg); return (DCMD_ERR); } mdb_printf("0x%p 0x%-8lx\n", memseg.vaddr, memseg.size); } else { mdb_printf("\n"); } if ((addr = (uintptr_t)mhdl.next) == NULL) break; } return (DCMD_OK); } /* * MDB module linkage information: */ static const mdb_dcmd_t dcmds[] = { { "ldcinfo", "?[-v]", "LDom channel information", ldcinfo }, { "ldcmsg", ":[cnt]", "LDom channel message", ldcmsg }, { "ldcmtbl", ":[-v]", "LDom channel map table", ldcmtbl }, { "ldcmhdl", ":[cnt]", "LDom channel memory handles", ldcmhdl }, { NULL } }; static const mdb_walker_t walkers[] = { { "ldcinfo", "List all LDom channels", ldc_walk_init, ldc_walk_step, NULL }, { NULL } }; static const mdb_modinfo_t modinfo = { MDB_API_VERSION, dcmds, walkers }; const mdb_modinfo_t * _mdb_init(void) { return (&modinfo); }