4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License (the "License").
6 * You may not use this file except in compliance with the License.
8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 * or http://www.opensolaris.org/os/licensing.
10 * See the License for the specific language governing permissions
11 * and limitations under the License.
13 * When distributing Covered Code, include this CDDL HEADER in each
14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 * If applicable, add the following below this CDDL HEADER, with the
16 * fields enclosed by brackets "[]" replaced with your own identifying
17 * information: Portions Copyright [yyyy] [name of copyright owner]
23 * Copyright 2009 Sun Microsystems, Inc. All rights reserved.
24 * Use is subject to license terms.
28 * Copyright (c) 2012 by Delphix. All rights reserved.
29 * Copyright (c) 2018 Joyent, Inc. All rights reserved.
30 * Copyright (c) 2013 Josef 'Jeff' Sipek <jeffpc@josefsipek.net>
31 * Copyright (c) 2015, 2017 by Delphix. All rights reserved.
35 #include <sys/elf_SPARC.h>
46 #include <mdb/mdb_string.h>
47 #include <mdb/mdb_argvec.h>
48 #include <mdb/mdb_nv.h>
49 #include <mdb/mdb_fmt.h>
50 #include <mdb/mdb_target.h>
51 #include <mdb/mdb_err.h>
52 #include <mdb/mdb_debug.h>
53 #include <mdb/mdb_conf.h>
54 #include <mdb/mdb_module.h>
55 #include <mdb/mdb_modapi.h>
56 #include <mdb/mdb_stdlib.h>
57 #include <mdb/mdb_lex.h>
58 #include <mdb/mdb_io_impl.h>
59 #include <mdb/mdb_help.h>
60 #include <mdb/mdb_disasm.h>
61 #include <mdb/mdb_frame.h>
62 #include <mdb/mdb_evset.h>
63 #include <mdb/mdb_print.h>
64 #include <mdb/mdb_nm.h>
65 #include <mdb/mdb_set.h>
66 #include <mdb/mdb_demangle.h>
67 #include <mdb/mdb_ctf.h>
68 #include <mdb/mdb_whatis.h>
69 #include <mdb/mdb_whatis_impl.h>
70 #include <mdb/mdb_macalias.h>
71 #include <mdb/mdb_tab.h>
72 #include <mdb/mdb_typedef.h>
74 #include <kmdb/kmdb_kdi.h>
79 #define SETHI_MASK 0xc1c00000
80 #define SETHI_VALUE 0x01000000
82 #define IS_SETHI(machcode) (((machcode) & SETHI_MASK) == SETHI_VALUE)
84 #define OP(machcode) ((machcode) >> 30)
85 #define OP3(machcode) (((machcode) >> 19) & 0x3f)
86 #define RD(machcode) (((machcode) >> 25) & 0x1f)
87 #define RS1(machcode) (((machcode) >> 14) & 0x1f)
88 #define I(machcode) (((machcode) >> 13) & 0x01)
90 #define IMM13(machcode) ((machcode) & 0x1fff)
91 #define IMM22(machcode) ((machcode) & 0x3fffff)
93 #define OP_ARITH_MEM_MASK 0x2
97 #define OP3_CC_MASK 0x10
98 #define OP3_COMPLEX_MASK 0x20
109 static mdb_tgt_addr_t
110 write_uint8(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t ull
, uint_t rdback
)
112 uint8_t o
, n
= (uint8_t)ull
;
114 if (rdback
&& mdb_tgt_aread(mdb
.m_target
, as
, &o
, sizeof (o
),
118 if (mdb_tgt_awrite(mdb
.m_target
, as
, &n
, sizeof (n
), addr
) == -1)
122 if (mdb_tgt_aread(mdb
.m_target
, as
, &n
, sizeof (n
), addr
) == -1)
125 mdb_iob_printf(mdb
.m_out
, "%-#*lla%16T%-#8x=%8T0x%x\n",
126 mdb_iob_getmargin(mdb
.m_out
), addr
, o
, n
);
129 return (addr
+ sizeof (n
));
132 static mdb_tgt_addr_t
133 write_uint16(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t ull
, uint_t rdback
)
135 uint16_t o
, n
= (uint16_t)ull
;
137 if (rdback
&& mdb_tgt_aread(mdb
.m_target
, as
, &o
, sizeof (o
),
141 if (mdb_tgt_awrite(mdb
.m_target
, as
, &n
, sizeof (n
), addr
) == -1)
145 if (mdb_tgt_aread(mdb
.m_target
, as
, &n
, sizeof (n
), addr
) == -1)
148 mdb_iob_printf(mdb
.m_out
, "%-#*lla%16T%-#8hx=%8T0x%hx\n",
149 mdb_iob_getmargin(mdb
.m_out
), addr
, o
, n
);
152 return (addr
+ sizeof (n
));
155 static mdb_tgt_addr_t
156 write_uint32(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t ull
, uint_t rdback
)
158 uint32_t o
, n
= (uint32_t)ull
;
160 if (rdback
&& mdb_tgt_aread(mdb
.m_target
, as
, &o
, sizeof (o
),
164 if (mdb_tgt_awrite(mdb
.m_target
, as
, &n
, sizeof (n
), addr
) == -1)
168 if (mdb_tgt_aread(mdb
.m_target
, as
, &n
, sizeof (n
), addr
) == -1)
171 mdb_iob_printf(mdb
.m_out
, "%-#*lla%16T%-#16x=%8T0x%x\n",
172 mdb_iob_getmargin(mdb
.m_out
), addr
, o
, n
);
175 return (addr
+ sizeof (n
));
178 static mdb_tgt_addr_t
179 write_uint64(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t n
, uint_t rdback
)
183 if (rdback
&& mdb_tgt_aread(mdb
.m_target
, as
, &o
, sizeof (o
),
187 if (mdb_tgt_awrite(mdb
.m_target
, as
, &n
, sizeof (n
), addr
) == -1)
191 if (mdb_tgt_aread(mdb
.m_target
, as
, &n
, sizeof (n
), addr
) == -1)
194 mdb_iob_printf(mdb
.m_out
, "%-#*lla%16T%-#24llx=%8T0x%llx\n",
195 mdb_iob_getmargin(mdb
.m_out
), addr
, o
, n
);
198 return (addr
+ sizeof (n
));
202 * Writes to objects of size 1, 2, 4, or 8 bytes. The function
203 * doesn't care if the object is a number or not (e.g. it could
204 * be a byte array, or a struct) as long as the size of the write
205 * is one of the aforementioned ones.
207 static mdb_tgt_addr_t
208 write_var_uint(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t val
, size_t size
,
211 if (size
< sizeof (uint64_t)) {
212 uint64_t max_num
= 1ULL << (size
* NBBY
);
214 if (val
>= max_num
) {
215 uint64_t write_len
= 0;
217 /* count bytes needed for val */
223 mdb_warn("value too big for the length of the write: "
224 "supplied %llu bytes but maximum is %llu bytes\n",
225 (u_longlong_t
)write_len
, (u_longlong_t
)size
);
232 return (write_uint8(as
, addr
, val
, rdback
));
234 return (write_uint16(as
, addr
, val
, rdback
));
236 return (write_uint32(as
, addr
, val
, rdback
));
238 return (write_uint64(as
, addr
, val
, rdback
));
240 mdb_warn("writes of size %u are not supported\n ", size
);
245 static mdb_tgt_addr_t
246 write_ctf_uint(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t n
, uint_t rdback
)
253 if (mdb_ctf_lookup_by_addr(addr
, &mid
) != 0) {
254 mdb_warn("no CTF data found at this address\n");
258 kind
= mdb_ctf_type_kind(mid
);
259 if (kind
== CTF_ERR
) {
260 mdb_warn("CTF data found but type kind could not be read");
264 if (kind
== CTF_K_TYPEDEF
) {
265 mdb_ctf_id_t temp_id
;
266 if (mdb_ctf_type_resolve(mid
, &temp_id
) != 0) {
267 mdb_warn("failed to resolve type");
270 kind
= mdb_ctf_type_kind(temp_id
);
273 if (kind
!= CTF_K_INTEGER
&& kind
!= CTF_K_POINTER
&&
274 kind
!= CTF_K_ENUM
) {
275 mdb_warn("CTF type should be integer, pointer, or enum\n");
279 type_size
= mdb_ctf_type_size(mid
);
281 mdb_warn("CTF data found but size could not be read");
286 return (write_var_uint(as
, addr
, n
, size
, rdback
));
290 write_arglist(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
,
291 int argc
, const mdb_arg_t
*argv
)
293 mdb_tgt_addr_t (*write_value
)(mdb_tgt_as_t
, mdb_tgt_addr_t
,
295 mdb_tgt_addr_t naddr
;
297 int rdback
= mdb
.m_flags
& MDB_FL_READBACK
;
301 mdb_warn("expected value to write following %c\n",
306 switch (argv
->a_un
.a_char
) {
308 write_value
= write_uint8
;
311 write_value
= write_uint16
;
314 write_value
= write_ctf_uint
;
317 write_value
= write_uint32
;
320 write_value
= write_uint64
;
324 for (argv
++, i
= 1; i
< argc
; i
++, argv
++) {
325 if (argv
->a_type
== MDB_TYPE_CHAR
) {
326 mdb_warn("expected immediate value instead of '%c'\n",
331 if (argv
->a_type
== MDB_TYPE_STRING
) {
332 if (mdb_eval(argv
->a_un
.a_str
) == -1) {
333 mdb_warn("failed to write \"%s\"",
337 value
= mdb_nv_get_value(mdb
.m_dot
);
339 value
= argv
->a_un
.a_val
;
341 mdb_nv_set_value(mdb
.m_dot
, addr
);
343 if ((naddr
= write_value(as
, addr
, value
, rdback
)) == addr
) {
344 mdb_warn("failed to write %llr at address 0x%llx",
350 mdb
.m_incr
= naddr
- addr
;
357 static mdb_tgt_addr_t
358 match_uint16(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t v64
, uint64_t m64
)
360 uint16_t x
, val
= (uint16_t)v64
, mask
= (uint16_t)m64
;
362 for (; mdb_tgt_aread(mdb
.m_target
, as
, &x
,
363 sizeof (x
), addr
) == sizeof (x
); addr
+= sizeof (x
)) {
365 if ((x
& mask
) == val
) {
366 mdb_iob_printf(mdb
.m_out
, "%lla\n", addr
);
373 static mdb_tgt_addr_t
374 match_uint32(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t v64
, uint64_t m64
)
376 uint32_t x
, val
= (uint32_t)v64
, mask
= (uint32_t)m64
;
378 for (; mdb_tgt_aread(mdb
.m_target
, as
, &x
,
379 sizeof (x
), addr
) == sizeof (x
); addr
+= sizeof (x
)) {
381 if ((x
& mask
) == val
) {
382 mdb_iob_printf(mdb
.m_out
, "%lla\n", addr
);
389 static mdb_tgt_addr_t
390 match_uint64(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint64_t val
, uint64_t mask
)
394 for (; mdb_tgt_aread(mdb
.m_target
, as
, &x
,
395 sizeof (x
), addr
) == sizeof (x
); addr
+= sizeof (x
)) {
397 if ((x
& mask
) == val
) {
398 mdb_iob_printf(mdb
.m_out
, "%lla\n", addr
);
406 match_arglist(mdb_tgt_as_t as
, uint_t flags
, mdb_tgt_addr_t addr
,
407 int argc
, const mdb_arg_t
*argv
)
409 mdb_tgt_addr_t (*match_value
)(mdb_tgt_as_t
, mdb_tgt_addr_t
,
412 uint64_t args
[2] = { 0, -1ULL }; /* [ value, mask ] */
416 mdb_warn("expected value following %c\n", argv
->a_un
.a_char
);
421 mdb_warn("only value and mask may follow %c\n",
426 switch (argv
->a_un
.a_char
) {
428 match_value
= match_uint16
;
431 match_value
= match_uint32
;
434 match_value
= match_uint64
;
438 for (argv
++, i
= 1; i
< argc
; i
++, argv
++) {
439 if (argv
->a_type
== MDB_TYPE_CHAR
) {
440 mdb_warn("expected immediate value instead of '%c'\n",
445 if (argv
->a_type
== MDB_TYPE_STRING
) {
446 if (mdb_eval(argv
->a_un
.a_str
) == -1) {
447 mdb_warn("failed to evaluate \"%s\"",
451 args
[i
- 1] = mdb_nv_get_value(mdb
.m_dot
);
453 args
[i
- 1] = argv
->a_un
.a_val
;
456 addr
= match_value(as
, addr
, args
[0], args
[1]);
457 mdb_nv_set_value(mdb
.m_dot
, addr
);
460 * In adb(1), the match operators ignore any repeat count that has
461 * been applied to them. We emulate this undocumented property
462 * by returning DCMD_ABORT if our input is not a pipeline.
464 return ((flags
& DCMD_PIPE
) ? DCMD_OK
: DCMD_ABORT
);
468 argncmp(int argc
, const mdb_arg_t
*argv
, const char *s
)
470 for (; *s
!= '\0'; s
++, argc
--, argv
++) {
471 if (argc
== 0 || argv
->a_type
!= MDB_TYPE_CHAR
)
473 if (argv
->a_un
.a_char
!= *s
)
480 print_arglist(mdb_tgt_as_t as
, mdb_tgt_addr_t addr
, uint_t flags
,
481 int argc
, const mdb_arg_t
*argv
)
483 char buf
[MDB_TGT_SYM_NAMLEN
];
484 mdb_tgt_addr_t oaddr
= addr
;
485 mdb_tgt_addr_t naddr
;
489 if (DCMD_HDRSPEC(flags
) && (flags
& DCMD_PIPE_OUT
) == 0) {
493 * This is nasty, but necessary for precise adb compatibility.
494 * Detect disassembly format by looking for "ai" or "ia":
496 if (argncmp(argc
, argv
, "ai")) {
499 } else if (argncmp(argc
, argv
, "ia")) {
508 * If symbolic decoding is on, disassembly is off, and the
509 * address exactly matches a symbol, print the symbol name:
511 if ((mdb
.m_flags
& MDB_FL_PSYM
) && !is_dis
&&
512 (as
== MDB_TGT_AS_VIRT
|| as
== MDB_TGT_AS_FILE
) &&
513 mdb_tgt_lookup_by_addr(mdb
.m_target
, (uintptr_t)addr
,
514 MDB_TGT_SYM_EXACT
, buf
, sizeof (buf
), &sym
, NULL
) == 0)
515 mdb_iob_printf(mdb
.m_out
, "%s:\n", buf
);
518 * If this is a virtual address, cast it so that it reflects
519 * only the valid component of the address.
521 if (as
== MDB_TGT_AS_VIRT
)
522 addr
= (uintptr_t)addr
;
524 mdb_iob_printf(mdb
.m_out
, fmt
,
525 (uint_t
)mdb_iob_getmargin(mdb
.m_out
), addr
);
530 * Yes, for you trivia buffs: if you use a format verb and give
531 * no format string, you get: X^"= "i ... note that in adb the
532 * the '=' verb once had 'z' as its default, but then 'z' was
533 * deleted (it was once an alias for 'i') and so =\n now calls
534 * scanform("z") and produces a 'bad modifier' message.
536 static const mdb_arg_t def_argv
[] = {
537 { MDB_TYPE_CHAR
, MDB_INIT_CHAR('X') },
538 { MDB_TYPE_CHAR
, MDB_INIT_CHAR('^') },
539 { MDB_TYPE_STRING
, MDB_INIT_STRING("= ") },
540 { MDB_TYPE_CHAR
, MDB_INIT_CHAR('i') }
543 argc
= sizeof (def_argv
) / sizeof (mdb_arg_t
);
547 mdb_iob_setflags(mdb
.m_out
, MDB_IOB_INDENT
);
549 for (i
= 0, n
= 1; i
< argc
; i
++, argv
++) {
550 switch (argv
->a_type
) {
552 naddr
= mdb_fmt_print(mdb
.m_target
, as
, addr
, n
,
554 mdb
.m_incr
= naddr
- addr
;
559 case MDB_TYPE_IMMEDIATE
:
560 n
= argv
->a_un
.a_val
;
563 case MDB_TYPE_STRING
:
564 mdb_iob_puts(mdb
.m_out
, argv
->a_un
.a_str
);
570 mdb
.m_incr
= addr
- oaddr
;
571 mdb_iob_clrflags(mdb
.m_out
, MDB_IOB_INDENT
);
576 print_common(mdb_tgt_as_t as
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
578 mdb_tgt_addr_t addr
= mdb_nv_get_value(mdb
.m_dot
);
580 if (argc
!= 0 && argv
->a_type
== MDB_TYPE_CHAR
) {
581 if (strchr("vwzWZ", argv
->a_un
.a_char
))
582 return (write_arglist(as
, addr
, argc
, argv
));
583 if (strchr("lLM", argv
->a_un
.a_char
))
584 return (match_arglist(as
, flags
, addr
, argc
, argv
));
587 return (print_arglist(as
, addr
, flags
, argc
, argv
));
592 cmd_print_core(uintptr_t x
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
594 return (print_common(MDB_TGT_AS_VIRT
, flags
, argc
, argv
));
600 cmd_print_object(uintptr_t x
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
602 return (print_common(MDB_TGT_AS_FILE
, flags
, argc
, argv
));
608 cmd_print_phys(uintptr_t x
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
610 return (print_common(MDB_TGT_AS_PHYS
, flags
, argc
, argv
));
615 cmd_print_value(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
617 uintmax_t ndot
, dot
= mdb_get_dot();
618 const char *tgt_argv
[1];
623 mdb_warn("expected one or more format characters "
628 tgt_argv
[0] = (const char *)&dot
;
629 t
= mdb_tgt_create(mdb_value_tgt_create
, 0, 1, tgt_argv
);
630 mdb_iob_setflags(mdb
.m_out
, MDB_IOB_INDENT
);
632 for (i
= 0, n
= 1; i
< argc
; i
++, argv
++) {
633 switch (argv
->a_type
) {
635 ndot
= mdb_fmt_print(t
, MDB_TGT_AS_VIRT
,
636 dot
, n
, argv
->a_un
.a_char
);
637 if (argv
->a_un
.a_char
== '+' ||
638 argv
->a_un
.a_char
== '-')
643 case MDB_TYPE_IMMEDIATE
:
644 n
= argv
->a_un
.a_val
;
647 case MDB_TYPE_STRING
:
648 mdb_iob_puts(mdb
.m_out
, argv
->a_un
.a_str
);
654 mdb_iob_clrflags(mdb
.m_out
, MDB_IOB_INDENT
);
655 mdb_nv_set_value(mdb
.m_dot
, dot
);
664 cmd_assign_variable(uintptr_t addr
, uint_t flags
,
665 int argc
, const mdb_arg_t
*argv
)
667 uintmax_t dot
= mdb_nv_get_value(mdb
.m_dot
);
672 if (argv
->a_type
!= MDB_TYPE_CHAR
) {
673 mdb_warn("improper arguments following '>' operator\n");
677 switch (argv
->a_un
.a_char
) {
679 addr
= *((uchar_t
*)&addr
);
682 addr
= *((ushort_t
*)&addr
);
685 addr
= *((uint_t
*)&addr
);
688 addr
= *((ulong_t
*)&addr
);
691 mdb_warn("%c is not a valid // modifier\n",
701 if (argc
!= 1 || argv
->a_type
!= MDB_TYPE_STRING
) {
702 mdb_warn("expected single variable name following '>'\n");
706 if (strlen(argv
->a_un
.a_str
) >= (size_t)MDB_NV_NAMELEN
) {
707 mdb_warn("variable names may not exceed %d characters\n",
712 if ((p
= strbadid(argv
->a_un
.a_str
)) != NULL
) {
713 mdb_warn("'%c' may not be used in a variable name\n", *p
);
717 if ((v
= mdb_nv_lookup(&mdb
.m_nv
, argv
->a_un
.a_str
)) == NULL
)
718 (void) mdb_nv_insert(&mdb
.m_nv
, argv
->a_un
.a_str
, NULL
, dot
, 0);
720 mdb_nv_set_value(v
, dot
);
727 print_soutype(const char *sou
, uintptr_t addr
, uint_t flags
)
729 static const char *prefixes
[] = { "struct ", "union " };
730 size_t namesz
= 7 + strlen(sou
) + 1;
731 char *name
= mdb_alloc(namesz
, UM_SLEEP
| UM_GC
);
735 for (i
= 0; i
< 2; i
++) {
736 (void) mdb_snprintf(name
, namesz
, "%s%s", prefixes
[i
], sou
);
738 if (mdb_ctf_lookup_by_name(name
, &id
) == 0) {
742 v
.a_type
= MDB_TYPE_STRING
;
745 rv
= mdb_call_dcmd("print", addr
, flags
, 1, &v
);
754 print_type(const char *name
, uintptr_t addr
, uint_t flags
)
761 if (!(flags
& DCMD_ADDRSPEC
)) {
762 addr
= mdb_get_dot();
763 flags
|= DCMD_ADDRSPEC
;
766 if ((rv
= print_soutype(name
, addr
, flags
)) != DCMD_ERR
)
769 snamesz
= strlen(name
) + 3;
770 sname
= mdb_zalloc(snamesz
, UM_SLEEP
| UM_GC
);
771 (void) mdb_snprintf(sname
, snamesz
, "%s_t", name
);
773 if (mdb_ctf_lookup_by_name(sname
, &id
) == 0) {
777 v
.a_type
= MDB_TYPE_STRING
;
778 v
.a_un
.a_str
= sname
;
780 rv
= mdb_call_dcmd("print", addr
, flags
, 1, &v
);
784 sname
[snamesz
- 2] = 's';
785 rv
= print_soutype(sname
, addr
, flags
);
790 exec_alias(const char *fname
, uintptr_t addr
, uint_t flags
)
795 if ((alias
= mdb_macalias_lookup(fname
)) == NULL
)
798 if (flags
& DCMD_ADDRSPEC
) {
799 size_t sz
= sizeof (uintptr_t) * 2 + strlen(alias
) + 1;
800 char *addralias
= mdb_alloc(sz
, UM_SLEEP
| UM_GC
);
801 (void) mdb_snprintf(addralias
, sz
, "%p%s", addr
, alias
);
802 rv
= mdb_eval(addralias
);
804 rv
= mdb_eval(alias
);
807 return (rv
== -1 ? DCMD_ABORT
: DCMD_OK
);
812 cmd_src_file(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
818 if (argc
!= 1 || argv
->a_type
!= MDB_TYPE_STRING
)
821 fname
= argv
->a_un
.a_str
;
823 if (flags
& DCMD_PIPE_OUT
) {
824 mdb_warn("macro files cannot be used as input to a pipeline\n");
828 if ((fio
= mdb_fdio_create_path(mdb
.m_ipath
, fname
,
829 O_RDONLY
, 0)) != NULL
) {
830 mdb_frame_t
*fp
= mdb
.m_frame
;
833 mdb_iob_stack_push(&fp
->f_istk
, mdb
.m_in
, yylineno
);
834 mdb
.m_in
= mdb_iob_create(fio
, MDB_IOB_RDONLY
);
837 ASSERT(fp
== mdb
.m_frame
);
838 mdb
.m_in
= mdb_iob_stack_pop(&fp
->f_istk
);
839 yylineno
= mdb_iob_lineno(mdb
.m_in
);
841 if (err
== MDB_ERR_PAGER
&& mdb
.m_fmark
!= fp
)
842 longjmp(fp
->f_pcb
, err
);
844 if (err
== MDB_ERR_QUIT
|| err
== MDB_ERR_ABORT
||
845 err
== MDB_ERR_SIGINT
|| err
== MDB_ERR_OUTPUT
)
846 longjmp(fp
->f_pcb
, err
);
851 if ((rv
= exec_alias(fname
, addr
, flags
)) != DCMD_ERR
||
852 (rv
= print_type(fname
, addr
, flags
)) != DCMD_ERR
)
855 mdb_warn("failed to open %s (see ::help '$<')\n", fname
);
860 cmd_exec_file(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
867 * The syntax [expr[,count]]$< with no trailing macro file name is
868 * magic in that if count is zero, this command won't be called and
869 * the expression is thus a no-op. If count is non-zero, we get
870 * invoked with argc == 0, and this means abort the current macro.
871 * If our debugger stack depth is greater than one, we may be using
872 * $< from within a previous $<<, so in that case we set m_in to
873 * NULL to force this entire frame to be popped.
876 if (mdb_iob_stack_size(&mdb
.m_frame
->f_istk
) != 0) {
877 mdb_iob_destroy(mdb
.m_in
);
878 mdb
.m_in
= mdb_iob_stack_pop(&mdb
.m_frame
->f_istk
);
879 } else if (mdb
.m_depth
> 1) {
880 mdb_iob_destroy(mdb
.m_in
);
883 mdb_warn("input stack is empty\n");
887 if ((flags
& (DCMD_PIPE
| DCMD_PIPE_OUT
)) || mdb
.m_depth
== 1)
888 return (cmd_src_file(addr
, flags
, argc
, argv
));
890 if (argc
!= 1 || argv
->a_type
!= MDB_TYPE_STRING
)
893 fname
= argv
->a_un
.a_str
;
895 if ((fio
= mdb_fdio_create_path(mdb
.m_ipath
, fname
,
896 O_RDONLY
, 0)) != NULL
) {
897 mdb_iob_destroy(mdb
.m_in
);
898 mdb
.m_in
= mdb_iob_create(fio
, MDB_IOB_RDONLY
);
902 if ((rv
= exec_alias(fname
, addr
, flags
)) != DCMD_ERR
||
903 (rv
= print_type(fname
, addr
, flags
)) != DCMD_ERR
)
906 mdb_warn("failed to open %s (see ::help '$<')\n", fname
);
913 cmd_cat(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
915 int status
= DCMD_OK
;
920 if (flags
& DCMD_ADDRSPEC
)
923 for (; argc
-- != 0; argv
++) {
924 if (argv
->a_type
!= MDB_TYPE_STRING
) {
925 mdb_warn("expected string argument\n");
930 if ((fio
= mdb_fdio_create_path(NULL
,
931 argv
->a_un
.a_str
, O_RDONLY
, 0)) == NULL
) {
932 mdb_warn("failed to open %s", argv
->a_un
.a_str
);
937 iob
= mdb_iob_create(fio
, MDB_IOB_RDONLY
);
939 while (!(mdb_iob_getflags(iob
) & (MDB_IOB_EOF
| MDB_IOB_ERR
))) {
940 ssize_t len
= mdb_iob_read(iob
, buf
, sizeof (buf
));
942 if (mdb_iob_write(mdb
.m_out
, buf
, len
) < 0) {
944 mdb_warn("write failed");
951 if (mdb_iob_err(iob
))
952 mdb_warn("error while reading %s", mdb_iob_name(iob
));
954 mdb_iob_destroy(iob
);
963 cmd_grep(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
965 if (argc
!= 1 || argv
->a_type
!= MDB_TYPE_STRING
)
968 if (mdb_eval(argv
->a_un
.a_str
) == -1)
971 if (mdb_get_dot() != 0)
972 mdb_printf("%lr\n", addr
);
979 cmd_map(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
981 if (argc
!= 1 || argv
->a_type
!= MDB_TYPE_STRING
)
984 if (mdb_eval(argv
->a_un
.a_str
) == -1)
987 mdb_printf("%llr\n", mdb_get_dot());
993 cmd_notsup(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
995 mdb_warn("command is not supported by current target\n");
1001 cmd_quit(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1004 uint_t opt_u
= FALSE
;
1006 if (mdb_getopts(argc
, argv
,
1007 'u', MDB_OPT_SETBITS
, TRUE
, &opt_u
, NULL
) != argc
)
1008 return (DCMD_USAGE
);
1011 if (mdb
.m_flags
& MDB_FL_NOUNLOAD
) {
1012 warn("%s\n", mdb_strerror(EMDB_KNOUNLOAD
));
1016 kmdb_kdi_set_unload_request();
1020 longjmp(mdb
.m_frame
->f_pcb
, MDB_ERR_QUIT
);
1030 "-u unload the debugger (if not loaded at boot)\n");
1036 cmd_vars(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1038 uint_t opt_nz
= FALSE
, opt_tag
= FALSE
, opt_prt
= FALSE
;
1041 if (mdb_getopts(argc
, argv
,
1042 'n', MDB_OPT_SETBITS
, TRUE
, &opt_nz
,
1043 'p', MDB_OPT_SETBITS
, TRUE
, &opt_prt
,
1044 't', MDB_OPT_SETBITS
, TRUE
, &opt_tag
, NULL
) != argc
)
1045 return (DCMD_USAGE
);
1047 mdb_nv_rewind(&mdb
.m_nv
);
1049 while ((v
= mdb_nv_advance(&mdb
.m_nv
)) != NULL
) {
1050 if ((opt_tag
== FALSE
|| (v
->v_flags
& MDB_NV_TAGGED
)) &&
1051 (opt_nz
== FALSE
|| mdb_nv_get_value(v
) != 0)) {
1053 mdb_printf("%#llr>%s\n",
1054 mdb_nv_get_value(v
), mdb_nv_get_name(v
));
1056 mdb_printf("%s = %llr\n",
1057 mdb_nv_get_name(v
), mdb_nv_get_value(v
));
1067 cmd_nzvars(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1073 return (DCMD_USAGE
);
1075 mdb_nv_rewind(&mdb
.m_nv
);
1077 while ((v
= mdb_nv_advance(&mdb
.m_nv
)) != NULL
) {
1078 if ((value
= mdb_nv_get_value(v
)) != 0)
1079 mdb_printf("%s = %llr\n", mdb_nv_get_name(v
), value
);
1087 cmd_radix(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1090 return (DCMD_USAGE
);
1092 if (flags
& DCMD_ADDRSPEC
) {
1093 if (addr
< 2 || addr
> 16) {
1094 mdb_warn("expected radix from 2 to 16\n");
1097 mdb
.m_radix
= (int)addr
;
1100 mdb_iob_printf(mdb
.m_out
, "radix = %d base ten\n", mdb
.m_radix
);
1106 cmd_symdist(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1109 return (DCMD_USAGE
);
1111 if (flags
& DCMD_ADDRSPEC
)
1112 mdb
.m_symdist
= addr
;
1114 mdb_printf("symbol matching distance = %lr (%s)\n",
1115 mdb
.m_symdist
, mdb
.m_symdist
? "absolute mode" : "smart mode");
1122 cmd_pgwidth(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1125 return (DCMD_USAGE
);
1127 if (flags
& DCMD_ADDRSPEC
)
1128 mdb_iob_resize(mdb
.m_out
, mdb
.m_out
->iob_rows
, addr
);
1130 mdb_printf("output page width = %lu\n", mdb
.m_out
->iob_cols
);
1136 cmd_reopen(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1139 return (DCMD_USAGE
);
1141 if (mdb_tgt_setflags(mdb
.m_target
, MDB_TGT_F_RDWR
) == -1) {
1142 mdb_warn("failed to re-open target for writing");
1151 print_xdata(void *ignored
, const char *name
, const char *desc
, size_t nbytes
)
1153 mdb_printf("%-24s - %s (%lu bytes)\n", name
, desc
, (ulong_t
)nbytes
);
1159 cmd_xdata(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1161 if (argc
!= 0 || (flags
& DCMD_ADDRSPEC
))
1162 return (DCMD_USAGE
);
1164 (void) mdb_tgt_xdata_iter(mdb
.m_target
, print_xdata
, NULL
);
1170 cmd_unset(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1175 for (i
= 0; i
< argc
; i
++) {
1176 if (argv
[i
].a_type
!= MDB_TYPE_STRING
) {
1177 mdb_warn("bad option: arg %lu is not a string\n",
1179 return (DCMD_USAGE
);
1183 for (i
= 0; i
< argc
; i
++, argv
++) {
1184 if ((v
= mdb_nv_lookup(&mdb
.m_nv
, argv
->a_un
.a_str
)) == NULL
)
1185 mdb_warn("variable '%s' not defined\n",
1188 mdb_nv_remove(&mdb
.m_nv
, v
);
1197 cmd_log(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1199 uint_t opt_e
= FALSE
, opt_d
= FALSE
;
1200 const char *filename
= NULL
;
1203 i
= mdb_getopts(argc
, argv
,
1204 'd', MDB_OPT_SETBITS
, TRUE
, &opt_d
,
1205 'e', MDB_OPT_SETBITS
, TRUE
, &opt_e
, NULL
);
1207 if ((i
!= argc
&& i
!= argc
- 1) || (opt_d
&& opt_e
) ||
1208 (i
!= argc
&& argv
[i
].a_type
!= MDB_TYPE_STRING
) ||
1209 (i
!= argc
&& opt_d
== TRUE
) || (flags
& DCMD_ADDRSPEC
))
1210 return (DCMD_USAGE
);
1212 if (mdb
.m_depth
!= 1) {
1213 mdb_warn("log may not be manipulated in this context\n");
1214 return (DCMD_ABORT
);
1218 filename
= argv
[i
].a_un
.a_str
;
1221 * If no arguments were specified, print the log file name (if any)
1222 * and report whether the log is enabled or disabled.
1226 mdb_printf("%s: logging to \"%s\" is currently %s\n",
1227 mdb
.m_pname
, IOP_NAME(mdb
.m_log
),
1228 mdb
.m_flags
& MDB_FL_LOG
? "enabled" : "disabled");
1230 mdb_printf("%s: no log is active\n", mdb
.m_pname
);
1235 * If the -d option was specified, pop the log i/o object off the
1236 * i/o stack of stdin, stdout, and stderr.
1239 if (mdb
.m_flags
& MDB_FL_LOG
) {
1240 (void) mdb_iob_pop_io(mdb
.m_in
);
1241 (void) mdb_iob_pop_io(mdb
.m_out
);
1242 (void) mdb_iob_pop_io(mdb
.m_err
);
1243 mdb
.m_flags
&= ~MDB_FL_LOG
;
1245 mdb_warn("logging is already disabled\n");
1250 * The -e option is the default: (re-)enable logging by pushing
1251 * the log i/o object on to stdin, stdout, and stderr. If we have
1252 * a previous log file, we need to pop it and close it. If we have
1253 * no new log file, push the previous one back on.
1255 if (filename
!= NULL
) {
1256 if (mdb
.m_log
!= NULL
) {
1257 if (mdb
.m_flags
& MDB_FL_LOG
) {
1258 (void) mdb_iob_pop_io(mdb
.m_in
);
1259 (void) mdb_iob_pop_io(mdb
.m_out
);
1260 (void) mdb_iob_pop_io(mdb
.m_err
);
1261 mdb
.m_flags
&= ~MDB_FL_LOG
;
1263 mdb_io_rele(mdb
.m_log
);
1266 mdb
.m_log
= mdb_fdio_create_path(NULL
, filename
,
1267 O_CREAT
| O_APPEND
| O_WRONLY
, 0666);
1269 if (mdb
.m_log
== NULL
) {
1270 mdb_warn("failed to open %s", filename
);
1275 if (mdb
.m_log
!= NULL
) {
1276 mdb_iob_push_io(mdb
.m_in
, mdb_logio_create(mdb
.m_log
));
1277 mdb_iob_push_io(mdb
.m_out
, mdb_logio_create(mdb
.m_log
));
1278 mdb_iob_push_io(mdb
.m_err
, mdb_logio_create(mdb
.m_log
));
1280 mdb_printf("%s: logging to \"%s\"\n", mdb
.m_pname
, filename
);
1281 mdb
.m_log
= mdb_io_hold(mdb
.m_log
);
1282 mdb
.m_flags
|= MDB_FL_LOG
;
1287 mdb_warn("no log file has been selected\n");
1292 cmd_old_log(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1295 mdb_arg_t arg
= { MDB_TYPE_STRING
, MDB_INIT_STRING("-d") };
1296 return (cmd_log(addr
, flags
, 1, &arg
));
1299 return (cmd_log(addr
, flags
, argc
, argv
));
1305 cmd_load(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1307 int i
, mode
= MDB_MOD_LOCAL
;
1309 i
= mdb_getopts(argc
, argv
,
1311 'd', MDB_OPT_SETBITS
, MDB_MOD_DEFER
, &mode
,
1313 'f', MDB_OPT_SETBITS
, MDB_MOD_FORCE
, &mode
,
1314 'g', MDB_OPT_SETBITS
, MDB_MOD_GLOBAL
, &mode
,
1315 's', MDB_OPT_SETBITS
, MDB_MOD_SILENT
, &mode
,
1321 if ((flags
& DCMD_ADDRSPEC
) || argc
!= 1 ||
1322 argv
->a_type
!= MDB_TYPE_STRING
||
1323 strchr("+-", argv
->a_un
.a_str
[0]) != NULL
)
1324 return (DCMD_USAGE
);
1326 if (mdb_module_load(argv
->a_un
.a_str
, mode
) < 0)
1337 "-d defer load until next continue\n"
1339 "-s load module silently\n");
1344 cmd_unload(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1349 i
= mdb_getopts(argc
, argv
,
1351 'd', MDB_OPT_SETBITS
, MDB_MOD_DEFER
, &mode
,
1358 if (argc
!= 1 || argv
->a_type
!= MDB_TYPE_STRING
)
1359 return (DCMD_USAGE
);
1361 if (mdb_module_unload(argv
->a_un
.a_str
, mode
) == -1) {
1362 mdb_warn("failed to unload %s", argv
->a_un
.a_str
);
1374 "-d defer unload until next continue\n");
1379 cmd_dbmode(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1381 if (argc
> 1 || (argc
!= 0 && (flags
& DCMD_ADDRSPEC
)))
1382 return (DCMD_USAGE
);
1385 if (argv
->a_type
!= MDB_TYPE_STRING
)
1386 return (DCMD_USAGE
);
1387 if ((addr
= mdb_dstr2mode(argv
->a_un
.a_str
)) != MDB_DBG_HELP
)
1389 } else if (flags
& DCMD_ADDRSPEC
)
1392 mdb_printf("debugging mode = 0x%04x\n", mdb
.m_debug
);
1398 cmd_version(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1401 mdb_printf("\r%s (DEBUG)\n", mdb_conf_version());
1403 mdb_printf("\r%s\n", mdb_conf_version());
1410 cmd_algol(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1412 if (mdb
.m_flags
& MDB_FL_ADB
)
1413 mdb_printf("No algol 68 here\n");
1415 mdb_printf("No adb here\n");
1421 cmd_obey(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1423 if (mdb
.m_flags
& MDB_FL_ADB
)
1424 mdb_printf("CHAPTER 1\n");
1426 mdb_printf("No Language H here\n");
1432 print_global(void *data
, const GElf_Sym
*sym
, const char *name
,
1433 const mdb_syminfo_t
*sip
, const char *obj
)
1437 if (mdb_tgt_vread((mdb_tgt_t
*)data
, &value
, sizeof (value
),
1438 (uintptr_t)sym
->st_value
) == sizeof (value
))
1439 mdb_printf("%s(%llr):\t%lr\n", name
, sym
->st_value
, value
);
1441 mdb_printf("%s(%llr):\t?\n", name
, sym
->st_value
);
1448 cmd_globals(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1451 return (DCMD_USAGE
);
1453 (void) mdb_tgt_symbol_iter(mdb
.m_target
, MDB_TGT_OBJ_EVERY
,
1454 MDB_TGT_SYMTAB
, MDB_TGT_BIND_GLOBAL
| MDB_TGT_TYPE_OBJECT
|
1455 MDB_TGT_TYPE_FUNC
, print_global
, mdb
.m_target
);
1462 cmd_eval(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1464 if (argc
!= 1 || argv
->a_type
!= MDB_TYPE_STRING
)
1465 return (DCMD_USAGE
);
1467 if (mdb_eval(argv
->a_un
.a_str
) == -1)
1468 return (DCMD_ABORT
);
1475 print_file(void *data
, const GElf_Sym
*sym
, const char *name
,
1476 const mdb_syminfo_t
*sip
, const char *obj
)
1478 int i
= *((int *)data
);
1480 mdb_printf("%d\t%s\n", i
++, name
);
1487 cmd_files(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1490 const char *obj
= MDB_TGT_OBJ_EVERY
;
1492 if ((flags
& DCMD_ADDRSPEC
) || argc
> 1)
1493 return (DCMD_USAGE
);
1496 if (argv
->a_type
!= MDB_TYPE_STRING
)
1497 return (DCMD_USAGE
);
1499 obj
= argv
->a_un
.a_str
;
1502 (void) mdb_tgt_symbol_iter(mdb
.m_target
, obj
, MDB_TGT_SYMTAB
,
1503 MDB_TGT_BIND_ANY
| MDB_TGT_TYPE_FILE
, print_file
, &i
);
1509 map_name(const mdb_map_t
*map
, const char *name
)
1511 if (map
->map_flags
& MDB_TGT_MAP_HEAP
)
1512 return ("[ heap ]");
1513 if (name
!= NULL
&& name
[0] != 0)
1516 if (map
->map_flags
& MDB_TGT_MAP_SHMEM
)
1517 return ("[ shmem ]");
1518 if (map
->map_flags
& MDB_TGT_MAP_STACK
)
1519 return ("[ stack ]");
1520 if (map
->map_flags
& MDB_TGT_MAP_ANON
)
1521 return ("[ anon ]");
1522 if (map
->map_name
!= NULL
)
1523 return (map
->map_name
);
1524 return ("[ unknown ]");
1529 print_map(void *ignored
, const mdb_map_t
*map
, const char *name
)
1531 name
= map_name(map
, name
);
1533 mdb_printf("%?p %?p %?lx %s\n", map
->map_base
,
1534 map
->map_base
+ map
->map_size
, map
->map_size
, name
);
1539 cmd_mappings(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1543 if (argc
> 1 || (argc
!= 0 && (flags
& DCMD_ADDRSPEC
)))
1544 return (DCMD_USAGE
);
1546 mdb_printf("%<u>%?s %?s %?s %s%</u>\n",
1547 "BASE", "LIMIT", "SIZE", "NAME");
1549 if (flags
& DCMD_ADDRSPEC
) {
1550 if ((m
= mdb_tgt_addr_to_map(mdb
.m_target
, addr
)) == NULL
)
1551 mdb_warn("failed to obtain mapping");
1553 (void) print_map(NULL
, m
, NULL
);
1555 } else if (argc
!= 0) {
1556 if (argv
->a_type
== MDB_TYPE_STRING
)
1557 m
= mdb_tgt_name_to_map(mdb
.m_target
, argv
->a_un
.a_str
);
1559 m
= mdb_tgt_addr_to_map(mdb
.m_target
, argv
->a_un
.a_val
);
1562 mdb_warn("failed to obtain mapping");
1564 (void) print_map(NULL
, m
, NULL
);
1566 } else if (mdb_tgt_mapping_iter(mdb
.m_target
, print_map
, NULL
) == -1)
1567 mdb_warn("failed to iterate over mappings");
1573 whatis_map_callback(void *wp
, const mdb_map_t
*map
, const char *name
)
1575 mdb_whatis_t
*w
= wp
;
1578 name
= map_name(map
, name
);
1580 while (mdb_whatis_match(w
, map
->map_base
, map
->map_size
, &cur
))
1581 mdb_whatis_report_address(w
, cur
, "in %s [%p,%p)\n",
1582 name
, map
->map_base
, map
->map_base
+ map
->map_size
);
1589 whatis_run_mappings(mdb_whatis_t
*w
, void *ignored
)
1591 (void) mdb_tgt_mapping_iter(mdb
.m_target
, whatis_map_callback
, w
);
1597 objects_printversion(void *ignored
, const mdb_map_t
*map
, const char *name
)
1600 const char *version
;
1602 ctfp
= mdb_tgt_name_to_ctf(mdb
.m_target
, name
);
1603 if (ctfp
== NULL
|| (version
= ctf_label_topmost(ctfp
)) == NULL
)
1604 version
= "Unknown";
1606 mdb_printf("%-28s %s\n", name
, version
);
1612 cmd_objects(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1614 uint_t opt_v
= FALSE
;
1617 if ((flags
& DCMD_ADDRSPEC
) || mdb_getopts(argc
, argv
,
1618 'v', MDB_OPT_SETBITS
, TRUE
, &opt_v
, NULL
) != argc
)
1619 return (DCMD_USAGE
);
1622 cb
= objects_printversion
;
1623 mdb_printf("%<u>%-28s %s%</u>\n", "NAME", "VERSION");
1626 mdb_printf("%<u>%?s %?s %?s %s%</u>\n",
1627 "BASE", "LIMIT", "SIZE", "NAME");
1630 if (mdb_tgt_object_iter(mdb
.m_target
, cb
, NULL
) == -1) {
1631 mdb_warn("failed to iterate over objects");
1640 showrev_addversion(void *vers_nv
, const mdb_map_t
*ignored
, const char *object
)
1643 const char *version
= NULL
;
1646 objname
= mdb_alloc(strlen(object
) + 1, UM_SLEEP
| UM_GC
);
1647 (void) strcpy(objname
, object
);
1649 if ((ctfp
= mdb_tgt_name_to_ctf(mdb
.m_target
, objname
)) != NULL
)
1650 version
= ctf_label_topmost(ctfp
);
1653 * Not all objects have CTF and label data, so set version to "Unknown".
1655 if (version
== NULL
)
1656 version
= "Unknown";
1658 (void) mdb_nv_insert(vers_nv
, version
, NULL
, (uintptr_t)objname
,
1665 showrev_ispatch(const char *s
)
1671 s
++; /* skip T for T-patch */
1673 for (; *s
!= '\0'; s
++) {
1674 if ((*s
< '0' || *s
> '9') && *s
!= '-')
1683 showrev_printobject(mdb_var_t
*v
, void *ignored
)
1685 mdb_printf("%s ", MDB_NV_COOKIE(v
));
1690 showrev_printversion(mdb_var_t
*v
, void *showall
)
1692 const char *version
= mdb_nv_get_name(v
);
1695 patch
= showrev_ispatch(version
);
1696 if (patch
|| (uintptr_t)showall
) {
1697 mdb_printf("%s: %s Objects: ",
1698 (patch
? "Patch" : "Version"), version
);
1699 (void) mdb_inc_indent(2);
1701 mdb_nv_defn_iter(v
, showrev_printobject
, NULL
);
1703 (void) mdb_dec_indent(2);
1711 * Display version information for each object in the system.
1712 * Print information about patches only, unless showall is TRUE.
1715 showrev_objectversions(int showall
)
1719 (void) mdb_nv_create(&vers_nv
, UM_SLEEP
| UM_GC
);
1720 if (mdb_tgt_object_iter(mdb
.m_target
, showrev_addversion
,
1722 mdb_warn("failed to iterate over objects");
1726 mdb_nv_sort_iter(&vers_nv
, showrev_printversion
,
1727 (void *)(uintptr_t)showall
, UM_SLEEP
| UM_GC
);
1732 * Display information similar to what showrev(1M) displays when invoked
1733 * with no arguments.
1736 showrev_sysinfo(void)
1742 if ((rc
= mdb_tgt_uname(mdb
.m_target
, &u
)) != -1) {
1743 mdb_printf("Hostname: %s\n", u
.nodename
);
1744 mdb_printf("Release: %s\n", u
.release
);
1745 mdb_printf("Kernel architecture: %s\n", u
.machine
);
1749 * Match the order of the showrev(1M) output and put "Application
1750 * architecture" before "Kernel version"
1752 if ((s
= mdb_tgt_isa(mdb
.m_target
)) != NULL
)
1753 mdb_printf("Application architecture: %s\n", s
);
1756 mdb_printf("Kernel version: %s %s %s %s\n",
1757 u
.sysname
, u
.release
, u
.machine
, u
.version
);
1759 if ((s
= mdb_tgt_platform(mdb
.m_target
)) != NULL
)
1760 mdb_printf("Platform: %s\n", s
);
1767 cmd_showrev(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1769 uint_t opt_p
= FALSE
, opt_v
= FALSE
;
1771 if ((flags
& DCMD_ADDRSPEC
) || mdb_getopts(argc
, argv
,
1772 'p', MDB_OPT_SETBITS
, TRUE
, &opt_p
,
1773 'v', MDB_OPT_SETBITS
, TRUE
, &opt_v
, NULL
) != argc
)
1774 return (DCMD_USAGE
);
1777 return (showrev_objectversions(opt_v
));
1779 return (showrev_sysinfo());
1784 findsym_output(uintptr_t *symlist
, uintptr_t value
, uintptr_t location
)
1788 for (symbolp
= symlist
; *symbolp
; symbolp
++)
1789 if (value
== *symbolp
)
1790 mdb_printf("found %a at %a\n", value
, location
);
1795 findsym_cb(void *data
, const GElf_Sym
*sym
, const char *name
,
1796 const mdb_syminfo_t
*sip
, const char *obj
)
1807 uintptr_t *symlist
= data
;
1808 size_t size
= sym
->st_size
;
1811 * if the size of the symbol is 0, then this symbol must be for an
1812 * alternate entry point or just some global label. We will,
1813 * therefore, get back to the text that follows this symbol in
1819 if (sym
->st_shndx
== SHN_UNDEF
)
1822 text
= alloca(size
);
1824 if (mdb_vread(text
, size
, sym
->st_value
) == -1) {
1825 mdb_warn("failed to read text for %s", name
);
1830 for (i
= 0; i
< len
; i
++) {
1831 if (!IS_SETHI(text
[i
]))
1835 value
= IMM22(text
[i
]) << 10;
1838 * see if we already have a match with just the sethi
1840 findsym_output(symlist
, value
, sym
->st_value
+ i
* 4);
1843 * search from the sethi on until we hit a relevant instr
1845 for (j
= i
+ 1; j
< len
; j
++) {
1846 if ((op
= OP(text
[j
])) & OP_ARITH_MEM_MASK
) {
1849 if (RS1(text
[j
]) != rd
)
1853 * This is a simple tool; we only deal
1854 * with operations which take immediates
1856 if (I(text
[j
]) == 0)
1860 * sign extend the immediate value
1862 imm13
= IMM13(text
[j
]);
1866 if (op
== OP_ARITH
) {
1867 /* arithmetic operations */
1868 if (op3
& OP3_COMPLEX_MASK
)
1871 switch (op3
& ~OP3_CC_MASK
) {
1885 /* loads and stores */
1891 findsym_output(symlist
, value
,
1892 sym
->st_value
+ j
* 4);
1895 * if we're clobbering rd, break
1897 if (RD(text
[j
]) == rd
)
1899 } else if (IS_SETHI(text
[j
])) {
1900 if (RD(text
[j
]) == rd
)
1902 } else if (OP(text
[j
]) == 1) {
1904 * see if a call clobbers an %o or %g
1916 cmd_findsym(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
1919 uint_t optg
= FALSE
;
1923 i
= mdb_getopts(argc
, argv
, 'g', MDB_OPT_SETBITS
, TRUE
, &optg
, NULL
);
1928 len
= argc
+ ((flags
& DCMD_ADDRSPEC
) ? 1 : 0) + 1;
1931 return (DCMD_USAGE
);
1934 * Set up a NULL-terminated symbol list, and then iterate over the
1935 * symbol table, scanning each function for references to these symbols.
1937 symlist
= mdb_alloc(len
* sizeof (uintptr_t), UM_SLEEP
| UM_GC
);
1940 for (i
= 0; i
< argc
; i
++, argv
++) {
1941 const char *str
= argv
->a_un
.a_str
;
1945 if (argv
->a_type
== MDB_TYPE_STRING
) {
1946 if (strchr("+-", str
[0]) != NULL
)
1947 return (DCMD_USAGE
);
1948 else if (str
[0] >= '0' && str
[0] <= '9')
1949 value
= mdb_strtoull(str
);
1950 else if (mdb_lookup_by_name(str
, &sym
) != 0) {
1951 mdb_warn("symbol '%s' not found", str
);
1952 return (DCMD_USAGE
);
1954 value
= sym
.st_value
;
1956 value
= argv
[i
].a_un
.a_val
;
1959 symlist
[len
++] = value
;
1962 if (flags
& DCMD_ADDRSPEC
)
1963 symlist
[len
++] = addr
;
1965 symlist
[len
] = NULL
;
1968 type
= MDB_TGT_BIND_GLOBAL
| MDB_TGT_TYPE_FUNC
;
1970 type
= MDB_TGT_BIND_ANY
| MDB_TGT_TYPE_FUNC
;
1972 if (mdb_tgt_symbol_iter(mdb
.m_target
, MDB_TGT_OBJ_EVERY
,
1973 MDB_TGT_SYMTAB
, type
, findsym_cb
, symlist
) == -1) {
1974 mdb_warn("failed to iterate over symbol table");
1980 #endif /* __sparc */
1983 dis_str2addr(const char *s
, uintptr_t *addr
)
1987 if (s
[0] >= '0' && s
[0] <= '9') {
1988 *addr
= (uintptr_t)mdb_strtoull(s
);
1992 if (mdb_tgt_lookup_by_name(mdb
.m_target
,
1993 MDB_TGT_OBJ_EVERY
, s
, &sym
, NULL
) == -1) {
1994 mdb_warn("symbol '%s' not found\n", s
);
1998 *addr
= (uintptr_t)sym
.st_value
;
2003 cmd_dis(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2005 mdb_tgt_t
*tgt
= mdb
.m_target
;
2006 mdb_disasm_t
*dis
= mdb
.m_disasm
;
2008 uintptr_t oaddr
, naddr
;
2010 mdb_tgt_status_t st
;
2015 uint_t opt_f
= FALSE
; /* File-mode off by default */
2016 uint_t opt_w
= FALSE
; /* Window mode off by default */
2017 uint_t opt_a
= FALSE
; /* Raw-address mode off by default */
2018 uint_t opt_b
= FALSE
; /* Address & symbols off by default */
2019 uintptr_t n
= -1UL; /* Length of window in instructions */
2020 uintptr_t eaddr
= 0; /* Ending address; 0 if limited by n */
2022 i
= mdb_getopts(argc
, argv
,
2023 'f', MDB_OPT_SETBITS
, TRUE
, &opt_f
,
2024 'w', MDB_OPT_SETBITS
, TRUE
, &opt_w
,
2025 'a', MDB_OPT_SETBITS
, TRUE
, &opt_a
,
2026 'b', MDB_OPT_SETBITS
, TRUE
, &opt_b
,
2027 'n', MDB_OPT_UINTPTR
, &n
, NULL
);
2030 * Disgusting argument post-processing ... basically the idea is to get
2031 * the target address into addr, which we do by using the specified
2032 * expression value, looking up a string as a symbol name, or by
2033 * using the address specified as dot.
2036 if (argc
!= 0 && (argc
- i
) == 1) {
2037 if (argv
[i
].a_type
== MDB_TYPE_STRING
) {
2038 if (argv
[i
].a_un
.a_str
[0] == '-')
2039 return (DCMD_USAGE
);
2041 if (dis_str2addr(argv
[i
].a_un
.a_str
, &addr
))
2044 addr
= argv
[i
].a_un
.a_val
;
2046 return (DCMD_USAGE
);
2050 * If we're not in window mode yet, and some type of arguments were
2051 * specified, see if the address corresponds nicely to a function.
2052 * If not, turn on window mode; otherwise disassemble the function.
2054 if (opt_w
== FALSE
&& (argc
!= i
|| (flags
& DCMD_ADDRSPEC
))) {
2055 if (mdb_tgt_lookup_by_addr(tgt
, addr
,
2056 MDB_TGT_SYM_EXACT
, buf
, sizeof (buf
), &sym
, NULL
) == 0 &&
2057 GELF_ST_TYPE(sym
.st_info
) == STT_FUNC
) {
2059 * If the symbol has a size then set our end address to
2060 * be the end of the function symbol we just located.
2062 if (sym
.st_size
!= 0)
2063 eaddr
= addr
+ (uintptr_t)sym
.st_size
;
2069 * Window-mode doesn't make sense in a loop.
2071 if (flags
& DCMD_LOOP
)
2075 * If -n was explicit, limit output to n instructions;
2076 * otherwise set n to some reasonable default
2084 * If the state is IDLE (i.e. no address space), turn on -f.
2086 if (mdb_tgt_status(tgt
, &st
) == 0 && st
.st_state
== MDB_TGT_IDLE
)
2090 as
= MDB_TGT_AS_FILE
;
2092 as
= MDB_TGT_AS_VIRT
;
2094 if (opt_w
== FALSE
) {
2096 while ((eaddr
== 0 && n
-- != 0) || (addr
< eaddr
)) {
2097 naddr
= mdb_dis_ins2str(dis
, tgt
, as
,
2098 buf
, sizeof (buf
), addr
);
2102 mdb_printf("%-#32p%8T%s\n", addr
, buf
);
2104 mdb_printf("%-#?p %-#32a%8T%s\n",
2107 mdb_printf("%-#32a%8T%s\n", addr
, buf
);
2114 mdb_warn("address is not properly aligned\n");
2119 for (oaddr
= mdb_dis_previns(dis
, tgt
, as
, addr
, n
);
2120 oaddr
< addr
; oaddr
= naddr
) {
2121 naddr
= mdb_dis_ins2str(dis
, tgt
, as
,
2122 buf
, sizeof (buf
), oaddr
);
2126 mdb_printf("%-#32p%8T%s\n", oaddr
, buf
);
2128 mdb_printf("%-#?p %-#32a%8T%s\n",
2131 mdb_printf("%-#32a%8T%s\n", oaddr
, buf
);
2134 if ((naddr
= mdb_dis_ins2str(dis
, tgt
, as
,
2135 buf
, sizeof (buf
), addr
)) == addr
)
2141 mdb_printf("%-#32p%8T%s%", addr
, buf
);
2143 mdb_printf("%-#?p %-#32a%8T%s", addr
, addr
, buf
);
2145 mdb_printf("%-#32a%8T%s%", addr
, buf
);
2146 mdb_printf("%</b>\n");
2148 for (addr
= naddr
; n
-- != 0; addr
= naddr
) {
2149 naddr
= mdb_dis_ins2str(dis
, tgt
, as
,
2150 buf
, sizeof (buf
), addr
);
2154 mdb_printf("%-#32p%8T%s\n", addr
, buf
);
2156 mdb_printf("%-#?p %-#32a%8T%s\n",
2159 mdb_printf("%-#32a%8T%s\n", addr
, buf
);
2169 walk_step(uintptr_t addr
, const void *data
, void *private)
2171 mdb_printf("%#lr\n", addr
);
2176 cmd_walk(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2180 if (argc
< 1 || argc
> 2 || argv
[0].a_type
!= MDB_TYPE_STRING
||
2181 argv
[argc
- 1].a_type
!= MDB_TYPE_STRING
)
2182 return (DCMD_USAGE
);
2185 const char *name
= argv
[1].a_un
.a_str
;
2186 mdb_var_t
*v
= mdb_nv_lookup(&mdb
.m_nv
, name
);
2189 if (v
!= NULL
&& (v
->v_flags
& MDB_NV_RDONLY
) != 0) {
2190 mdb_warn("variable %s is read-only\n", name
);
2191 return (DCMD_ABORT
);
2194 if (v
== NULL
&& (p
= strbadid(name
)) != NULL
) {
2195 mdb_warn("'%c' may not be used in a variable "
2197 return (DCMD_ABORT
);
2200 if (v
== NULL
&& (v
= mdb_nv_insert(&mdb
.m_nv
,
2201 name
, NULL
, 0, 0)) == NULL
)
2205 * If there already exists a vcb for this variable, we may be
2206 * calling ::walk in a loop. We only create a vcb for this
2207 * variable on the first invocation.
2209 if (mdb_vcb_find(v
, mdb
.m_frame
) == NULL
)
2210 mdb_vcb_insert(mdb_vcb_create(v
), mdb
.m_frame
);
2213 if (flags
& DCMD_ADDRSPEC
)
2214 status
= mdb_pwalk(argv
->a_un
.a_str
, walk_step
, NULL
, addr
);
2216 status
= mdb_walk(argv
->a_un
.a_str
, walk_step
, NULL
);
2219 mdb_warn("failed to perform walk");
2227 cmd_walk_tab(mdb_tab_cookie_t
*mcp
, uint_t flags
, int argc
,
2228 const mdb_arg_t
*argv
)
2234 ASSERT(argv
[0].a_type
== MDB_TYPE_STRING
);
2235 return (mdb_tab_complete_walker(mcp
, argv
[0].a_un
.a_str
));
2238 if (argc
== 0 && flags
& DCMD_TAB_SPACE
)
2239 return (mdb_tab_complete_walker(mcp
, NULL
));
2245 mdb_partial_xread(void *buf
, size_t nbytes
, uintptr_t addr
, void *arg
)
2247 ssize_t (*fp
)(mdb_tgt_t
*, const void *, size_t, uintptr_t) =
2248 (ssize_t (*)(mdb_tgt_t
*, const void *, size_t, uintptr_t))arg
;
2250 return (fp(mdb
.m_target
, buf
, nbytes
, addr
));
2255 mdb_partial_pread(void *buf
, size_t nbytes
, physaddr_t addr
, void *arg
)
2257 return (mdb_tgt_pread(mdb
.m_target
, buf
, nbytes
, addr
));
2262 cmd_dump(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2265 MDB_DUMP_ALIGN
| MDB_DUMP_NEWDOT
| MDB_DUMP_ASCII
| MDB_DUMP_HEADER
;
2266 uint_t phys
= FALSE
;
2267 uint_t file
= FALSE
;
2268 uintptr_t group
= 4;
2269 uintptr_t length
= 0;
2270 uintptr_t width
= 1;
2271 mdb_tgt_status_t st
;
2274 if (mdb_getopts(argc
, argv
,
2275 'e', MDB_OPT_SETBITS
, MDB_DUMP_ENDIAN
, &dflags
,
2276 'f', MDB_OPT_SETBITS
, TRUE
, &file
,
2277 'g', MDB_OPT_UINTPTR
, &group
,
2278 'l', MDB_OPT_UINTPTR
, &length
,
2279 'p', MDB_OPT_SETBITS
, TRUE
, &phys
,
2280 'q', MDB_OPT_CLRBITS
, MDB_DUMP_ASCII
, &dflags
,
2281 'r', MDB_OPT_SETBITS
, MDB_DUMP_RELATIVE
, &dflags
,
2282 's', MDB_OPT_SETBITS
, MDB_DUMP_SQUISH
, &dflags
,
2283 't', MDB_OPT_SETBITS
, MDB_DUMP_TRIM
, &dflags
,
2284 'u', MDB_OPT_CLRBITS
, MDB_DUMP_ALIGN
, &dflags
,
2285 'v', MDB_OPT_SETBITS
, MDB_DUMP_PEDANT
, &dflags
,
2286 'w', MDB_OPT_UINTPTR
, &width
, NULL
) != argc
)
2287 return (DCMD_USAGE
);
2289 if ((phys
&& file
) ||
2290 (width
== 0) || (width
> 0x10) ||
2291 (group
== 0) || (group
> 0x100) ||
2292 (mdb
.m_dcount
> 1 && length
> 0))
2293 return (DCMD_USAGE
);
2295 length
= mdb
.m_dcount
;
2298 * If neither -f nor -p were specified and the state is IDLE (i.e. no
2299 * address space), turn on -p. This is so we can read large files.
2301 if (phys
== FALSE
&& file
== FALSE
&& mdb_tgt_status(mdb
.m_target
,
2302 &st
) == 0 && st
.st_state
== MDB_TGT_IDLE
)
2305 dflags
|= MDB_DUMP_GROUP(group
) | MDB_DUMP_WIDTH(width
);
2307 error
= mdb_dump64(mdb_get_dot(), length
, dflags
,
2308 mdb_partial_pread
, NULL
);
2310 error
= mdb_dumpptr(addr
, length
, dflags
,
2311 mdb_partial_xread
, (void *)mdb_tgt_fread
);
2313 error
= mdb_dumpptr(addr
, length
, dflags
,
2314 mdb_partial_xread
, (void *)mdb_tgt_vread
);
2316 return (((flags
& DCMD_LOOP
) || (error
== -1)) ? DCMD_ABORT
: DCMD_OK
);
2321 cmd_echo(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2323 if (flags
& DCMD_ADDRSPEC
)
2324 return (DCMD_USAGE
);
2326 for (; argc
-- != 0; argv
++) {
2327 if (argv
->a_type
== MDB_TYPE_STRING
)
2328 mdb_printf("%s ", argv
->a_un
.a_str
);
2330 mdb_printf("%llr ", argv
->a_un
.a_val
);
2339 cmd_head(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2345 if (!flags
& DCMD_PIPE
)
2346 return (DCMD_USAGE
);
2348 if (argc
== 1 || argc
== 2) {
2352 if (argv
[0].a_type
!= MDB_TYPE_STRING
||
2353 *argv
[0].a_un
.a_str
!= '-')
2354 return (DCMD_USAGE
);
2356 num
= argv
[0].a_un
.a_str
+ 1;
2359 if (argv
[0].a_type
!= MDB_TYPE_STRING
||
2360 strcmp(argv
[0].a_un
.a_str
, "-n") != 0)
2361 return (DCMD_USAGE
);
2363 num
= argv
[1].a_un
.a_str
;
2366 for (cnt
= 0, c
= num
; *c
!= '\0' && isdigit(*c
); c
++)
2367 cnt
= cnt
* 10 + (*c
- '0');
2370 return (DCMD_USAGE
);
2372 } else if (argc
!= 0) {
2373 return (DCMD_USAGE
);
2378 if (p
.pipe_data
== NULL
)
2380 p
.pipe_len
= MIN(p
.pipe_len
, cnt
);
2382 if (flags
& DCMD_PIPE_OUT
) {
2385 while (p
.pipe_len
-- > 0)
2386 mdb_printf("%lx\n", *p
.pipe_data
++);
2397 "-num pass only the first `num' elements in the pipe.\n"
2398 "\n%<b>Note:%</b> `num' is a decimal number.\n");
2402 cmd_typeset(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2404 int add_tag
= 0, del_tag
= 0;
2409 return (cmd_vars(addr
, flags
, argc
, argv
));
2411 if (argv
->a_type
== MDB_TYPE_STRING
&& (argv
->a_un
.a_str
[0] == '-' ||
2412 argv
->a_un
.a_str
[0] == '+')) {
2413 if (argv
->a_un
.a_str
[1] != 't')
2414 return (DCMD_USAGE
);
2415 if (argv
->a_un
.a_str
[0] == '-')
2423 if (!(flags
& DCMD_ADDRSPEC
))
2424 addr
= 0; /* set variables to zero unless explicit addr given */
2426 for (; argc
-- != 0; argv
++) {
2427 if (argv
->a_type
!= MDB_TYPE_STRING
)
2430 if (argv
->a_un
.a_str
[0] == '-' || argv
->a_un
.a_str
[0] == '+') {
2431 mdb_warn("ignored bad option -- %s\n",
2436 if ((p
= strbadid(argv
->a_un
.a_str
)) != NULL
) {
2437 mdb_warn("'%c' may not be used in a variable "
2442 if ((v
= mdb_nv_lookup(&mdb
.m_nv
, argv
->a_un
.a_str
)) == NULL
) {
2443 v
= mdb_nv_insert(&mdb
.m_nv
, argv
->a_un
.a_str
,
2445 } else if (flags
& DCMD_ADDRSPEC
)
2446 mdb_nv_set_value(v
, addr
);
2450 v
->v_flags
|= MDB_NV_TAGGED
;
2452 v
->v_flags
&= ~MDB_NV_TAGGED
;
2462 cmd_context(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2464 if (argc
!= 0 || !(flags
& DCMD_ADDRSPEC
))
2465 return (DCMD_USAGE
);
2467 if (mdb_tgt_setcontext(mdb
.m_target
, (void *)addr
) == 0)
2476 cmd_prompt(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2481 if (argc
> 1 || argv
->a_type
!= MDB_TYPE_STRING
)
2482 return (DCMD_USAGE
);
2483 p
= argv
->a_un
.a_str
;
2486 (void) mdb_set_prompt(p
);
2492 cmd_term(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2494 mdb_printf("%s\n", mdb
.m_termtype
);
2501 cmd_vtop(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2504 mdb_tgt_as_t as
= MDB_TGT_AS_VIRT
;
2506 if (mdb_getopts(argc
, argv
, 'a', MDB_OPT_UINTPTR
, (uintptr_t *)&as
,
2508 return (DCMD_USAGE
);
2510 if (mdb_tgt_vtop(mdb
.m_target
, as
, addr
, &pa
) == -1) {
2511 mdb_warn("failed to get physical mapping");
2515 if (flags
& DCMD_PIPE_OUT
)
2516 mdb_printf("%llr\n", pa
);
2518 mdb_printf("virtual %lr mapped to physical %llr\n", addr
, pa
);
2522 #define EVENTS_OPT_A 0x1 /* ::events -a (show all events) */
2523 #define EVENTS_OPT_V 0x2 /* ::events -v (verbose display) */
2526 event_action(const mdb_tgt_spec_desc_t
*sp
)
2528 if (!(sp
->spec_flags
& MDB_TGT_SPEC_HIDDEN
) && sp
->spec_data
!= NULL
)
2529 return (sp
->spec_data
);
2537 static const char dash20
[] = "--------------------";
2538 mdb_printf("----- - -- -- -- %s%s --%s\n", dash20
, dash20
, dash20
);
2543 print_event(mdb_tgt_t
*t
, void *private, int vid
, void *data
)
2545 uint_t opts
= (uint_t
)(uintptr_t)private;
2546 mdb_tgt_spec_desc_t sp
;
2547 char s1
[41], s2
[22];
2551 (void) mdb_tgt_vespec_info(t
, vid
, &sp
, s1
, sizeof (s1
));
2552 visible
= !(sp
.spec_flags
& (MDB_TGT_SPEC_HIDDEN
|MDB_TGT_SPEC_DELETED
));
2554 if ((opts
& EVENTS_OPT_A
) || visible
) {
2555 int encoding
= (!(sp
.spec_flags
& MDB_TGT_SPEC_DISABLED
)) |
2556 (!(sp
.spec_flags
& MDB_TGT_SPEC_MATCHED
) << 1);
2558 char ldelim
= "<<(["[encoding
];
2559 char rdelim
= ">>)]"[encoding
];
2561 char state
= "0-+*!"[sp
.spec_state
];
2563 char tflag
= "T "[!(sp
.spec_flags
& MDB_TGT_SPEC_STICKY
)];
2564 char aflag
= "d "[!(sp
.spec_flags
& MDB_TGT_SPEC_AUTODIS
)];
2566 if (sp
.spec_flags
& MDB_TGT_SPEC_TEMPORARY
)
2567 tflag
= 't'; /* TEMP takes precedence over STICKY */
2568 if (sp
.spec_flags
& MDB_TGT_SPEC_AUTODEL
)
2569 aflag
= 'D'; /* AUTODEL takes precedence over AUTODIS */
2570 if (sp
.spec_flags
& MDB_TGT_SPEC_AUTOSTOP
)
2571 aflag
= 's'; /* AUTOSTOP takes precedence over both */
2573 if (opts
& EVENTS_OPT_V
) {
2574 if (sp
.spec_state
== MDB_TGT_SPEC_IDLE
||
2575 sp
.spec_state
== MDB_TGT_SPEC_ERROR
)
2576 s2str
= mdb_strerror(sp
.spec_errno
);
2580 s2str
= event_action(&sp
);
2582 if (mdb_snprintf(s2
, sizeof (s2
), "%s", s2str
) >= sizeof (s2
))
2583 (void) strabbr(s2
, sizeof (s2
));
2585 if (vid
> -10 && vid
< 10)
2586 mdb_printf("%c%2d %c", ldelim
, vid
, rdelim
);
2588 mdb_printf("%c%3d%c", ldelim
, vid
, rdelim
);
2590 mdb_printf(" %c %c%c %2u %2u %-40s %-21s\n",
2591 state
, tflag
, aflag
, sp
.spec_hits
, sp
.spec_limit
, s1
, s2
);
2593 if (opts
& EVENTS_OPT_V
) {
2594 mdb_printf("%-17s%s\n", "", event_action(&sp
));
2604 cmd_events(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2608 if ((flags
& DCMD_ADDRSPEC
) || mdb_getopts(argc
, argv
,
2609 'a', MDB_OPT_SETBITS
, EVENTS_OPT_A
, &opts
,
2610 'v', MDB_OPT_SETBITS
, EVENTS_OPT_V
, &opts
, NULL
) != argc
)
2611 return (DCMD_USAGE
);
2614 if (opts
& EVENTS_OPT_V
) {
2615 mdb_printf(" ID S TA HT LM %-40s %-21s\n%-17s%s\n",
2616 "Description", "Status", "", "Action");
2618 mdb_printf(" ID S TA HT LM %-40s %-21s\n",
2619 "Description", "Action");
2623 return (mdb_tgt_vespec_iter(mdb
.m_target
, print_event
,
2624 (void *)(uintptr_t)opts
));
2628 tgt_status(const mdb_tgt_status_t
*tsp
)
2633 if (tsp
->st_flags
& MDB_TGT_BUSY
)
2636 if (tsp
->st_pc
!= 0) {
2637 if (mdb_dis_ins2str(mdb
.m_disasm
, mdb
.m_target
, MDB_TGT_AS_VIRT
,
2638 buf
, sizeof (buf
), tsp
->st_pc
) != tsp
->st_pc
)
2639 format
= "target stopped at:\n%-#16a%8T%s\n";
2641 format
= "target stopped at %a:\n";
2642 mdb_warn(format
, tsp
->st_pc
, buf
);
2645 switch (tsp
->st_state
) {
2647 mdb_warn("target is idle\n");
2649 case MDB_TGT_RUNNING
:
2650 if (tsp
->st_flags
& MDB_TGT_DSTOP
)
2651 mdb_warn("target is running, stop directive pending\n");
2653 mdb_warn("target is running\n");
2655 case MDB_TGT_STOPPED
:
2656 if (tsp
->st_pc
== 0)
2657 mdb_warn("target is stopped\n");
2659 case MDB_TGT_UNDEAD
:
2660 mdb_warn("target has terminated\n");
2663 mdb_warn("target is a core dump\n");
2666 mdb_warn("target is no longer under debugger control\n");
2670 mdb_set_dot(tsp
->st_pc
);
2675 * mdb continue/step commands take an optional signal argument, but the
2676 * corresponding kmdb versions don't.
2679 #define CONT_MAXARGS 0 /* no optional SIG argument */
2681 #define CONT_MAXARGS 1
2686 cmd_cont_common(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
,
2687 int (*t_cont
)(mdb_tgt_t
*, mdb_tgt_status_t
*), const char *name
)
2689 mdb_tgt_t
*t
= mdb
.m_target
;
2690 mdb_tgt_status_t st
;
2693 if ((flags
& DCMD_ADDRSPEC
) || argc
> CONT_MAXARGS
)
2694 return (DCMD_USAGE
);
2697 if (argv
->a_type
== MDB_TYPE_STRING
) {
2698 if (proc_str2sig(argv
->a_un
.a_str
, &sig
) == -1) {
2699 mdb_warn("invalid signal name -- %s\n",
2701 return (DCMD_USAGE
);
2704 sig
= (int)(intmax_t)argv
->a_un
.a_val
;
2707 (void) mdb_tgt_status(t
, &st
);
2709 if (st
.st_state
== MDB_TGT_IDLE
&& mdb_tgt_run(t
, 0, NULL
) == -1) {
2710 if (errno
!= EMDB_TGT
)
2711 mdb_warn("failed to create new target");
2715 if (sig
!= 0 && mdb_tgt_signal(t
, sig
) == -1) {
2716 mdb_warn("failed to post signal %d", sig
);
2720 if (st
.st_state
== MDB_TGT_IDLE
&& t_cont
== &mdb_tgt_step
) {
2721 (void) mdb_tgt_status(t
, &st
);
2722 return (tgt_status(&st
));
2725 if (t_cont(t
, &st
) == -1) {
2726 if (errno
!= EMDB_TGT
)
2727 mdb_warn("failed to %s target", name
);
2731 return (tgt_status(&st
));
2735 cmd_step(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2737 int (*func
)(mdb_tgt_t
*, mdb_tgt_status_t
*) = &mdb_tgt_step
;
2738 const char *name
= "single-step";
2740 if (argc
> 0 && argv
->a_type
== MDB_TYPE_STRING
) {
2741 if (strcmp(argv
->a_un
.a_str
, "out") == 0) {
2742 func
= &mdb_tgt_step_out
;
2743 name
= "step (out)";
2746 } else if (strcmp(argv
->a_un
.a_str
, "over") == 0) {
2747 func
= &mdb_tgt_next
;
2748 name
= "step (over)";
2754 return (cmd_cont_common(addr
, flags
, argc
, argv
, func
, name
));
2758 cmd_step_out(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2760 return (cmd_cont_common(addr
, flags
, argc
, argv
,
2761 &mdb_tgt_step_out
, "step (out)"));
2765 cmd_next(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2767 return (cmd_cont_common(addr
, flags
, argc
, argv
,
2768 &mdb_tgt_next
, "step (over)"));
2772 cmd_cont(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2774 return (cmd_cont_common(addr
, flags
, argc
, argv
,
2775 &mdb_tgt_continue
, "continue"));
2781 cmd_run(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2783 if (flags
& DCMD_ADDRSPEC
)
2784 return (DCMD_USAGE
);
2786 if (mdb_tgt_run(mdb
.m_target
, argc
, argv
) == -1) {
2787 if (errno
!= EMDB_TGT
)
2788 mdb_warn("failed to create new target");
2791 return (cmd_cont(NULL
, 0, 0, NULL
));
2796 * To simplify the implementation of :d, :z, and ::delete, we use the sp
2797 * parameter to store the criteria for what to delete. If spec_base is set,
2798 * we delete vespecs with a matching address. If spec_id is set, we delete
2799 * vespecs with a matching id. Otherwise, we delete all vespecs. We bump
2800 * sp->spec_size so the caller can tell how many vespecs were deleted.
2803 ve_delete(mdb_tgt_t
*t
, mdb_tgt_spec_desc_t
*sp
, int vid
, void *data
)
2805 mdb_tgt_spec_desc_t spec
;
2809 return (0); /* skip over target implementation events */
2811 if (sp
->spec_base
!= NULL
) {
2812 (void) mdb_tgt_vespec_info(t
, vid
, &spec
, NULL
, 0);
2813 if (sp
->spec_base
- spec
.spec_base
< spec
.spec_size
)
2814 status
= mdb_tgt_vespec_delete(t
, vid
);
2815 } else if (sp
->spec_id
== 0) {
2816 (void) mdb_tgt_vespec_info(t
, vid
, &spec
, NULL
, 0);
2817 if (!(spec
.spec_flags
& MDB_TGT_SPEC_STICKY
))
2818 status
= mdb_tgt_vespec_delete(t
, vid
);
2819 } else if (sp
->spec_id
== vid
)
2820 status
= mdb_tgt_vespec_delete(t
, vid
);
2832 ve_delete_spec(mdb_tgt_spec_desc_t
*sp
)
2834 (void) mdb_tgt_vespec_iter(mdb
.m_target
,
2835 (mdb_tgt_vespec_f
*)ve_delete
, sp
);
2837 if (sp
->spec_size
== 0) {
2838 if (sp
->spec_id
!= 0 || sp
->spec_base
!= NULL
)
2839 mdb_warn("no traced events matched description\n");
2847 cmd_zapall(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2849 mdb_tgt_spec_desc_t spec
;
2851 if ((flags
& DCMD_ADDRSPEC
) || argc
!= 0)
2852 return (DCMD_USAGE
);
2854 bzero(&spec
, sizeof (spec
));
2855 return (ve_delete_spec(&spec
));
2859 cmd_delete(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2861 mdb_tgt_spec_desc_t spec
;
2863 if (((flags
& DCMD_ADDRSPEC
) && argc
> 0) || argc
> 1)
2864 return (DCMD_USAGE
);
2866 bzero(&spec
, sizeof (spec
));
2868 if (flags
& DCMD_ADDRSPEC
)
2869 spec
.spec_base
= addr
;
2871 spec
.spec_base
= mdb_get_dot();
2872 else if (argv
->a_type
== MDB_TYPE_STRING
&&
2873 strcmp(argv
->a_un
.a_str
, "all") != 0)
2874 spec
.spec_id
= (int)(intmax_t)mdb_strtonum(argv
->a_un
.a_str
,
2876 else if (argv
->a_type
== MDB_TYPE_IMMEDIATE
)
2877 spec
.spec_id
= (int)(intmax_t)argv
->a_un
.a_val
;
2879 return (ve_delete_spec(&spec
));
2883 cmd_write(uintptr_t addr
, uint_t flags
, int argc
, const mdb_arg_t
*argv
)
2886 int rdback
= mdb
.m_flags
& MDB_FL_READBACK
;
2887 mdb_tgt_addr_t naddr
;
2888 size_t forced_size
= 0;
2889 boolean_t opt_p
, opt_o
, opt_l
;
2893 opt_p
= opt_o
= opt_l
= B_FALSE
;
2895 i
= mdb_getopts(argc
, argv
,
2896 'p', MDB_OPT_SETBITS
, B_TRUE
, &opt_p
,
2897 'o', MDB_OPT_SETBITS
, B_TRUE
, &opt_o
,
2898 'l', MDB_OPT_UINTPTR_SET
, &opt_l
, (uintptr_t *)&forced_size
, NULL
);
2900 if (!(flags
& DCMD_ADDRSPEC
))
2901 return (DCMD_USAGE
);
2903 if (opt_p
&& opt_o
) {
2904 mdb_warn("-o and -p are incompatible\n");
2905 return (DCMD_USAGE
);
2912 return (DCMD_USAGE
);
2914 switch (argv
[0].a_type
) {
2915 case MDB_TYPE_STRING
:
2916 val
= mdb_strtoull(argv
[0].a_un
.a_str
);
2918 case MDB_TYPE_IMMEDIATE
:
2919 val
= argv
[0].a_un
.a_val
;
2922 return (DCMD_USAGE
);
2926 as
= MDB_TGT_AS_PHYS
;
2928 as
= MDB_TGT_AS_FILE
;
2930 as
= MDB_TGT_AS_VIRT
;
2933 naddr
= write_var_uint(as
, addr
, val
, forced_size
, rdback
);
2935 naddr
= write_ctf_uint(as
, addr
, val
, rdback
);
2937 if (addr
== naddr
) {
2938 mdb_warn("failed to write %llr at address %#llx", val
, addr
);
2949 "-l length force a write with the specified length in bytes\n"
2950 "-o write data to the object file location specified\n"
2951 "-p write data to the physical address specified\n"
2953 "Attempts to write the given value to the address provided.\n"
2954 "If -l is not specified, the address must be the position of a\n"
2955 "symbol that is either of integer, pointer, or enum type. The\n"
2956 "type and the size of the symbol are inferred by the CTF found\n"
2957 "in the provided address. The length of the write is guaranteed\n"
2958 "to be the inferred size of the symbol.\n"
2960 "If no CTF data exists, or the address provided is not a symbol\n"
2961 "of integer or pointer type, then the write fails. At that point\n"
2962 "the user can force the write by using the '-l' option and\n"
2963 "specifying its length.\n"
2965 "Note that forced writes with a length that are bigger than\n"
2966 "the size of the biggest data pointer supported are not allowed."
2971 srcexec_file_help(void)
2974 "The library of macros delivered with previous versions of Solaris have been\n"
2975 "superseded by the dcmds and walkers provided by MDB. See ::help for\n"
2976 "commands that can be used to list the available dcmds and walkers.\n"
2978 "Aliases have been created for several of the more popular macros. To see\n"
2979 "the list of aliased macros, as well as their native MDB equivalents,\n"
2984 "When invoked, the $< and $<< dcmds will consult the macro alias list. If an\n"
2985 "alias cannot be found, an attempt will be made to locate a data type whose\n"
2986 "name corresponds to the requested macro. If such a type can be found, it\n"
2987 "will be displayed using the ::print dcmd.\n");
2990 "When invoked, the $< and $<< dcmds will first attempt to locate a macro with\n"
2991 "the indicated name. If no macro can be found, and if no alias exists for\n"
2992 "this macro, an attempt will be made to locate a data type whose name\n"
2993 "corresponds to the requested macro. If such a type can be found, it will be\n"
2994 "displayed using the ::print dcmd.\n");
3001 mdb_printf("Options:\n"
3002 "-a show all events, including internal debugger events\n"
3003 "-v show verbose display, including inactivity reason\n"
3004 "\nOutput Columns:\n"
3005 "ID decimal event specifier id number:\n"
3006 " [ ] event tracing is enabled\n"
3007 " ( ) event tracing is disabled\n"
3008 " < > target is currently stopped on this type of event\n\n"
3009 "S event specifier state:\n"
3010 " - event specifier is idle (not applicable yet)\n"
3011 " + event specifier is active\n"
3012 " * event specifier is armed (target program running)\n"
3013 " ! error occurred while attempting to arm event\n\n"
3014 "TA event specifier flags:\n"
3015 " t event specifier is temporary (delete at next stop)\n"
3016 " T event specifier is sticky (::delete all has no effect)\n"
3017 " d event specifier will be disabled when HT = LM\n"
3018 " D event specifier will be deleted when HT = LM\n"
3019 " s target will automatically stop when HT = LM\n\n"
3020 "HT hit count (number of times event has occurred)\n"
3021 "LM hit limit (limit for autostop, disable, delete)\n");
3028 "-e adjust for endianness\n"
3029 " (assumes 4-byte words; use -g to change word size)\n"
3033 "-f dump from object file\n"
3035 "-g n display bytes in groups of n\n"
3036 " (default is 4; n must be a power of 2, divide line width)\n"
3037 "-l n display n bytes\n"
3038 " (default is 1; rounded up to multiple of line width)\n"
3039 "-p dump from physical memory\n"
3040 "-q don't print ASCII\n"
3041 "-r use relative numbering (automatically sets -u)\n"
3042 "-s elide repeated lines\n"
3043 "-t only read from and display contents of specified addresses\n"
3044 " (default is to read and print entire lines)\n"
3045 "-u un-align output\n"
3046 " (default is to align output at paragraph boundary)\n"
3047 "-w n display n 16-byte paragraphs per line\n"
3048 " (default is 1, maximum is 16)\n");
3052 * Table of built-in dcmds associated with the root 'mdb' module. Future
3053 * expansion of this program should be done here, or through the external
3054 * loadable module interface.
3056 const mdb_dcmd_t mdb_dcmd_builtins
[] = {
3059 * dcmds common to both mdb and kmdb
3061 { ">", "variable-name", "assign variable", cmd_assign_variable
},
3062 { "/", "fmt-list", "format data from virtual as", cmd_print_core
},
3063 { "\\", "fmt-list", "format data from physical as", cmd_print_phys
},
3064 { "@", "fmt-list", "format data from physical as", cmd_print_phys
},
3065 { "=", "fmt-list", "format immediate value", cmd_print_value
},
3066 { "$<", "macro-name", "replace input with macro",
3067 cmd_exec_file
, srcexec_file_help
},
3068 { "$<<", "macro-name", "source macro",
3069 cmd_src_file
, srcexec_file_help
},
3070 { "$%", NULL
, NULL
, cmd_quit
},
3071 { "$?", NULL
, "print status and registers", cmd_notsup
},
3072 { "$a", NULL
, NULL
, cmd_algol
},
3073 { "$b", "[-av]", "list traced software events",
3074 cmd_events
, events_help
},
3075 { "$c", "?[cnt]", "print stack backtrace", cmd_notsup
},
3076 { "$C", "?[cnt]", "print stack backtrace", cmd_notsup
},
3077 { "$d", NULL
, "get/set default output radix", cmd_radix
},
3078 { "$D", "?[mode,...]", NULL
, cmd_dbmode
},
3079 { "$e", NULL
, "print listing of global symbols", cmd_globals
},
3080 { "$f", NULL
, "print listing of source files", cmd_files
},
3081 { "$m", "?[name]", "print address space mappings", cmd_mappings
},
3082 { "$M", NULL
, "list macro aliases", cmd_macalias_list
},
3083 { "$P", "[prompt]", "set debugger prompt string", cmd_prompt
},
3084 { "$q", NULL
, "quit debugger", cmd_quit
},
3085 { "$Q", NULL
, "quit debugger", cmd_quit
},
3086 { "$r", NULL
, "print general-purpose registers", cmd_notsup
},
3087 { "$s", NULL
, "get/set symbol matching distance", cmd_symdist
},
3088 { "$v", NULL
, "print non-zero variables", cmd_nzvars
},
3089 { "$V", "[mode]", "get/set disassembly mode", cmd_dismode
},
3090 { "$w", NULL
, "get/set output page width", cmd_pgwidth
},
3091 { "$W", NULL
, "re-open target in write mode", cmd_reopen
},
3092 { ":a", ":[cmd...]", "set read access watchpoint", cmd_oldwpr
},
3093 { ":b", ":[cmd...]", "breakpoint at the specified address", cmd_oldbp
},
3094 { ":d", "?[id|all]", "delete traced software events", cmd_delete
},
3095 { ":p", ":[cmd...]", "set execute access watchpoint", cmd_oldwpx
},
3096 { ":S", NULL
, NULL
, cmd_step
},
3097 { ":w", ":[cmd...]", "set write access watchpoint", cmd_oldwpw
},
3098 { ":z", NULL
, "delete all traced software events", cmd_zapall
},
3099 { "array", ":[type count] [variable]", "print each array element's "
3100 "address", cmd_array
},
3101 { "bp", "?[+/-dDestT] [-c cmd] [-n count] sym ...", "breakpoint at the "
3102 "specified addresses or symbols", cmd_bp
, bp_help
},
3103 { "dcmds", NULL
, "list available debugger commands", cmd_dcmds
},
3104 { "delete", "?[id|all]", "delete traced software events", cmd_delete
},
3105 { "dis", "?[-abfw] [-n cnt] [addr]", "disassemble near addr", cmd_dis
},
3106 { "disasms", NULL
, "list available disassemblers", cmd_disasms
},
3107 { "dismode", "[mode]", "get/set disassembly mode", cmd_dismode
},
3108 { "dmods", "[-l] [mod]", "list loaded debugger modules", cmd_dmods
},
3109 { "dump", "?[-eqrstu] [-f|-p] [-g bytes] [-l bytes] [-w paragraphs]",
3110 "dump memory from specified address", cmd_dump
, dump_help
},
3111 { "echo", "args ...", "echo arguments", cmd_echo
},
3112 { "enum", "?[-ex] enum [name]", "print an enumeration", cmd_enum
,
3114 { "eval", "command", "evaluate the specified command", cmd_eval
},
3115 { "events", "[-av]", "list traced software events",
3116 cmd_events
, events_help
},
3117 { "evset", "?[+/-dDestT] [-c cmd] [-n count] id ...",
3118 "set software event specifier attributes", cmd_evset
, evset_help
},
3119 { "files", "[object]", "print listing of source files", cmd_files
},
3121 { "findsym", "?[-g] [symbol|addr ...]", "search for symbol references "
3122 "in all known functions", cmd_findsym
, NULL
},
3124 { "formats", NULL
, "list format specifiers", cmd_formats
},
3125 { "grep", "?expr", "print dot if expression is true", cmd_grep
},
3126 { "head", "-num|-n num", "limit number of elements in pipe", cmd_head
,
3128 { "help", "[cmd]", "list commands/command help", cmd_help
, NULL
,
3130 { "list", "?type member [variable]",
3131 "walk list using member as link pointer", cmd_list
, NULL
,
3132 mdb_tab_complete_mt
},
3133 { "map", "?expr", "print dot after evaluating expression", cmd_map
},
3134 { "mappings", "?[name]", "print address space mappings", cmd_mappings
},
3135 { "nm", "?[-DPdghnopuvx] [-f format] [-t types] [object]",
3136 "print symbols", cmd_nm
, nm_help
},
3137 { "nmadd", ":[-fo] [-e end] [-s size] name",
3138 "add name to private symbol table", cmd_nmadd
, nmadd_help
},
3139 { "nmdel", "name", "remove name from private symbol table", cmd_nmdel
},
3140 { "obey", NULL
, NULL
, cmd_obey
},
3141 { "objects", "[-v]", "print load objects information", cmd_objects
},
3142 { "offsetof", "type member", "print the offset of a given struct "
3143 "or union member", cmd_offsetof
, NULL
, mdb_tab_complete_mt
},
3144 { "print", "?[-aCdhiLptx] [-c lim] [-l lim] [type] [member|offset ...]",
3145 "print the contents of a data structure", cmd_print
, print_help
,
3147 { "printf", "?format type member ...", "print and format the "
3148 "member(s) of a data structure", cmd_printf
, printf_help
,
3150 { "regs", NULL
, "print general purpose registers", cmd_notsup
},
3151 { "set", "[-wF] [+/-o opt] [-s dist] [-I path] [-L path] [-P prompt]",
3152 "get/set debugger properties", cmd_set
},
3153 { "showrev", "[-pv]", "print version information", cmd_showrev
},
3154 { "sizeof", "type", "print the size of a type", cmd_sizeof
, NULL
,
3156 { "stack", "?[cnt]", "print stack backtrace", cmd_notsup
},
3157 { "stackregs", "?", "print stack backtrace and registers",
3159 { "status", NULL
, "print summary of current target", cmd_notsup
},
3160 { "term", NULL
, "display current terminal type", cmd_term
},
3161 { "typeset", "[+/-t] var ...", "set variable attributes", cmd_typeset
},
3162 { "typedef", "[-c model | -d | -l | -r file | -w file ] [type] [name]",
3163 "create synthetic types", cmd_typedef
, cmd_typedef_help
},
3164 { "unset", "[name ...]", "unset variables", cmd_unset
},
3165 { "vars", "[-npt]", "print listing of variables", cmd_vars
},
3166 { "version", NULL
, "print debugger version string", cmd_version
},
3167 { "vtop", ":[-a as]", "print physical mapping of virtual address",
3169 { "walk", "?name [variable]", "walk data structure", cmd_walk
, NULL
,
3171 { "walkers", NULL
, "list available walkers", cmd_walkers
},
3172 { "whatis", ":[-aikqv]", "given an address, return information",
3173 cmd_whatis
, whatis_help
},
3174 { "whence", "[-v] name ...", "show source of walk or dcmd", cmd_which
},
3175 { "which", "[-v] name ...", "show source of walk or dcmd", cmd_which
},
3176 { "write", "?[-op] [-l len] value",
3177 "write value to the provided memory location", cmd_write
,
3179 { "xdata", NULL
, "print list of external data buffers", cmd_xdata
},
3183 * dcmds specific to kmdb, or which have kmdb-specific arguments
3185 { "?", "fmt-list", "format data from virtual as", cmd_print_core
},
3186 { ":c", NULL
, "continue target execution", cmd_cont
},
3187 { ":e", NULL
, "step target over next instruction", cmd_next
},
3188 { ":s", NULL
, "single-step target to next instruction", cmd_step
},
3189 { ":u", NULL
, "step target out of current function", cmd_step_out
},
3190 { "cont", NULL
, "continue target execution", cmd_cont
},
3191 { "load", "[-sd] module", "load debugger module", cmd_load
, load_help
},
3192 { "next", NULL
, "step target over next instruction", cmd_next
},
3193 { "quit", "[-u]", "quit debugger", cmd_quit
, quit_help
},
3194 { "step", "[ over | out ]",
3195 "single-step target to next instruction", cmd_step
},
3196 { "unload", "[-d] module", "unload debugger module", cmd_unload
,
3198 { "wp", ":[+/-dDelstT] [-rwx] [-pi] [-c cmd] [-n count] [-L size]",
3199 "set a watchpoint at the specified address", cmd_wp
, wp_help
},
3203 * dcmds specific to mdb, or which have mdb-specific arguments
3205 { "?", "fmt-list", "format data from object file", cmd_print_object
},
3206 { "$>", "[file]", "log session to a file", cmd_old_log
},
3207 { "$g", "?", "get/set C++ demangling options", cmd_demflags
},
3208 { "$G", NULL
, "enable/disable C++ demangling support", cmd_demangle
},
3209 { "$i", NULL
, "print signals that are ignored", cmd_notsup
},
3210 { "$l", NULL
, "print the representative thread's lwp id", cmd_notsup
},
3211 { "$p", ":", "change debugger target context", cmd_context
},
3212 { "$x", NULL
, "print floating point registers", cmd_notsup
},
3213 { "$X", NULL
, "print floating point registers", cmd_notsup
},
3214 { "$y", NULL
, "print floating point registers", cmd_notsup
},
3215 { "$Y", NULL
, "print floating point registers", cmd_notsup
},
3216 { ":A", "?[core|pid]", "attach to process or core file", cmd_notsup
},
3217 { ":c", "[SIG]", "continue target execution", cmd_cont
},
3218 { ":e", "[SIG]", "step target over next instruction", cmd_next
},
3219 { ":i", ":", "ignore signal (delete all matching events)", cmd_notsup
},
3220 { ":k", NULL
, "forcibly kill and release target", cmd_notsup
},
3221 { ":t", "?[+/-dDestT] [-c cmd] [-n count] SIG ...", "stop on delivery "
3222 "of the specified signals", cmd_sigbp
, sigbp_help
},
3223 { ":r", "[ args ... ]", "run a new target process", cmd_run
},
3224 { ":R", NULL
, "release the previously attached process", cmd_notsup
},
3225 { ":s", "[SIG]", "single-step target to next instruction", cmd_step
},
3226 { ":u", "[SIG]", "step target out of current function", cmd_step_out
},
3227 { "attach", "?[core|pid]",
3228 "attach to process or core file", cmd_notsup
},
3229 { "cat", "[file ...]", "concatenate and display files", cmd_cat
},
3230 { "cont", "[SIG]", "continue target execution", cmd_cont
},
3231 { "context", ":", "change debugger target context", cmd_context
},
3232 { "dem", "name ...", "demangle C++ symbol names", cmd_demstr
},
3233 { "fltbp", "?[+/-dDestT] [-c cmd] [-n count] fault ...",
3234 "stop on machine fault", cmd_fltbp
, fltbp_help
},
3235 { "fpregs", NULL
, "print floating point registers", cmd_notsup
},
3236 { "kill", NULL
, "forcibly kill and release target", cmd_notsup
},
3237 { "load", "[-s] module", "load debugger module", cmd_load
, load_help
},
3238 { "log", "[-d | [-e] file]", "log session to a file", cmd_log
},
3239 { "next", "[SIG]", "step target over next instruction", cmd_next
},
3240 { "quit", NULL
, "quit debugger", cmd_quit
},
3242 "release the previously attached process", cmd_notsup
},
3243 { "run", "[ args ... ]", "run a new target process", cmd_run
},
3244 { "sigbp", "?[+/-dDestT] [-c cmd] [-n count] SIG ...", "stop on "
3245 "delivery of the specified signals", cmd_sigbp
, sigbp_help
},
3246 { "step", "[ over | out ] [SIG]",
3247 "single-step target to next instruction", cmd_step
},
3248 { "sysbp", "?[+/-dDestT] [-io] [-c cmd] [-n count] syscall ...",
3249 "stop on entry or exit from system call", cmd_sysbp
, sysbp_help
},
3250 { "unload", "module", "unload debugger module", cmd_unload
},
3251 { "wp", ":[+/-dDelstT] [-rwx] [-c cmd] [-n count] [-L size]",
3252 "set a watchpoint at the specified address", cmd_wp
, wp_help
},