xref: /onnv-gate/usr/src/cmd/sgs/rtld/mdbmod/common/rtld.c (revision 2850:689acf945b89)
10Sstevel@tonic-gate /*
20Sstevel@tonic-gate  * CDDL HEADER START
30Sstevel@tonic-gate  *
40Sstevel@tonic-gate  * The contents of this file are subject to the terms of the
51618Srie  * Common Development and Distribution License (the "License").
61618Srie  * You may not use this file except in compliance with the License.
70Sstevel@tonic-gate  *
80Sstevel@tonic-gate  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
90Sstevel@tonic-gate  * or http://www.opensolaris.org/os/licensing.
100Sstevel@tonic-gate  * See the License for the specific language governing permissions
110Sstevel@tonic-gate  * and limitations under the License.
120Sstevel@tonic-gate  *
130Sstevel@tonic-gate  * When distributing Covered Code, include this CDDL HEADER in each
140Sstevel@tonic-gate  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
150Sstevel@tonic-gate  * If applicable, add the following below this CDDL HEADER, with the
160Sstevel@tonic-gate  * fields enclosed by brackets "[]" replaced with your own identifying
170Sstevel@tonic-gate  * information: Portions Copyright [yyyy] [name of copyright owner]
180Sstevel@tonic-gate  *
190Sstevel@tonic-gate  * CDDL HEADER END
200Sstevel@tonic-gate  */
211618Srie 
220Sstevel@tonic-gate /*
231618Srie  * Copyright 2006 Sun Microsystems, Inc.  All rights reserved.
240Sstevel@tonic-gate  * Use is subject to license terms.
250Sstevel@tonic-gate  */
260Sstevel@tonic-gate 
270Sstevel@tonic-gate #pragma ident	"%Z%%M%	%I%	%E% SMI"
280Sstevel@tonic-gate 
290Sstevel@tonic-gate #include <msg.h>
300Sstevel@tonic-gate #include <_rtld.h>
310Sstevel@tonic-gate #include <conv.h>
320Sstevel@tonic-gate #include <sys/mdb_modapi.h>
330Sstevel@tonic-gate #include <sys/param.h>
340Sstevel@tonic-gate #include <stdlib.h>
350Sstevel@tonic-gate 
360Sstevel@tonic-gate /*
370Sstevel@tonic-gate  * Data structure for walkers.
380Sstevel@tonic-gate  */
390Sstevel@tonic-gate typedef struct {
400Sstevel@tonic-gate 	uint_t	w_flags;
410Sstevel@tonic-gate } W_desc;
420Sstevel@tonic-gate 
430Sstevel@tonic-gate 
440Sstevel@tonic-gate /*
450Sstevel@tonic-gate  * Flags values for dcmds
460Sstevel@tonic-gate  */
470Sstevel@tonic-gate 
480Sstevel@tonic-gate #define	RTLD_FLG_VERBOSE	0x0001		/* verbose output */
490Sstevel@tonic-gate 
500Sstevel@tonic-gate static const mdb_bitmask_t rtflags_bits[] = {
510Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_ISMAIN), FLG_RT_ISMAIN, FLG_RT_ISMAIN},
520Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_IMGALLOC), FLG_RT_IMGALLOC, FLG_RT_IMGALLOC},
530Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_RELOCED), FLG_RT_RELOCED, FLG_RT_RELOCED},
540Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_SETGROUP), FLG_RT_SETGROUP, FLG_RT_SETGROUP},
550Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_HWCAP), FLG_RT_HWCAP, FLG_RT_HWCAP},
560Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_OBJECT), FLG_RT_OBJECT, FLG_RT_OBJECT},
570Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_NODUMP), FLG_RT_NODUMP, FLG_RT_NODUMP},
580Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_DELETE), FLG_RT_DELETE, FLG_RT_DELETE},
590Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_ANALYZED), FLG_RT_ANALYZED, FLG_RT_ANALYZED},
600Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_INITDONE), FLG_RT_INITDONE, FLG_RT_INITDONE},
610Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_TRANS), FLG_RT_TRANS, FLG_RT_TRANS},
620Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_FIXED), FLG_RT_FIXED, FLG_RT_FIXED},
630Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_PRELOAD), FLG_RT_PRELOAD, FLG_RT_PRELOAD},
640Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_ALTER), FLG_RT_ALTER, FLG_RT_ALTER},
650Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_LOADFLTR), FLG_RT_LOADFLTR, FLG_RT_LOADFLTR},
660Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_AUDIT), FLG_RT_AUDIT, FLG_RT_AUDIT},
670Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_MODESET), FLG_RT_MODESET, FLG_RT_MODESET},
680Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_ANALZING), FLG_RT_ANALZING, FLG_RT_ANALZING},
690Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_INITFRST), FLG_RT_INITFRST, FLG_RT_INITFRST},
700Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_NOOPEN), FLG_RT_NOOPEN, FLG_RT_NOOPEN},
710Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_FINICLCT), FLG_RT_FINICLCT, FLG_RT_FINICLCT},
720Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_INITCALL), FLG_RT_INITCALL, FLG_RT_INITCALL},
730Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_INTRPOSE), FLG_RT_INTRPOSE, FLG_RT_INTRPOSE},
740Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_DIRECT), FLG_RT_DIRECT, FLG_RT_DIRECT},
750Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_SUNWBSS), FLG_RT_SUNWBSS, FLG_RT_SUNWBSS},
760Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_MOVE), FLG_RT_MOVE, FLG_RT_MOVE},
770Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_DLSYM), FLG_RT_DLSYM, FLG_RT_DLSYM},
780Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_REGSYMS), FLG_RT_REGSYMS, FLG_RT_REGSYMS},
790Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_INITCLCT), FLG_RT_INITCLCT, FLG_RT_INITCLCT},
800Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_HANDLE), FLG_RT_HANDLE, FLG_RT_HANDLE},
810Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FLG_RELOCING), FLG_RT_RELOCING, FLG_RT_RELOCING},
820Sstevel@tonic-gate 	{ NULL, 0, 0}
830Sstevel@tonic-gate };
840Sstevel@tonic-gate 
850Sstevel@tonic-gate static const mdb_bitmask_t rtflags1_bits[] = {
860Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_COPYTOOK), FL1_RT_COPYTOOK, FL1_RT_COPYTOOK},
870Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_RELATIVE), FL1_RT_RELATIVE, FL1_RT_RELATIVE },
880Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_CONFSET), FL1_RT_CONFSET, FL1_RT_CONFSET },
890Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_NODEFLIB), FL1_RT_NODEFLIB, FL1_RT_NODEFLIB },
900Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_ENDFILTE), FL1_RT_ENDFILTE, FL1_RT_ENDFILTE },
910Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_DISPREL), FL1_RT_DISPREL, FL1_RT_DISPREL },
920Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_TEXTREL), FL1_RT_TEXTREL, FL1_RT_TEXTREL },
930Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_INITWAIT), FL1_RT_INITWAIT, FL1_RT_INITWAIT },
940Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_LDDSTUB), FL1_RT_LDDSTUB, FL1_RT_LDDSTUB},
950Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_NOINIFIN), FL1_RT_NOINIFIN, FL1_RT_NOINIFIN },
960Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_USED), FL1_RT_USED, FL1_RT_USED },
970Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_SYMBOLIC), FL1_RT_SYMBOLIC, FL1_RT_SYMBOLIC },
980Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_OBJSFLTR), FL1_RT_OBJSFLTR, FL1_RT_OBJSFLTR },
990Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_OBJAFLTR), FL1_RT_OBJAFLTR, FL1_RT_OBJAFLTR },
1000Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_SYMSFLTR), FL1_RT_SYMSFLTR, FL1_RT_SYMSFLTR },
1010Sstevel@tonic-gate 	{ MSG_ORIG(MSG_FL1_SYMAFLTR), FL1_RT_SYMAFLTR, FL1_RT_SYMAFLTR },
1020Sstevel@tonic-gate 
1030Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_PREINIT), LML_TFLG_AUD_PREINIT,
1040Sstevel@tonic-gate 	    LML_TFLG_AUD_PREINIT },
1050Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_OBJSEARCH), LML_TFLG_AUD_OBJSEARCH,
1060Sstevel@tonic-gate 	    LML_TFLG_AUD_OBJSEARCH },
1070Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_OBJOPEN), LML_TFLG_AUD_OBJOPEN,
1080Sstevel@tonic-gate 	    LML_TFLG_AUD_OBJOPEN },
1090Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_OBJFILTER), LML_TFLG_AUD_OBJFILTER,
1100Sstevel@tonic-gate 	    LML_TFLG_AUD_OBJFILTER },
1110Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_OBJCLOSE), LML_TFLG_AUD_OBJCLOSE,
1120Sstevel@tonic-gate 	    LML_TFLG_AUD_OBJCLOSE },
1130Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_SYMBIND), LML_TFLG_AUD_SYMBIND,
1140Sstevel@tonic-gate 	    LML_TFLG_AUD_SYMBIND },
1150Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_PLTENTER), LML_TFLG_AUD_PLTENTER,
1160Sstevel@tonic-gate 	    LML_TFLG_AUD_PLTENTER },
1170Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_PLTEXIT), LML_TFLG_AUD_PLTEXIT,
1180Sstevel@tonic-gate 	    LML_TFLG_AUD_PLTEXIT },
1190Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_ACTIVITY), LML_TFLG_AUD_ACTIVITY,
1200Sstevel@tonic-gate 	    LML_TFLG_AUD_ACTIVITY },
1210Sstevel@tonic-gate 	{ NULL, 0, 0}
1220Sstevel@tonic-gate };
1230Sstevel@tonic-gate 
1240Sstevel@tonic-gate static const mdb_bitmask_t rtmode_bits[] = {
1250Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_LAZY), RTLD_LAZY, RTLD_LAZY },
1260Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_NOW), RTLD_NOW, RTLD_NOW },
1270Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_NOLOAD), RTLD_NOLOAD, RTLD_NOLOAD },
1280Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_GLOBAL), RTLD_GLOBAL, RTLD_GLOBAL },
1290Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_PARENT), RTLD_PARENT, RTLD_PARENT },
1300Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_GROUP), RTLD_GROUP, RTLD_GROUP },
1310Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_WORLD), RTLD_WORLD, RTLD_WORLD },
1320Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_NODELETE), RTLD_NODELETE, RTLD_NODELETE },
1330Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_FIRST), RTLD_FIRST, RTLD_FIRST },
1340Sstevel@tonic-gate 	{ MSG_ORIG(MSG_MODE_CONFGEN), RTLD_CONFGEN, RTLD_CONFGEN },
1350Sstevel@tonic-gate 	{ NULL, 0, 0}
1360Sstevel@tonic-gate };
1370Sstevel@tonic-gate 
1380Sstevel@tonic-gate static const mdb_bitmask_t bndflags_bits[] = {
1390Sstevel@tonic-gate 	{ MSG_ORIG(MSG_BFL_NEEDED), BND_NEEDED, BND_NEEDED },
1400Sstevel@tonic-gate 	{ MSG_ORIG(MSG_BFL_REFER), BND_REFER, BND_REFER },
141280Srie 	{ MSG_ORIG(MSG_BFL_FILTER), BND_FILTER, BND_FILTER },
1420Sstevel@tonic-gate 	{ NULL, 0, 0}
1430Sstevel@tonic-gate };
1440Sstevel@tonic-gate 
1450Sstevel@tonic-gate static const mdb_bitmask_t grhflags_bits[] = {
1460Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPH_ZERO), GPH_ZERO, GPH_ZERO },
1470Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPH_LDSO), GPH_LDSO, GPH_LDSO },
1480Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPH_FIRST), GPH_FIRST, GPH_FIRST },
1490Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPH_PARENT), GPH_PARENT, GPH_PARENT },
1500Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPH_FILTEE), GPH_FILTEE, GPH_FILTEE },
1510Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPH_INITIAL), GPH_INITIAL, GPH_INITIAL },
1520Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPH_STICKY), GPH_STICKY, GPH_STICKY },
153*2850Srie 	{ MSG_ORIG(MSG_GPH_NOPENDLAZY), GPH_NOPENDLAZY, GPH_NOPENDLAZY },
1540Sstevel@tonic-gate 	{ NULL, 0, 0}
1550Sstevel@tonic-gate };
1560Sstevel@tonic-gate 
1570Sstevel@tonic-gate static const mdb_bitmask_t grdflags_bits[] = {
1580Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPD_AVAIL), GPD_AVAIL, GPD_AVAIL },
1590Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPD_ADDEPS), GPD_ADDEPS, GPD_ADDEPS },
1600Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPD_PARENT), GPD_PARENT, GPD_PARENT },
1610Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPD_FILTER), GPD_FILTER, GPD_FILTER },
1620Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GPD_REMOVE), GPD_REMOVE, GPD_REMOVE },
1630Sstevel@tonic-gate 	{ NULL, 0, 0}
1640Sstevel@tonic-gate };
1650Sstevel@tonic-gate 
1660Sstevel@tonic-gate static const mdb_bitmask_t lmc_bits[] = {
1670Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LMC_ANALYZING), LMC_FLG_ANALYZING, LMC_FLG_ANALYZING},
1680Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LMC_RELOCATING), LMC_FLG_RELOCATING, LMC_FLG_RELOCATING},
1690Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LMC_REANALYZE), LMC_FLG_REANALYZE, LMC_FLG_REANALYZE},
1700Sstevel@tonic-gate 	{ NULL, 0, 0}
1710Sstevel@tonic-gate };
1720Sstevel@tonic-gate 
1730Sstevel@tonic-gate /*
1740Sstevel@tonic-gate  * Obtain a string - typically a link-map name.
1750Sstevel@tonic-gate  */
1760Sstevel@tonic-gate static char *
1770Sstevel@tonic-gate String(uintptr_t addr, const char *name)
1780Sstevel@tonic-gate {
1790Sstevel@tonic-gate 	static char	str[MAXPATHLEN];
1800Sstevel@tonic-gate 
1810Sstevel@tonic-gate 	if (addr) {
1820Sstevel@tonic-gate 		if (mdb_readstr(str, MAXPATHLEN, addr) == -1) {
1830Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ), name, addr);
1840Sstevel@tonic-gate 			return (0);
1850Sstevel@tonic-gate 		}
1860Sstevel@tonic-gate 		return (str);
1870Sstevel@tonic-gate 	}
1880Sstevel@tonic-gate 	return ((char *)MSG_ORIG(MSG_STR_EMPTY));
1890Sstevel@tonic-gate }
1900Sstevel@tonic-gate 
1910Sstevel@tonic-gate /*
1920Sstevel@tonic-gate  * Obtain a link-map name.
1930Sstevel@tonic-gate  */
1940Sstevel@tonic-gate static char *
1950Sstevel@tonic-gate Rtmap_Name(uintptr_t addr)
1960Sstevel@tonic-gate {
1970Sstevel@tonic-gate 	Rt_map	rtmap;
1980Sstevel@tonic-gate 
1990Sstevel@tonic-gate 	if (addr) {
2000Sstevel@tonic-gate 		if (mdb_vread(&rtmap, sizeof (Rt_map), addr) == -1) {
2010Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ),
2020Sstevel@tonic-gate 			    MSG_ORIG(MSG_RTMAP_STR), addr);
2030Sstevel@tonic-gate 			return (0);
2040Sstevel@tonic-gate 		}
2050Sstevel@tonic-gate 		return (String((uintptr_t)NAME(&rtmap),
2060Sstevel@tonic-gate 		    MSG_ORIG(MSG_STR_NAME)));
2070Sstevel@tonic-gate 	}
2080Sstevel@tonic-gate 	return ((char *)MSG_ORIG(MSG_STR_EMPTY));
2090Sstevel@tonic-gate }
2100Sstevel@tonic-gate 
2110Sstevel@tonic-gate void
2120Sstevel@tonic-gate dcmd_Bind_help(void)
2130Sstevel@tonic-gate {
2140Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_BND_HELP));
2150Sstevel@tonic-gate }
2160Sstevel@tonic-gate 
2170Sstevel@tonic-gate static int
2180Sstevel@tonic-gate /* ARGSUSED2 */
2190Sstevel@tonic-gate dcmd_Bind(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
2200Sstevel@tonic-gate {
2210Sstevel@tonic-gate 	Bnd_desc	bnd;
2220Sstevel@tonic-gate 	char		*str;
2230Sstevel@tonic-gate 
2240Sstevel@tonic-gate 	/*
2250Sstevel@tonic-gate 	 * Insure we have a valid address.
2260Sstevel@tonic-gate 	 */
2270Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0) {
2280Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_BND_STR));
2290Sstevel@tonic-gate 		return (DCMD_USAGE);
2300Sstevel@tonic-gate 	}
2310Sstevel@tonic-gate 
2320Sstevel@tonic-gate 	/*
2330Sstevel@tonic-gate 	 * Obtain the binding descriptor.
2340Sstevel@tonic-gate 	 */
2350Sstevel@tonic-gate 	if (mdb_vread(&bnd, sizeof (Bnd_desc), addr) == -1) {
2360Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_BND_STR), addr);
2370Sstevel@tonic-gate 		return (DCMD_ERR);
2380Sstevel@tonic-gate 	}
2390Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_BND_TITLE), addr);
2400Sstevel@tonic-gate 
2410Sstevel@tonic-gate 	/*
2420Sstevel@tonic-gate 	 * Establish the identity of the caller.
2430Sstevel@tonic-gate 	 */
2440Sstevel@tonic-gate 	if ((str = Rtmap_Name((uintptr_t)bnd.b_caller)) == 0)
2450Sstevel@tonic-gate 		return (DCMD_ERR);
2460Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_BND_LINE1), bnd.b_caller, str);
2470Sstevel@tonic-gate 
2480Sstevel@tonic-gate 	/*
2490Sstevel@tonic-gate 	 * Establish the identity of the dependency.
2500Sstevel@tonic-gate 	 */
2510Sstevel@tonic-gate 	if ((str = Rtmap_Name((uintptr_t)bnd.b_depend)) == 0)
2520Sstevel@tonic-gate 		return (DCMD_ERR);
2530Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_BND_LINE2), bnd.b_depend, str);
2540Sstevel@tonic-gate 
2550Sstevel@tonic-gate 	/*
2560Sstevel@tonic-gate 	 * Display any flags.
2570Sstevel@tonic-gate 	 */
2580Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_BND_LINE3), bnd.b_flags, bnd.b_flags,
2590Sstevel@tonic-gate 	    bndflags_bits);
2600Sstevel@tonic-gate 
2610Sstevel@tonic-gate 	return (DCMD_OK);
2620Sstevel@tonic-gate }
2630Sstevel@tonic-gate 
2640Sstevel@tonic-gate static void
2650Sstevel@tonic-gate dcmd_Depends_help(void)
2660Sstevel@tonic-gate {
2670Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_DEPENDS_HELP));
2680Sstevel@tonic-gate }
2690Sstevel@tonic-gate 
2700Sstevel@tonic-gate static int
2710Sstevel@tonic-gate Depends(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv,
2720Sstevel@tonic-gate     uint_t flg, const char *msg)
2730Sstevel@tonic-gate {
2740Sstevel@tonic-gate 	Alist		al;
2750Sstevel@tonic-gate 	uintptr_t	listcalc, listnext;
2760Sstevel@tonic-gate 	size_t		ucnt, tcnt;
2770Sstevel@tonic-gate 	Bnd_desc *	bdp;
2780Sstevel@tonic-gate 
2790Sstevel@tonic-gate 	/*
2800Sstevel@tonic-gate 	 * Obtain the Alist and determine its number of elements and those
2810Sstevel@tonic-gate 	 * that are in use.
2820Sstevel@tonic-gate 	 */
2830Sstevel@tonic-gate 	if (mdb_vread(&al, sizeof (Alist), addr) == -1) {
2840Sstevel@tonic-gate 	    mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_STR_ALIST), addr);
2850Sstevel@tonic-gate 	    return (DCMD_ERR);
2860Sstevel@tonic-gate 	}
2870Sstevel@tonic-gate 
2880Sstevel@tonic-gate 	ucnt = (al.al_next - sizeof (Alist) + sizeof (void *)) / al.al_size;
2890Sstevel@tonic-gate 	tcnt = (al.al_end - sizeof (Alist) + sizeof (void *)) / al.al_size;
2900Sstevel@tonic-gate 	mdb_printf(msg, addr, ucnt, tcnt);
2910Sstevel@tonic-gate 
2920Sstevel@tonic-gate 	if (((flg & RTLD_FLG_VERBOSE) == 0) || (ucnt == 0))
2930Sstevel@tonic-gate 		return (DCMD_OK);
2940Sstevel@tonic-gate 
2950Sstevel@tonic-gate 	/*
2960Sstevel@tonic-gate 	 * Under verbose mode print the name of each dependency.  An Alist can
2970Sstevel@tonic-gate 	 * have a variable number of data items, so read each individual entry.
2980Sstevel@tonic-gate 	 */
2990Sstevel@tonic-gate 	listcalc = (uintptr_t)(&(al.al_data[0]));
3000Sstevel@tonic-gate 	listcalc -= (uintptr_t)(&al);
3010Sstevel@tonic-gate 	listcalc += addr;
3020Sstevel@tonic-gate 	if (mdb_vread(&bdp, sizeof (Bnd_desc *), listcalc) == -1) {
3030Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ),
3040Sstevel@tonic-gate 		    MSG_ORIG(MSG_BNDDESC_STR), listcalc);
3050Sstevel@tonic-gate 		return (DCMD_ERR);
3060Sstevel@tonic-gate 	}
3070Sstevel@tonic-gate 
3080Sstevel@tonic-gate 	mdb_inc_indent(4);
3090Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
3100Sstevel@tonic-gate 
3110Sstevel@tonic-gate 	if (dcmd_Bind((uintptr_t)bdp, flags, argc, argv) == DCMD_ERR) {
3120Sstevel@tonic-gate 		mdb_dec_indent(4);
3130Sstevel@tonic-gate 		return (DCMD_ERR);
3140Sstevel@tonic-gate 	}
3150Sstevel@tonic-gate 
3160Sstevel@tonic-gate 	listnext = (uintptr_t)(al.al_next + addr);
3170Sstevel@tonic-gate 	for (listcalc += al.al_size; listcalc < listnext;
3180Sstevel@tonic-gate 	    listcalc += al.al_size) {
3190Sstevel@tonic-gate 		if (mdb_vread(&bdp, sizeof (Bnd_desc *), listcalc) == -1) {
3200Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ),
3210Sstevel@tonic-gate 			    MSG_ORIG(MSG_BNDDESC_STR), listcalc);
3220Sstevel@tonic-gate 			return (DCMD_ERR);
3230Sstevel@tonic-gate 		}
3240Sstevel@tonic-gate 
3250Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
3260Sstevel@tonic-gate 		if (dcmd_Bind((uintptr_t)bdp, flags, argc, argv) == DCMD_ERR) {
3270Sstevel@tonic-gate 			mdb_dec_indent(4);
3280Sstevel@tonic-gate 			return (DCMD_ERR);
3290Sstevel@tonic-gate 		}
3300Sstevel@tonic-gate 	}
3310Sstevel@tonic-gate 	mdb_dec_indent(4);
3320Sstevel@tonic-gate 	return (DCMD_OK);
3330Sstevel@tonic-gate }
3340Sstevel@tonic-gate 
3350Sstevel@tonic-gate static int
3360Sstevel@tonic-gate dcmd_Depends(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
3370Sstevel@tonic-gate {
3380Sstevel@tonic-gate 	Rt_map		rtmap;
3390Sstevel@tonic-gate 	char		*str;
3400Sstevel@tonic-gate 	uint_t		flg = 0;
3410Sstevel@tonic-gate 
3420Sstevel@tonic-gate 	/*
3430Sstevel@tonic-gate 	 * Insure we have a valid address, and provide for a -v option.
3440Sstevel@tonic-gate 	 */
3450Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0) {
3460Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_DEPENDS_STR));
3470Sstevel@tonic-gate 		return (DCMD_USAGE);
3480Sstevel@tonic-gate 	}
3490Sstevel@tonic-gate 	if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, RTLD_FLG_VERBOSE,
3500Sstevel@tonic-gate 	    &flg, NULL) != argc)
3510Sstevel@tonic-gate 		return (DCMD_USAGE);
3520Sstevel@tonic-gate 
3530Sstevel@tonic-gate 	/*
3540Sstevel@tonic-gate 	 * Read the Rt_map contents.
3550Sstevel@tonic-gate 	 */
3560Sstevel@tonic-gate 	if (mdb_vread(&rtmap, sizeof (Rt_map), addr) == -1) {
3570Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_RTMAP_STR), addr);
3580Sstevel@tonic-gate 		return (DCMD_ERR);
3590Sstevel@tonic-gate 	}
3600Sstevel@tonic-gate 	if ((str = String((uintptr_t)NAME(&rtmap),
3610Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_NAME))) == 0)
3620Sstevel@tonic-gate 		return (DCMD_ERR);
3630Sstevel@tonic-gate 
3640Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_DEPENDS_LINE1), str);
3650Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
3660Sstevel@tonic-gate 
3670Sstevel@tonic-gate 	if (DEPENDS(&rtmap) == 0)
3680Sstevel@tonic-gate 		return (DCMD_OK);
3690Sstevel@tonic-gate 
3700Sstevel@tonic-gate 	return (Depends((uintptr_t)DEPENDS(&rtmap), flags, argc, argv, flg,
3710Sstevel@tonic-gate 	    MSG_ORIG(MSG_DEPENDS_LINE2)));
3720Sstevel@tonic-gate }
3730Sstevel@tonic-gate 
3740Sstevel@tonic-gate static void
3750Sstevel@tonic-gate dcmd_Callers_help(void)
3760Sstevel@tonic-gate {
3770Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_CALLERS_HELP));
3780Sstevel@tonic-gate }
3790Sstevel@tonic-gate 
3800Sstevel@tonic-gate static int
3810Sstevel@tonic-gate dcmd_Callers(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
3820Sstevel@tonic-gate {
3830Sstevel@tonic-gate 	Rt_map		rtmap;
3840Sstevel@tonic-gate 	char		*str;
3850Sstevel@tonic-gate 	uint_t		flg = 0;
3860Sstevel@tonic-gate 
3870Sstevel@tonic-gate 	/*
3880Sstevel@tonic-gate 	 * Insure we have a valid address, and provide for a -v option.
3890Sstevel@tonic-gate 	 */
3900Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0) {
3910Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_DEPENDS_STR));
3920Sstevel@tonic-gate 		return (DCMD_USAGE);
3930Sstevel@tonic-gate 	}
3940Sstevel@tonic-gate 	if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, RTLD_FLG_VERBOSE,
3950Sstevel@tonic-gate 	    &flg, NULL) != argc)
3960Sstevel@tonic-gate 		return (DCMD_USAGE);
3970Sstevel@tonic-gate 
3980Sstevel@tonic-gate 	/*
3990Sstevel@tonic-gate 	 * Read the Rt_map contents.
4000Sstevel@tonic-gate 	 */
4010Sstevel@tonic-gate 	if (mdb_vread(&rtmap, sizeof (Rt_map), addr) == -1) {
4020Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_RTMAP_STR), addr);
4030Sstevel@tonic-gate 		return (DCMD_ERR);
4040Sstevel@tonic-gate 	}
4050Sstevel@tonic-gate 	if ((str = String((uintptr_t)NAME(&rtmap),
4060Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_NAME))) == 0)
4070Sstevel@tonic-gate 		return (DCMD_ERR);
4080Sstevel@tonic-gate 
4090Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_CALLERS_LINE1), str);
4100Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
4110Sstevel@tonic-gate 
4120Sstevel@tonic-gate 	if (CALLERS(&rtmap) == 0)
4130Sstevel@tonic-gate 		return (DCMD_OK);
4140Sstevel@tonic-gate 
4150Sstevel@tonic-gate 	return (Depends((uintptr_t)CALLERS(&rtmap), flags, argc, argv, flg,
4160Sstevel@tonic-gate 	    MSG_ORIG(MSG_CALLERS_LINE2)));
4170Sstevel@tonic-gate }
4180Sstevel@tonic-gate 
4190Sstevel@tonic-gate void
4200Sstevel@tonic-gate dcmd_rtmap_help(void)
4210Sstevel@tonic-gate {
4220Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_HELP));
4230Sstevel@tonic-gate }
4240Sstevel@tonic-gate 
4250Sstevel@tonic-gate static int
4260Sstevel@tonic-gate /* ARGSUSED2 */
4270Sstevel@tonic-gate dcmd_rtmap(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
4280Sstevel@tonic-gate {
4290Sstevel@tonic-gate 	Rt_map		rtmap;
4300Sstevel@tonic-gate 	char		*str;
4310Sstevel@tonic-gate 
4320Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0) {
4330Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_RTMAP_STR));
4340Sstevel@tonic-gate 		return (DCMD_USAGE);
4350Sstevel@tonic-gate 	}
4360Sstevel@tonic-gate 
4370Sstevel@tonic-gate 	if (mdb_vread(&rtmap, sizeof (Rt_map), addr) == -1) {
4380Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_RTMAP_STR), addr);
4390Sstevel@tonic-gate 		return (DCMD_ERR);
4400Sstevel@tonic-gate 	}
4410Sstevel@tonic-gate 
4420Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_TITLE), addr);
4430Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
4440Sstevel@tonic-gate 
4450Sstevel@tonic-gate 	/*
4460Sstevel@tonic-gate 	 * Determine the objects name.  NAME() is the name by which the object
4470Sstevel@tonic-gate 	 * has been opened, typically from adding a search path to a file name.
4480Sstevel@tonic-gate 	 * PATHNAME() is the fully resolve name, which is displayed by the proc
4490Sstevel@tonic-gate 	 * tools and debuggers.  If the two names differ, print the PATHNAME().
4500Sstevel@tonic-gate 	 */
4510Sstevel@tonic-gate 	if ((str = String((uintptr_t)NAME(&rtmap),
4520Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_NAME))) == 0)
4530Sstevel@tonic-gate 		return (DCMD_ERR);
4540Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE1), str);
4550Sstevel@tonic-gate 	if (NAME(&rtmap) != PATHNAME(&rtmap)) {
4560Sstevel@tonic-gate 		if ((str = String((uintptr_t)PATHNAME(&rtmap),
4570Sstevel@tonic-gate 		    MSG_ORIG(MSG_STR_PATHNAME))) == 0)
4580Sstevel@tonic-gate 			return (DCMD_ERR);
4590Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_RTMAP_LINE2), str);
4600Sstevel@tonic-gate 	}
4610Sstevel@tonic-gate 
4620Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE3), ADDR(&rtmap), DYN(&rtmap));
4630Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE4), NEXT(&rtmap), PREV(&rtmap));
4640Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE5), rtmap.rt_fct, TLSMODID(&rtmap));
4650Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE6), INIT(&rtmap), FINI(&rtmap));
4660Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE7), GROUPS(&rtmap), HANDLES(&rtmap));
4670Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE8), DEPENDS(&rtmap), CALLERS(&rtmap));
4680Sstevel@tonic-gate 
4690Sstevel@tonic-gate 	if ((str = String((uintptr_t)REFNAME(&rtmap),
4700Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_REFNAME))) == 0)
4710Sstevel@tonic-gate 		return (DCMD_ERR);
4720Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE9), DYNINFO(&rtmap), str);
4730Sstevel@tonic-gate 
4740Sstevel@tonic-gate 	if ((str = String((uintptr_t)RPATH(&rtmap),
4750Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_RPATH))) == 0)
4760Sstevel@tonic-gate 		return (DCMD_ERR);
4770Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE10), RLIST(&rtmap), str);
4780Sstevel@tonic-gate 
4790Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE11), LIST(&rtmap), LIST(&rtmap));
4800Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE12), FLAGS(&rtmap));
4810Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE20), FLAGS(&rtmap), rtflags_bits);
4820Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE13), FLAGS1(&rtmap));
4830Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE20), FLAGS1(&rtmap), rtflags1_bits);
4840Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE14), MODE(&rtmap));
4850Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAP_LINE20), MODE(&rtmap), rtmode_bits);
4860Sstevel@tonic-gate 
4870Sstevel@tonic-gate 	return (DCMD_OK);
4880Sstevel@tonic-gate }
4890Sstevel@tonic-gate 
4900Sstevel@tonic-gate 
4910Sstevel@tonic-gate static int
4920Sstevel@tonic-gate rtmap_format(uintptr_t addr, const void * data, void * private)
4930Sstevel@tonic-gate {
4940Sstevel@tonic-gate 	const Rt_map	*lmp = (const Rt_map *)data;
4950Sstevel@tonic-gate 	W_desc		*wdp = (W_desc *)private;
4960Sstevel@tonic-gate 	char		*str;
4970Sstevel@tonic-gate 
4980Sstevel@tonic-gate 	if (wdp && (wdp->w_flags & RTLD_FLG_VERBOSE)) {
4990Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
5000Sstevel@tonic-gate 		mdb_call_dcmd(MSG_ORIG(MSG_RTMAP_STR), addr, DCMD_ADDRSPEC,
5010Sstevel@tonic-gate 		    NULL, NULL);
5020Sstevel@tonic-gate 		return (0);
5030Sstevel@tonic-gate 	}
5040Sstevel@tonic-gate 
5050Sstevel@tonic-gate 	if ((str = String((uintptr_t)NAME(lmp),
5060Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_NAME))) == 0)
5070Sstevel@tonic-gate 		return (DCMD_ERR);
5080Sstevel@tonic-gate 
5090Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_FMT_RT), CNTL(lmp), addr, ADDR(lmp), str);
5100Sstevel@tonic-gate 	return (0);
5110Sstevel@tonic-gate }
5120Sstevel@tonic-gate 
5130Sstevel@tonic-gate void
5140Sstevel@tonic-gate dcmd_Rtmaps_help(void)
5150Sstevel@tonic-gate {
5160Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_RTMAPS_HELP));
5170Sstevel@tonic-gate }
5180Sstevel@tonic-gate 
5190Sstevel@tonic-gate static int
5200Sstevel@tonic-gate dcmd_Rtmaps(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
5210Sstevel@tonic-gate {
5220Sstevel@tonic-gate 	uint_t		flg = 0;
5230Sstevel@tonic-gate 	GElf_Sym	gsym;
5240Sstevel@tonic-gate 	List		l;
5250Sstevel@tonic-gate 	Listnode	ln;
5260Sstevel@tonic-gate 	uintptr_t	naddr;
5270Sstevel@tonic-gate 	const char	*str;
5280Sstevel@tonic-gate 	W_desc		wdesc;
5290Sstevel@tonic-gate 
5300Sstevel@tonic-gate 	/*
5310Sstevel@tonic-gate 	 * '-v' - Verbose output of rtmap
5320Sstevel@tonic-gate 	 */
5330Sstevel@tonic-gate 	if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, RTLD_FLG_VERBOSE,
5340Sstevel@tonic-gate 	    &flg, NULL) != argc)
5350Sstevel@tonic-gate 		return (DCMD_USAGE);
5360Sstevel@tonic-gate 
5370Sstevel@tonic-gate 	/*
5380Sstevel@tonic-gate 	 * If an address was provided use it.
5390Sstevel@tonic-gate 	 */
5400Sstevel@tonic-gate 	if (flags & DCMD_ADDRSPEC) {
5410Sstevel@tonic-gate 		if (((flags & DCMD_LOOPFIRST) || !(flags & DCMD_LOOP)) &&
5420Sstevel@tonic-gate 		    !(flg & RTLD_FLG_VERBOSE)) {
5430Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_RTMAPS_TITLE0));
5440Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_STR_DASHES));
5450Sstevel@tonic-gate 		}
5460Sstevel@tonic-gate 
5470Sstevel@tonic-gate 		wdesc.w_flags = flg;
5480Sstevel@tonic-gate 		if (mdb_pwalk(MSG_ORIG(MSG_RTMAPS_STR), rtmap_format,
5490Sstevel@tonic-gate 		    (void *)&wdesc, addr) == -1)
5500Sstevel@tonic-gate 			return (DCMD_ERR);
5510Sstevel@tonic-gate 		return (DCMD_OK);
5520Sstevel@tonic-gate 	}
5530Sstevel@tonic-gate 
5540Sstevel@tonic-gate 	/*
5550Sstevel@tonic-gate 	 * Otherwise traverse the dynlm_list and display each link-map.
5560Sstevel@tonic-gate 	 */
5570Sstevel@tonic-gate 	if (mdb_lookup_by_obj(MSG_ORIG(MSG_STR_LDSO1),
5580Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_DYNLMLIST), &gsym) == -1) {
5590Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_SYMFAILED), MSG_ORIG(MSG_STR_LDSO1),
5600Sstevel@tonic-gate 		    MSG_ORIG(MSG_STR_DYNLMLIST));
5610Sstevel@tonic-gate 		return (DCMD_ERR);
5620Sstevel@tonic-gate 	}
5630Sstevel@tonic-gate 	if (mdb_vread((void *)&l, sizeof (l), (uintptr_t)gsym.st_value) == -1) {
5640Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_LIST_STR),
5650Sstevel@tonic-gate 		    gsym.st_value);
5660Sstevel@tonic-gate 		return (DCMD_ERR);
5670Sstevel@tonic-gate 	}
5680Sstevel@tonic-gate 
5690Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LMLIST_TITLE1), MSG_ORIG(MSG_STR_DYNLMLIST),
5700Sstevel@tonic-gate 	    &gsym);
5710Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
5720Sstevel@tonic-gate 
5730Sstevel@tonic-gate 	flags |= (DCMD_LOOP | DCMD_LOOPFIRST);
5740Sstevel@tonic-gate 	for (naddr = (uintptr_t)l.head; naddr; naddr = (uintptr_t)ln.next) {
5750Sstevel@tonic-gate 		Lm_list	lml;
5760Sstevel@tonic-gate 
5770Sstevel@tonic-gate 		if (mdb_vread(&ln, sizeof (ln), naddr) == -1) {
5780Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ),
5790Sstevel@tonic-gate 			    MSG_ORIG(MSG_STR_LISTNODE), naddr);
5800Sstevel@tonic-gate 			return (DCMD_ERR);
5810Sstevel@tonic-gate 		}
5820Sstevel@tonic-gate 		if (mdb_vread(&lml, sizeof (lml), (uintptr_t)ln.data) == -1) {
5830Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ),
5840Sstevel@tonic-gate 			    MSG_ORIG(MSG_LMLIST_STR), ln.data);
5850Sstevel@tonic-gate 			return (DCMD_ERR);
5860Sstevel@tonic-gate 		}
5870Sstevel@tonic-gate 
5880Sstevel@tonic-gate 		mdb_inc_indent(2);
5890Sstevel@tonic-gate 		if (lml.lm_flags & LML_FLG_BASELM)
5900Sstevel@tonic-gate 			str = MSG_ORIG(MSG_LMLIST_BASE);
5910Sstevel@tonic-gate 		else if (lml.lm_flags & LML_FLG_RTLDLM)
5920Sstevel@tonic-gate 			str = MSG_ORIG(MSG_LMLIST_LDSO);
5930Sstevel@tonic-gate 		else
5940Sstevel@tonic-gate 			str = MSG_ORIG(MSG_LMLIST_NEWLM);
5950Sstevel@tonic-gate 
5960Sstevel@tonic-gate 		if ((flags & DCMD_LOOP) && ((flags & DCMD_LOOPFIRST) == 0))
5970Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_STR_DASHES));
5980Sstevel@tonic-gate 
5990Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_LMLIST_TITLE2), ln.data, str);
6000Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
6010Sstevel@tonic-gate 
6020Sstevel@tonic-gate 		mdb_inc_indent(2);
6030Sstevel@tonic-gate 
6040Sstevel@tonic-gate 		if (((flags & DCMD_LOOPFIRST) || !(flags & DCMD_LOOP)) &&
6050Sstevel@tonic-gate 		    !(flg & RTLD_FLG_VERBOSE)) {
6060Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_RTMAPS_TITLE0));
6070Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_STR_DASHES));
6080Sstevel@tonic-gate 		}
6090Sstevel@tonic-gate 
6100Sstevel@tonic-gate 		wdesc.w_flags = flg;
6110Sstevel@tonic-gate 		if (mdb_pwalk(MSG_ORIG(MSG_RTMAPS_STR), rtmap_format,
6120Sstevel@tonic-gate 		    (void *)&wdesc, (uintptr_t)lml.lm_head) == -1) {
6130Sstevel@tonic-gate 			mdb_dec_indent(4);
6140Sstevel@tonic-gate 			return (DCMD_ERR);
6150Sstevel@tonic-gate 		}
6160Sstevel@tonic-gate 		mdb_dec_indent(4);
6170Sstevel@tonic-gate 		flags &= ~DCMD_LOOPFIRST;
6180Sstevel@tonic-gate 	}
6190Sstevel@tonic-gate 	return (DCMD_OK);
6200Sstevel@tonic-gate }
6210Sstevel@tonic-gate 
6220Sstevel@tonic-gate static int
6230Sstevel@tonic-gate /* ARGSUSED2 */
6240Sstevel@tonic-gate format_listnode(uintptr_t addr, const void * data, void * private)
6250Sstevel@tonic-gate {
6260Sstevel@tonic-gate 	Listnode *	lnp = (Listnode *)data;
6270Sstevel@tonic-gate 
6280Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_FMT_LN), addr, lnp->data, lnp->next);
6290Sstevel@tonic-gate 	return (0);
6300Sstevel@tonic-gate }
6310Sstevel@tonic-gate 
6320Sstevel@tonic-gate void
6330Sstevel@tonic-gate dcmd_List_help(void)
6340Sstevel@tonic-gate {
6350Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LIST_HELP));
6360Sstevel@tonic-gate }
6370Sstevel@tonic-gate 
6380Sstevel@tonic-gate static int
6390Sstevel@tonic-gate /* ARGSUSED2 */
6400Sstevel@tonic-gate dcmd_List(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
6410Sstevel@tonic-gate {
6420Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0)
6430Sstevel@tonic-gate 		return (DCMD_USAGE);
6440Sstevel@tonic-gate 	if ((flags & DCMD_LOOPFIRST) || !(flags & DCMD_LOOP)) {
6450Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_LIST_TITLE));
6460Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
6470Sstevel@tonic-gate 	}
6480Sstevel@tonic-gate 	if (mdb_pwalk(MSG_ORIG(MSG_LIST_STR), format_listnode,
6490Sstevel@tonic-gate 	    (void *)0, addr) == -1)
6500Sstevel@tonic-gate 		return (DCMD_ERR);
6510Sstevel@tonic-gate 	return (DCMD_OK);
6520Sstevel@tonic-gate }
6530Sstevel@tonic-gate 
6540Sstevel@tonic-gate void
6550Sstevel@tonic-gate dcmd_Setenv_help(void)
6560Sstevel@tonic-gate {
6570Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_SETENV_HELP));
6580Sstevel@tonic-gate }
6590Sstevel@tonic-gate 
6600Sstevel@tonic-gate /*
6610Sstevel@tonic-gate  * As of s10, mdb provides its own setenv command.  This command allows the
6620Sstevel@tonic-gate  * environment of the process being controlled to be changed at any time.
6630Sstevel@tonic-gate  * Prior to this, ld.so.1 provided it's own, more primitive implementation.
6640Sstevel@tonic-gate  * This allowed for changing mdb's environment only, which if it was changed
6650Sstevel@tonic-gate  * before the application ws executed, would be copied to the applications
6660Sstevel@tonic-gate  * environment.  Thus, we could start mdb, set an LD_ variable within its
6670Sstevel@tonic-gate  * environment (which it's own ld.so.1 had already finished processing), and
6680Sstevel@tonic-gate  * have this setting be inherited by the application.
6690Sstevel@tonic-gate  */
6700Sstevel@tonic-gate static int
6710Sstevel@tonic-gate /* ARGSUSED */
6720Sstevel@tonic-gate dcmd_Setenv(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
6730Sstevel@tonic-gate {
6740Sstevel@tonic-gate 	char	*str;
6750Sstevel@tonic-gate 
6760Sstevel@tonic-gate 	if (mdb_call_dcmd(MSG_ORIG(MSG_STR_SETENV), addr, flags, argc,
6770Sstevel@tonic-gate 	    argv) == 0)
6780Sstevel@tonic-gate 		return (DCMD_OK);
6790Sstevel@tonic-gate 
6800Sstevel@tonic-gate 	if (((flags & DCMD_ADDRSPEC) != 0) || (argc == 0) || (argc > 1) ||
6810Sstevel@tonic-gate 	    (argv->a_type != MDB_TYPE_STRING))
6820Sstevel@tonic-gate 		return (DCMD_USAGE);
6830Sstevel@tonic-gate 
6840Sstevel@tonic-gate 	str = mdb_alloc((strlen(argv->a_un.a_str) + 1), UM_NOSLEEP);
6850Sstevel@tonic-gate 	if (str == NULL)
6860Sstevel@tonic-gate 		return (DCMD_ERR);
6870Sstevel@tonic-gate 
6880Sstevel@tonic-gate 	(void) strcpy(str, argv->a_un.a_str);
6890Sstevel@tonic-gate 	(void) putenv(str);
6900Sstevel@tonic-gate 	return (DCMD_OK);
6910Sstevel@tonic-gate }
6920Sstevel@tonic-gate 
6930Sstevel@tonic-gate int
6940Sstevel@tonic-gate walk_List_init(mdb_walk_state_t *wsp)
6950Sstevel@tonic-gate {
6960Sstevel@tonic-gate 	List	lst;
6970Sstevel@tonic-gate 
6980Sstevel@tonic-gate 	if (wsp->walk_addr == NULL) {
6990Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_LIST_STR));
7000Sstevel@tonic-gate 		return (WALK_ERR);
7010Sstevel@tonic-gate 	}
7020Sstevel@tonic-gate 
7030Sstevel@tonic-gate 	if (mdb_vread(&lst, sizeof (List), wsp->walk_addr) == -1) {
7040Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ),
7050Sstevel@tonic-gate 		    MSG_ORIG(MSG_LIST_STR), wsp->walk_addr);
7060Sstevel@tonic-gate 		return (WALK_DONE);
7070Sstevel@tonic-gate 	}
7080Sstevel@tonic-gate 
7090Sstevel@tonic-gate 	wsp->walk_addr = (uintptr_t)lst.head;
7100Sstevel@tonic-gate 	return (WALK_NEXT);
7110Sstevel@tonic-gate }
7120Sstevel@tonic-gate 
7130Sstevel@tonic-gate 
7140Sstevel@tonic-gate static int
7150Sstevel@tonic-gate walk_List_step(mdb_walk_state_t *wsp)
7160Sstevel@tonic-gate {
7170Sstevel@tonic-gate 	Listnode	lnp;
7180Sstevel@tonic-gate 	int		status;
7190Sstevel@tonic-gate 
7200Sstevel@tonic-gate 	if (wsp->walk_addr == NULL)
7210Sstevel@tonic-gate 		return (WALK_DONE);
7220Sstevel@tonic-gate 
7230Sstevel@tonic-gate 	if (mdb_vread(&lnp, sizeof (Listnode), wsp->walk_addr) == -1) {
7240Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ),
7250Sstevel@tonic-gate 		    MSG_ORIG(MSG_STR_LISTNODE), wsp->walk_addr);
7260Sstevel@tonic-gate 		return (WALK_DONE);
7270Sstevel@tonic-gate 	}
7280Sstevel@tonic-gate 
7290Sstevel@tonic-gate 	status = wsp->walk_callback(wsp->walk_addr, &lnp, wsp->walk_cbdata);
7300Sstevel@tonic-gate 	wsp->walk_addr = (uintptr_t)lnp.next;
7310Sstevel@tonic-gate 	return (status);
7320Sstevel@tonic-gate }
7330Sstevel@tonic-gate 
7340Sstevel@tonic-gate /*
7350Sstevel@tonic-gate  * Walk Rt_map lists
7360Sstevel@tonic-gate  */
7370Sstevel@tonic-gate static int
7380Sstevel@tonic-gate walk_rtmap_init(mdb_walk_state_t *wsp)
7390Sstevel@tonic-gate {
7400Sstevel@tonic-gate 	if (wsp->walk_addr == NULL) {
7410Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_RTMAP_STR));
7420Sstevel@tonic-gate 		return (WALK_ERR);
7430Sstevel@tonic-gate 	}
7440Sstevel@tonic-gate 	return (WALK_NEXT);
7450Sstevel@tonic-gate }
7460Sstevel@tonic-gate 
7470Sstevel@tonic-gate static int
7480Sstevel@tonic-gate walk_rtmap_step(mdb_walk_state_t *wsp)
7490Sstevel@tonic-gate {
7500Sstevel@tonic-gate 	int	status;
7510Sstevel@tonic-gate 	Rt_map	lmp;
7520Sstevel@tonic-gate 
7530Sstevel@tonic-gate 	if (wsp->walk_addr == NULL)
7540Sstevel@tonic-gate 		return (WALK_DONE);
7550Sstevel@tonic-gate 	if (mdb_vread(&lmp, sizeof (Rt_map), wsp->walk_addr) == -1) {
7560Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ),
7570Sstevel@tonic-gate 		    MSG_ORIG(MSG_RTMAP_STR), wsp->walk_addr);
7580Sstevel@tonic-gate 		return (WALK_DONE);
7590Sstevel@tonic-gate 	}
7600Sstevel@tonic-gate 
7610Sstevel@tonic-gate 	status = wsp->walk_callback(wsp->walk_addr, &lmp, wsp->walk_cbdata);
7620Sstevel@tonic-gate 	wsp->walk_addr = (uintptr_t)(NEXT(&lmp));
7630Sstevel@tonic-gate 	return (status);
7640Sstevel@tonic-gate }
7650Sstevel@tonic-gate 
7660Sstevel@tonic-gate static const mdb_bitmask_t lml_flags_bit[] = {
7670Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_BASELM), LML_FLG_BASELM, LML_FLG_BASELM },
7680Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_RTLDLM), LML_FLG_RTLDLM, LML_FLG_RTLDLM },
7690Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_NOAUDIT), LML_FLG_NOAUDIT, LML_FLG_NOAUDIT },
7700Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_PLTREL), LML_FLG_PLTREL, LML_FLG_PLTREL },
7710Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_HOLDLOCK), LML_FLG_HOLDLOCK, LML_FLG_HOLDLOCK },
7720Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_ENVIRON), LML_FLG_ENVIRON, LML_FLG_ENVIRON },
7730Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_INTRPOSE), LML_FLG_INTRPOSE, LML_FLG_INTRPOSE },
7740Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_LOCAUDIT), LML_FLG_LOCAUDIT, LML_FLG_LOCAUDIT },
7750Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_LOADAVAIL), LML_FLG_LOADAVAIL, LML_FLG_LOADAVAIL },
7760Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_IGNRELERR), LML_FLG_IGNRELERR, LML_FLG_IGNRELERR },
7770Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_DBNOTIF), LML_FLG_DBNOTIF, LML_FLG_DBNOTIF },
7780Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_STARTREL), LML_FLG_STARTREL, LML_FLG_STARTREL },
779280Srie 	{ MSG_ORIG(MSG_LFL_ATEXIT), LML_FLG_ATEXIT, LML_FLG_ATEXIT },
780280Srie 	{ MSG_ORIG(MSG_LFL_OBJADDED), LML_FLG_OBJADDED, LML_FLG_OBJADDED },
781280Srie 	{ MSG_ORIG(MSG_LFL_OBJDELETED), LML_FLG_OBJDELETED,
782280Srie 	    LML_FLG_OBJDELETED },
783280Srie 	{ MSG_ORIG(MSG_LFL_OBJREEVAL), LML_FLG_OBJREEVAL, LML_FLG_OBJREEVAL },
784*2850Srie 	{ MSG_ORIG(MSG_LFL_NOPENDGLBLAZY), LML_FLG_NOPENDGLBLAZY,
785*2850Srie 	    LML_FLG_NOPENDGLBLAZY },
7860Sstevel@tonic-gate 
7870Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_TRC_LDDSTUB), LML_FLG_TRC_LDDSTUB,
7880Sstevel@tonic-gate 	    LML_FLG_TRC_LDDSTUB },
7890Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_TRC_ENABLE), LML_FLG_TRC_ENABLE,
7900Sstevel@tonic-gate 	    LML_FLG_TRC_ENABLE },
7910Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_TRC_WARN), LML_FLG_TRC_WARN, LML_FLG_TRC_WARN },
7920Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_TRC_VERBOSE), LML_FLG_TRC_VERBOSE,
7930Sstevel@tonic-gate 	    LML_FLG_TRC_VERBOSE },
7940Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_TRC_SEARCH), LML_FLG_TRC_SEARCH,
7950Sstevel@tonic-gate 	    LML_FLG_TRC_SEARCH },
7960Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_TRC_UNREF), LML_FLG_TRC_UNREF, LML_FLG_TRC_UNREF },
7970Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_TRC_UNUSED), LML_FLG_TRC_UNUSED,
7980Sstevel@tonic-gate 	    LML_FLG_TRC_UNUSED },
7990Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LFL_TRC_INIT), LML_FLG_TRC_INIT, LML_FLG_TRC_INIT },
8000Sstevel@tonic-gate 	{ NULL, 0, 0}
8010Sstevel@tonic-gate };
8020Sstevel@tonic-gate 
8030Sstevel@tonic-gate static const mdb_bitmask_t lml_tflags_bit[] = {
8040Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_NOLAZYLD), LML_TFLG_NOLAZYLD, LML_TFLG_NOLAZYLD },
8050Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_NODIRECT), LML_TFLG_NODIRECT, LML_TFLG_NODIRECT },
8060Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_LOADFLTR), LML_TFLG_LOADFLTR, LML_TFLG_LOADFLTR },
8070Sstevel@tonic-gate 
8080Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_PREINIT), LML_TFLG_AUD_PREINIT,
8090Sstevel@tonic-gate 	    LML_TFLG_AUD_PREINIT },
8100Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_OBJSEARCH), LML_TFLG_AUD_OBJSEARCH,
8110Sstevel@tonic-gate 	    LML_TFLG_AUD_OBJSEARCH },
8120Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_OBJOPEN), LML_TFLG_AUD_OBJOPEN,
8130Sstevel@tonic-gate 	    LML_TFLG_AUD_OBJOPEN },
8140Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_OBJFILTER), LML_TFLG_AUD_OBJFILTER,
8150Sstevel@tonic-gate 	    LML_TFLG_AUD_OBJFILTER },
8160Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_OBJCLOSE), LML_TFLG_AUD_OBJCLOSE,
8170Sstevel@tonic-gate 	    LML_TFLG_AUD_OBJCLOSE },
8180Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_SYMBIND), LML_TFLG_AUD_SYMBIND,
8190Sstevel@tonic-gate 	    LML_TFLG_AUD_SYMBIND },
8200Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_PLTENTER), LML_TFLG_AUD_PLTENTER,
8210Sstevel@tonic-gate 	    LML_TFLG_AUD_PLTENTER },
8220Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_PLTEXIT), LML_TFLG_AUD_PLTEXIT,
8230Sstevel@tonic-gate 	    LML_TFLG_AUD_PLTEXIT },
8240Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LTFL_AUD_ACTIVITY), LML_TFLG_AUD_ACTIVITY,
8250Sstevel@tonic-gate 	    LML_TFLG_AUD_ACTIVITY },
8260Sstevel@tonic-gate 	{ NULL, 0, 0}
8270Sstevel@tonic-gate };
8280Sstevel@tonic-gate 
8290Sstevel@tonic-gate void
8300Sstevel@tonic-gate dcmd_Lm_list_help(void)
8310Sstevel@tonic-gate {
8320Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LMLIST_HELP));
8330Sstevel@tonic-gate }
8340Sstevel@tonic-gate 
8350Sstevel@tonic-gate static int
8360Sstevel@tonic-gate /* ARGSUSED1 */
8370Sstevel@tonic-gate _dcmd_Lm_list(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
8380Sstevel@tonic-gate {
8390Sstevel@tonic-gate 	Lm_list		lml;
8400Sstevel@tonic-gate 	const char	*str;
8410Sstevel@tonic-gate 	uint_t		flg = 0;
8420Sstevel@tonic-gate 
8430Sstevel@tonic-gate 	if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, RTLD_FLG_VERBOSE,
8440Sstevel@tonic-gate 	    &flg, NULL) != argc)
8450Sstevel@tonic-gate 		return (DCMD_USAGE);
8460Sstevel@tonic-gate 
8470Sstevel@tonic-gate 	if (mdb_vread(&lml, sizeof (lml), addr) == -1) {
8480Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_LMLIST_STR),
8490Sstevel@tonic-gate 		    addr);
8500Sstevel@tonic-gate 		return (DCMD_ERR);
8510Sstevel@tonic-gate 	}
8520Sstevel@tonic-gate 
8530Sstevel@tonic-gate 	if (lml.lm_flags & LML_FLG_BASELM)
8540Sstevel@tonic-gate 		str = MSG_ORIG(MSG_LMLIST_BASE);
8550Sstevel@tonic-gate 	else if (lml.lm_flags & LML_FLG_RTLDLM)
8560Sstevel@tonic-gate 		str = MSG_ORIG(MSG_LMLIST_LDSO);
8570Sstevel@tonic-gate 	else
8580Sstevel@tonic-gate 		str = MSG_ORIG(MSG_LMLIST_NEWLM);
8590Sstevel@tonic-gate 
8600Sstevel@tonic-gate 	if ((flags & DCMD_LOOP) && ((flags & DCMD_LOOPFIRST) == 0))
8610Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
8620Sstevel@tonic-gate 
8630Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LMLIST_TITLE2), addr, str);
8640Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
8650Sstevel@tonic-gate 
8660Sstevel@tonic-gate 	if (lml.lm_lists) {
8670Sstevel@tonic-gate 		Alist		al;
8680Sstevel@tonic-gate 		size_t		ucnt, tcnt;
8690Sstevel@tonic-gate 		Lm_cntl		lmc;
8700Sstevel@tonic-gate 		uintptr_t	listcalc;
8710Sstevel@tonic-gate 
8720Sstevel@tonic-gate 		addr = (uintptr_t)lml.lm_lists;
8730Sstevel@tonic-gate 		if (mdb_vread(&al, sizeof (Alist), addr) == -1) {
8740Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ),
8750Sstevel@tonic-gate 			    MSG_ORIG(MSG_STR_ALIST), addr);
8760Sstevel@tonic-gate 			return (DCMD_ERR);
8770Sstevel@tonic-gate 		}
8780Sstevel@tonic-gate 
8790Sstevel@tonic-gate 		/*
8800Sstevel@tonic-gate 		 * Determine whether the Alist has been populated.  Note, the
8810Sstevel@tonic-gate 		 * implementation first reserves an alist entry, and initializes
8820Sstevel@tonic-gate 		 * this element when the first link-map is processed.  Thus,
8830Sstevel@tonic-gate 		 * there's a window when ucnt is updated, but before the next
8840Sstevel@tonic-gate 		 * element has been initialized.
8850Sstevel@tonic-gate 		 */
8860Sstevel@tonic-gate 		ucnt = (al.al_next - sizeof (Alist) + sizeof (void *)) /
8870Sstevel@tonic-gate 			al.al_size;
8880Sstevel@tonic-gate 		tcnt = (al.al_end - sizeof (Alist) + sizeof (void *)) /
8890Sstevel@tonic-gate 			al.al_size;
8900Sstevel@tonic-gate 
8910Sstevel@tonic-gate 		if (ucnt && (flg & RTLD_FLG_VERBOSE)) {
8920Sstevel@tonic-gate 			listcalc = (uintptr_t)(&(al.al_data[0]));
8930Sstevel@tonic-gate 			listcalc -= (uintptr_t)(&al);
8940Sstevel@tonic-gate 			listcalc += addr;
8950Sstevel@tonic-gate 
8960Sstevel@tonic-gate 			if (mdb_vread(&lmc, sizeof (Lm_cntl),
8970Sstevel@tonic-gate 			    listcalc) == -1) {
8980Sstevel@tonic-gate 				mdb_warn(MSG_ORIG(MSG_ERR_READ),
8990Sstevel@tonic-gate 				    MSG_ORIG(MSG_LMLIST_STR), listcalc);
9000Sstevel@tonic-gate 				return (DCMD_ERR);
9010Sstevel@tonic-gate 			}
9020Sstevel@tonic-gate 		}
9030Sstevel@tonic-gate 
9040Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_LMLIST_LINE0), addr, ucnt, tcnt);
9050Sstevel@tonic-gate 		mdb_inc_indent(2);
9060Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
9070Sstevel@tonic-gate 
9080Sstevel@tonic-gate 		if (ucnt && (flg & RTLD_FLG_VERBOSE)) {
9090Sstevel@tonic-gate 			uintptr_t	listnext;
9100Sstevel@tonic-gate 
9110Sstevel@tonic-gate 			mdb_inc_indent(2);
9120Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_LMC_LINE1), listcalc);
9130Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_LMC_LINE2), lmc.lc_head,
9140Sstevel@tonic-gate 			    lmc.lc_tail);
9150Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_LMC_LINE3), lmc.lc_flags,
9160Sstevel@tonic-gate 			    lmc.lc_now);
9170Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_LMC_LINE4), lmc.lc_flags,
9180Sstevel@tonic-gate 			    lmc_bits);
9190Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_STR_DASHES));
9200Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_RTMAPS_TITLE0));
9210Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_STR_DASHES));
9220Sstevel@tonic-gate 
9230Sstevel@tonic-gate 			if (lmc.lc_head) {
9240Sstevel@tonic-gate 				if (mdb_pwalk(MSG_ORIG(MSG_RTMAPS_STR),
9250Sstevel@tonic-gate 				    rtmap_format, (void *)0,
9260Sstevel@tonic-gate 				    (uintptr_t)lmc.lc_head) == -1) {
9270Sstevel@tonic-gate 					mdb_dec_indent(4);
9280Sstevel@tonic-gate 					return (DCMD_ERR);
9290Sstevel@tonic-gate 				}
9300Sstevel@tonic-gate 			} else
9310Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_FMT_RT), 0, 0, 0,
9320Sstevel@tonic-gate 				    MSG_ORIG(MSG_STR_EMPTY));
9330Sstevel@tonic-gate 
9340Sstevel@tonic-gate 			mdb_printf(MSG_ORIG(MSG_STR_DASHES));
9350Sstevel@tonic-gate 
9360Sstevel@tonic-gate 			listnext = (uintptr_t)(al.al_next + addr);
9370Sstevel@tonic-gate 			for (listcalc += al.al_size; listcalc < listnext;
9380Sstevel@tonic-gate 			    listcalc += al.al_size) {
9390Sstevel@tonic-gate 				if (mdb_vread(&lmc, sizeof (Lm_cntl),
9400Sstevel@tonic-gate 				    listcalc) == -1) {
9410Sstevel@tonic-gate 					mdb_warn(MSG_ORIG(MSG_ERR_READ),
9420Sstevel@tonic-gate 					    MSG_ORIG(MSG_LMLIST_STR), listcalc);
9430Sstevel@tonic-gate 					mdb_dec_indent(4);
9440Sstevel@tonic-gate 					return (DCMD_ERR);
9450Sstevel@tonic-gate 				}
9460Sstevel@tonic-gate 
9470Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_STR_DASHES));
9480Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_LMC_LINE1), listcalc);
9490Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_LMC_LINE2),
9500Sstevel@tonic-gate 				    lmc.lc_head, lmc.lc_tail);
9510Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_LMC_LINE3),
9520Sstevel@tonic-gate 				    lmc.lc_flags, lmc.lc_now);
9530Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_LMC_LINE4),
9540Sstevel@tonic-gate 				    lmc.lc_flags, lmc_bits);
9550Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_STR_DASHES));
9560Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_RTMAPS_TITLE0));
9570Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_STR_DASHES));
9580Sstevel@tonic-gate 
9590Sstevel@tonic-gate 				if (lmc.lc_head) {
9600Sstevel@tonic-gate 					if (mdb_pwalk(MSG_ORIG(MSG_RTMAPS_STR),
9610Sstevel@tonic-gate 					    rtmap_format, (void *)0,
9620Sstevel@tonic-gate 					    (uintptr_t)lmc.lc_head) == -1) {
9630Sstevel@tonic-gate 						mdb_dec_indent(4);
9640Sstevel@tonic-gate 						return (DCMD_ERR);
9650Sstevel@tonic-gate 					}
9660Sstevel@tonic-gate 				} else
9670Sstevel@tonic-gate 					mdb_printf(MSG_ORIG(MSG_FMT_RT), 0, 0,
9680Sstevel@tonic-gate 					    0, MSG_ORIG(MSG_STR_EMPTY));
9690Sstevel@tonic-gate 
9700Sstevel@tonic-gate 				mdb_printf(MSG_ORIG(MSG_STR_DASHES));
9710Sstevel@tonic-gate 			}
9720Sstevel@tonic-gate 			mdb_dec_indent(2);
9730Sstevel@tonic-gate 		}
9740Sstevel@tonic-gate 		mdb_dec_indent(2);
9750Sstevel@tonic-gate 	}
9760Sstevel@tonic-gate 
9770Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LMLIST_LINE1), lml.lm_head, lml.lm_tail);
9781824Srie 	mdb_printf(MSG_ORIG(MSG_LMLIST_LINE2), lml.lm_alp, lml.lm_rti);
9790Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LMLIST_LINE3), lml.lm_handle, lml.lm_obj,
9800Sstevel@tonic-gate 	    lml.lm_init, lml.lm_lazy);
9810Sstevel@tonic-gate 
9820Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LMLIST_LINE4), lml.lm_flags);
9830Sstevel@tonic-gate 	if (lml.lm_flags)
9840Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_LMLIST_LINE6), lml.lm_flags,
9850Sstevel@tonic-gate 		    lml_flags_bit);
9860Sstevel@tonic-gate 
9870Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LMLIST_LINE5), lml.lm_tflags);
9880Sstevel@tonic-gate 	if (lml.lm_tflags)
9890Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_LMLIST_LINE6), lml.lm_tflags,
9900Sstevel@tonic-gate 		    lml_tflags_bit);
9910Sstevel@tonic-gate 
9920Sstevel@tonic-gate 	return (DCMD_OK);
9930Sstevel@tonic-gate }
9940Sstevel@tonic-gate 
9950Sstevel@tonic-gate static int
9960Sstevel@tonic-gate /* ARGSUSED2 */
9970Sstevel@tonic-gate dcmd_Lm_list(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
9980Sstevel@tonic-gate {
9990Sstevel@tonic-gate 	GElf_Sym	gsym;
10000Sstevel@tonic-gate 	List		l;
10010Sstevel@tonic-gate 	Listnode	ln;
10020Sstevel@tonic-gate 	uintptr_t	naddr;
10030Sstevel@tonic-gate 
10040Sstevel@tonic-gate 	/*
10050Sstevel@tonic-gate 	 * If an address was provided us it.
10060Sstevel@tonic-gate 	 */
10070Sstevel@tonic-gate 	if (flags & DCMD_ADDRSPEC)
10080Sstevel@tonic-gate 		return (_dcmd_Lm_list(addr, flags, argc, argv));
10090Sstevel@tonic-gate 
10100Sstevel@tonic-gate 	/*
10110Sstevel@tonic-gate 	 * Otherwise traverse the dynlm_list and display each link-map list.
10120Sstevel@tonic-gate 	 */
10130Sstevel@tonic-gate 	if (mdb_lookup_by_obj(MSG_ORIG(MSG_STR_LDSO1),
10140Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_DYNLMLIST), &gsym) == -1) {
10150Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_SYMFAILED), MSG_ORIG(MSG_STR_LDSO1),
10160Sstevel@tonic-gate 			MSG_ORIG(MSG_STR_DYNLMLIST));
10170Sstevel@tonic-gate 		return (DCMD_ERR);
10180Sstevel@tonic-gate 	}
10190Sstevel@tonic-gate 	if (mdb_vread((void *)&l, sizeof (l), (uintptr_t)gsym.st_value) == -1) {
10200Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_LIST_STR),
10210Sstevel@tonic-gate 		    gsym.st_value);
10220Sstevel@tonic-gate 		return (DCMD_ERR);
10230Sstevel@tonic-gate 	}
10240Sstevel@tonic-gate 
10250Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_LMLIST_TITLE1), MSG_ORIG(MSG_STR_DYNLMLIST),
10260Sstevel@tonic-gate 	    &gsym);
10270Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
10280Sstevel@tonic-gate 
10290Sstevel@tonic-gate 	flags |= (DCMD_LOOP | DCMD_LOOPFIRST);
10300Sstevel@tonic-gate 	for (naddr = (uintptr_t)l.head; naddr; naddr = (uintptr_t)ln.next) {
10310Sstevel@tonic-gate 		if (mdb_vread(&ln, sizeof (ln), naddr) == -1) {
10320Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ),
10330Sstevel@tonic-gate 			    MSG_ORIG(MSG_STR_LISTNODE), naddr);
10340Sstevel@tonic-gate 			return (DCMD_ERR);
10350Sstevel@tonic-gate 		}
10360Sstevel@tonic-gate 
10370Sstevel@tonic-gate 		mdb_inc_indent(2);
10380Sstevel@tonic-gate 		if (_dcmd_Lm_list((uintptr_t)ln.data, flags,
10390Sstevel@tonic-gate 		    argc, argv) == DCMD_ERR) {
10400Sstevel@tonic-gate 			mdb_dec_indent(2);
10410Sstevel@tonic-gate 			return (DCMD_ERR);
10420Sstevel@tonic-gate 		}
10430Sstevel@tonic-gate 		mdb_dec_indent(2);
10440Sstevel@tonic-gate 		flags &= ~DCMD_LOOPFIRST;
10450Sstevel@tonic-gate 	}
10460Sstevel@tonic-gate 	return (DCMD_OK);
10470Sstevel@tonic-gate }
10480Sstevel@tonic-gate 
10490Sstevel@tonic-gate void
10500Sstevel@tonic-gate dcmd_GrpDesc_help(void)
10510Sstevel@tonic-gate {
10520Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPDESC_HELP));
10530Sstevel@tonic-gate }
10540Sstevel@tonic-gate 
10550Sstevel@tonic-gate static int
10560Sstevel@tonic-gate /* ARGSUSED2 */
10570Sstevel@tonic-gate dcmd_GrpDesc(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
10580Sstevel@tonic-gate {
10590Sstevel@tonic-gate 	Grp_desc	gd;
10600Sstevel@tonic-gate 	char		*str;
10610Sstevel@tonic-gate 
10620Sstevel@tonic-gate 	/*
10630Sstevel@tonic-gate 	 * Insure we have a valid address.
10640Sstevel@tonic-gate 	 */
10650Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0) {
10660Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_GRPDESC_STR));
10670Sstevel@tonic-gate 		return (DCMD_USAGE);
10680Sstevel@tonic-gate 	}
10690Sstevel@tonic-gate 
10700Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPDESC_LINE1), addr);
10710Sstevel@tonic-gate 	if (mdb_vread(&gd, sizeof (Grp_desc), addr) == -1) {
10720Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_GRPDESC_STR),
10730Sstevel@tonic-gate 		    addr);
10740Sstevel@tonic-gate 		return (DCMD_ERR);
10750Sstevel@tonic-gate 	}
10760Sstevel@tonic-gate 
10770Sstevel@tonic-gate 	if ((str = Rtmap_Name((uintptr_t)gd.gd_depend)) == 0)
10780Sstevel@tonic-gate 		return (DCMD_ERR);
10790Sstevel@tonic-gate 
10800Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPDESC_LINE2), gd.gd_depend, str);
10810Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPDESC_LINE3), gd.gd_flags, gd.gd_flags,
10820Sstevel@tonic-gate 	    grdflags_bits);
10830Sstevel@tonic-gate 
10840Sstevel@tonic-gate 	return (DCMD_OK);
10850Sstevel@tonic-gate }
10860Sstevel@tonic-gate 
10870Sstevel@tonic-gate void
10880Sstevel@tonic-gate dcmd_GrpHdl_help(void)
10890Sstevel@tonic-gate {
10900Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPHDL_HELP));
10910Sstevel@tonic-gate }
10920Sstevel@tonic-gate 
10930Sstevel@tonic-gate static int
10940Sstevel@tonic-gate /* ARGSUSED2 */
10950Sstevel@tonic-gate dcmd_GrpHdl(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
10960Sstevel@tonic-gate {
10970Sstevel@tonic-gate 	Grp_hdl		gh;
10980Sstevel@tonic-gate 	Alist		al;
10990Sstevel@tonic-gate 	uintptr_t	listcalc, listnext;
11000Sstevel@tonic-gate 	char		*str;
11010Sstevel@tonic-gate 	uint_t		flg = 0;
11020Sstevel@tonic-gate 	size_t		ucnt, tcnt;
11030Sstevel@tonic-gate 
11040Sstevel@tonic-gate 	/*
11050Sstevel@tonic-gate 	 * Insure we have a valid address, and provide for a -v option.
11060Sstevel@tonic-gate 	 */
11070Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0) {
11080Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_GRPHDL_STR));
11090Sstevel@tonic-gate 		return (DCMD_USAGE);
11100Sstevel@tonic-gate 	}
11110Sstevel@tonic-gate 	if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, RTLD_FLG_VERBOSE,
11120Sstevel@tonic-gate 	    &flg, NULL) != argc)
11130Sstevel@tonic-gate 		return (DCMD_USAGE);
11140Sstevel@tonic-gate 
11150Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPHDL_LINE1), addr);
11160Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
11170Sstevel@tonic-gate 
11180Sstevel@tonic-gate 	if (mdb_vread(&gh, sizeof (Grp_hdl), addr) == -1) {
11190Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_GRPHDL_STR),
11200Sstevel@tonic-gate 		    addr);
11210Sstevel@tonic-gate 		return (DCMD_ERR);
11220Sstevel@tonic-gate 	}
11230Sstevel@tonic-gate 
11240Sstevel@tonic-gate 	/*
11250Sstevel@tonic-gate 	 * Determine the handles owner.  Note that an orphaned handle may no
11260Sstevel@tonic-gate 	 * longer contain its originating owner.
11270Sstevel@tonic-gate 	 */
11281618Srie 	if (gh.gh_ownlmp) {
11291618Srie 		if ((str = Rtmap_Name((uintptr_t)gh.gh_ownlmp)) == 0)
11300Sstevel@tonic-gate 			return (DCMD_ERR);
11310Sstevel@tonic-gate 	} else
11320Sstevel@tonic-gate 		str = (char *)MSG_ORIG(MSG_STR_ORPHANED);
11330Sstevel@tonic-gate 
11340Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPHDL_LINE2), str);
11350Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPHDL_LINE3), gh.gh_flags, gh.gh_flags,
11360Sstevel@tonic-gate 	    grhflags_bits);
11370Sstevel@tonic-gate 
11380Sstevel@tonic-gate 	if (gh.gh_depends == 0) {
11390Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_GRPHDL_LINE4), gh.gh_refcnt);
11400Sstevel@tonic-gate 		return (DCMD_OK);
11410Sstevel@tonic-gate 	}
11420Sstevel@tonic-gate 
11430Sstevel@tonic-gate 	addr = (uintptr_t)gh.gh_depends;
11440Sstevel@tonic-gate 	if (mdb_vread(&al, sizeof (Alist), addr) == -1) {
11450Sstevel@tonic-gate 	    mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_STR_ALIST), addr);
11460Sstevel@tonic-gate 	    return (DCMD_ERR);
11470Sstevel@tonic-gate 	}
11480Sstevel@tonic-gate 
11490Sstevel@tonic-gate 	ucnt = (al.al_next - sizeof (Alist) + sizeof (void *)) / al.al_size;
11500Sstevel@tonic-gate 	tcnt = (al.al_end - sizeof (Alist) + sizeof (void *)) / al.al_size;
11510Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GRPHDL_LINE5), gh.gh_refcnt, addr, ucnt, tcnt);
11520Sstevel@tonic-gate 
11530Sstevel@tonic-gate 	if (((flg & RTLD_FLG_VERBOSE) == 0) || (ucnt == 0))
11540Sstevel@tonic-gate 		return (DCMD_OK);
11550Sstevel@tonic-gate 
11560Sstevel@tonic-gate 	mdb_inc_indent(4);
11570Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
11580Sstevel@tonic-gate 
11590Sstevel@tonic-gate 	/*
11600Sstevel@tonic-gate 	 * Under verbose mode print the name of each dependency.  An Alist can
11610Sstevel@tonic-gate 	 * have a variable number of data items, so read each individual entry.
11620Sstevel@tonic-gate 	 */
11630Sstevel@tonic-gate 	listcalc = (uintptr_t)(&(al.al_data[0]));
11640Sstevel@tonic-gate 	listcalc -= (uintptr_t)(&al);
11650Sstevel@tonic-gate 	listcalc += addr;
11660Sstevel@tonic-gate 	if (dcmd_GrpDesc(listcalc, flags, argc, argv) == DCMD_ERR) {
11670Sstevel@tonic-gate 		mdb_dec_indent(4);
11680Sstevel@tonic-gate 		return (DCMD_ERR);
11690Sstevel@tonic-gate 	}
11700Sstevel@tonic-gate 
11710Sstevel@tonic-gate 	listnext = (uintptr_t)(al.al_next + addr);
11720Sstevel@tonic-gate 	for (listcalc += al.al_size; listcalc < listnext;
11730Sstevel@tonic-gate 	    listcalc += al.al_size) {
11740Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
11750Sstevel@tonic-gate 		if (dcmd_GrpDesc(listcalc, flags, argc, argv) == DCMD_ERR) {
11760Sstevel@tonic-gate 			mdb_dec_indent(4);
11770Sstevel@tonic-gate 			return (DCMD_ERR);
11780Sstevel@tonic-gate 		}
11790Sstevel@tonic-gate 	}
11800Sstevel@tonic-gate 
11810Sstevel@tonic-gate 	mdb_dec_indent(4);
11820Sstevel@tonic-gate 	return (DCMD_OK);
11830Sstevel@tonic-gate }
11840Sstevel@tonic-gate 
11850Sstevel@tonic-gate static void
11860Sstevel@tonic-gate dcmd_Handles_help(void)
11870Sstevel@tonic-gate {
11880Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_HANDLES_HELP));
11890Sstevel@tonic-gate }
11900Sstevel@tonic-gate 
11910Sstevel@tonic-gate static int
11920Sstevel@tonic-gate dcmd_Handles(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
11930Sstevel@tonic-gate {
11940Sstevel@tonic-gate 	Rt_map		rtmap;
11950Sstevel@tonic-gate 	char		*str;
11960Sstevel@tonic-gate 	uint_t		flg = 0;
11970Sstevel@tonic-gate 	Alist		al;
11980Sstevel@tonic-gate 	uintptr_t	listcalc, listnext;
11990Sstevel@tonic-gate 	size_t		ucnt, tcnt;
12000Sstevel@tonic-gate 	Grp_hdl *	ghp;
12010Sstevel@tonic-gate 
12020Sstevel@tonic-gate 	/*
12030Sstevel@tonic-gate 	 * Insure we have a valid address, and provide for a -v option.
12040Sstevel@tonic-gate 	 */
12050Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0) {
12060Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_HANDLES_STR));
12070Sstevel@tonic-gate 		return (DCMD_USAGE);
12080Sstevel@tonic-gate 	}
12090Sstevel@tonic-gate 	if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, RTLD_FLG_VERBOSE,
12100Sstevel@tonic-gate 	    &flg, NULL) != argc)
12110Sstevel@tonic-gate 		return (DCMD_USAGE);
12120Sstevel@tonic-gate 
12130Sstevel@tonic-gate 	/*
12140Sstevel@tonic-gate 	 * Read the Rt_map contents.
12150Sstevel@tonic-gate 	 */
12160Sstevel@tonic-gate 	if (mdb_vread(&rtmap, sizeof (Rt_map), addr) == -1) {
12170Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_RTMAP_STR), addr);
12180Sstevel@tonic-gate 		return (DCMD_ERR);
12190Sstevel@tonic-gate 	}
12200Sstevel@tonic-gate 	if ((str = String((uintptr_t)NAME(&rtmap),
12210Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_NAME))) == 0)
12220Sstevel@tonic-gate 		return (DCMD_ERR);
12230Sstevel@tonic-gate 
12240Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_HANDLES_LINE1), str);
12250Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
12260Sstevel@tonic-gate 
12270Sstevel@tonic-gate 	if (HANDLES(&rtmap) == 0)
12280Sstevel@tonic-gate 		return (DCMD_OK);
12290Sstevel@tonic-gate 
12300Sstevel@tonic-gate 	addr = (uintptr_t)HANDLES(&rtmap);
12310Sstevel@tonic-gate 	if (mdb_vread(&al, sizeof (Alist), addr) == -1) {
12320Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_STR_ALIST), addr);
12330Sstevel@tonic-gate 		return (DCMD_ERR);
12340Sstevel@tonic-gate 	}
12350Sstevel@tonic-gate 
12360Sstevel@tonic-gate 	ucnt = (al.al_next - sizeof (Alist) + sizeof (void *)) / al.al_size;
12370Sstevel@tonic-gate 	tcnt = (al.al_end - sizeof (Alist) + sizeof (void *)) / al.al_size;
12380Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_HANDLES_LINE2), addr, ucnt, tcnt);
12390Sstevel@tonic-gate 
12400Sstevel@tonic-gate 	if (((flg & RTLD_FLG_VERBOSE) == 0) || (ucnt == 0))
12410Sstevel@tonic-gate 		return (DCMD_OK);
12420Sstevel@tonic-gate 
12430Sstevel@tonic-gate 	/*
12440Sstevel@tonic-gate 	 * Under verbose mode print the name of each dependency.  An Alist can
12450Sstevel@tonic-gate 	 * have a variable number of data items, so read each individual entry.
12460Sstevel@tonic-gate 	 */
12470Sstevel@tonic-gate 	listcalc = (uintptr_t)(&(al.al_data[0]));
12480Sstevel@tonic-gate 	listcalc -= (uintptr_t)(&al);
12490Sstevel@tonic-gate 	listcalc += addr;
12500Sstevel@tonic-gate 	if (mdb_vread(&ghp, sizeof (Grp_hdl *), listcalc) == -1) {
12510Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ),
12520Sstevel@tonic-gate 		    MSG_ORIG(MSG_GRPHDL_STR), listcalc);
12530Sstevel@tonic-gate 		return (DCMD_ERR);
12540Sstevel@tonic-gate 	}
12550Sstevel@tonic-gate 
12560Sstevel@tonic-gate 	mdb_inc_indent(4);
12570Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
12580Sstevel@tonic-gate 
12590Sstevel@tonic-gate 	if (dcmd_GrpHdl((uintptr_t)ghp, flags, argc, argv) == DCMD_ERR) {
12600Sstevel@tonic-gate 		mdb_dec_indent(4);
12610Sstevel@tonic-gate 		return (DCMD_ERR);
12620Sstevel@tonic-gate 	}
12630Sstevel@tonic-gate 
12640Sstevel@tonic-gate 	listnext = (uintptr_t)(al.al_next + addr);
12650Sstevel@tonic-gate 	for (listcalc += al.al_size; listcalc < listnext;
12660Sstevel@tonic-gate 	    listcalc += al.al_size) {
12670Sstevel@tonic-gate 		if (mdb_vread(&ghp, sizeof (Grp_hdl *), listcalc) == -1) {
12680Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ),
12690Sstevel@tonic-gate 			    MSG_ORIG(MSG_GRPHDL_STR), listcalc);
12700Sstevel@tonic-gate 			return (DCMD_ERR);
12710Sstevel@tonic-gate 		}
12720Sstevel@tonic-gate 
12730Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
12740Sstevel@tonic-gate 		if (dcmd_GrpHdl((uintptr_t)ghp, flags, argc,
12750Sstevel@tonic-gate 		    argv) == DCMD_ERR) {
12760Sstevel@tonic-gate 			mdb_dec_indent(4);
12770Sstevel@tonic-gate 			return (DCMD_ERR);
12780Sstevel@tonic-gate 		}
12790Sstevel@tonic-gate 	}
12800Sstevel@tonic-gate 	mdb_dec_indent(4);
12810Sstevel@tonic-gate 	return (DCMD_OK);
12820Sstevel@tonic-gate }
12830Sstevel@tonic-gate 
12840Sstevel@tonic-gate static void
12850Sstevel@tonic-gate dcmd_Groups_help(void)
12860Sstevel@tonic-gate {
12870Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GROUPS_HELP));
12880Sstevel@tonic-gate }
12890Sstevel@tonic-gate 
12900Sstevel@tonic-gate 
12910Sstevel@tonic-gate static int
12920Sstevel@tonic-gate dcmd_Groups(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
12930Sstevel@tonic-gate {
12940Sstevel@tonic-gate 	Rt_map		rtmap;
12950Sstevel@tonic-gate 	char		*str;
12960Sstevel@tonic-gate 	Alist		al;
12970Sstevel@tonic-gate 	uint_t		flg = 0;
12980Sstevel@tonic-gate 	uintptr_t	listcalc, listnext;
12990Sstevel@tonic-gate 	size_t		ucnt, tcnt;
13000Sstevel@tonic-gate 	Grp_hdl *	ghp;
13010Sstevel@tonic-gate 
13020Sstevel@tonic-gate 	/*
13030Sstevel@tonic-gate 	 * Insure we have a valid address, and provide for a -v option.
13040Sstevel@tonic-gate 	 */
13050Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0) {
13060Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_NAS), MSG_ORIG(MSG_GROUPS_STR));
13070Sstevel@tonic-gate 		return (DCMD_USAGE);
13080Sstevel@tonic-gate 	}
13090Sstevel@tonic-gate 	if (mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, RTLD_FLG_VERBOSE,
13100Sstevel@tonic-gate 	    &flg, NULL) != argc)
13110Sstevel@tonic-gate 		return (DCMD_USAGE);
13120Sstevel@tonic-gate 
13130Sstevel@tonic-gate 	/*
13140Sstevel@tonic-gate 	 * Read the Rt_map contents.
13150Sstevel@tonic-gate 	 */
13160Sstevel@tonic-gate 	if (mdb_vread(&rtmap, sizeof (Rt_map), addr) == -1) {
13170Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_RTMAP_STR), addr);
13180Sstevel@tonic-gate 		return (DCMD_ERR);
13190Sstevel@tonic-gate 	}
13200Sstevel@tonic-gate 	if ((str = String((uintptr_t)NAME(&rtmap),
13210Sstevel@tonic-gate 	    MSG_ORIG(MSG_STR_NAME))) == 0)
13220Sstevel@tonic-gate 		return (DCMD_ERR);
13230Sstevel@tonic-gate 
13240Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GROUPS_LINE1), str);
13250Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
13260Sstevel@tonic-gate 
13270Sstevel@tonic-gate 	if (GROUPS(&rtmap) == 0)
13280Sstevel@tonic-gate 		return (DCMD_OK);
13290Sstevel@tonic-gate 
13300Sstevel@tonic-gate 	addr = (uintptr_t)GROUPS(&rtmap);
13310Sstevel@tonic-gate 	if (mdb_vread(&al, sizeof (Alist), addr) == -1) {
13320Sstevel@tonic-gate 	    mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_STR_ALIST), addr);
13330Sstevel@tonic-gate 	    return (DCMD_ERR);
13340Sstevel@tonic-gate 	}
13350Sstevel@tonic-gate 
13360Sstevel@tonic-gate 	ucnt = (al.al_next - sizeof (Alist) + sizeof (void *)) / al.al_size;
13370Sstevel@tonic-gate 	tcnt = (al.al_end - sizeof (Alist) + sizeof (void *)) / al.al_size;
13380Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_GROUPS_LINE2), addr, ucnt, tcnt);
13390Sstevel@tonic-gate 
13400Sstevel@tonic-gate 	if (((flg & RTLD_FLG_VERBOSE) == 0) || (ucnt == 0))
13410Sstevel@tonic-gate 		return (DCMD_OK);
13420Sstevel@tonic-gate 
13430Sstevel@tonic-gate 	/*
13440Sstevel@tonic-gate 	 * Under verbose mode print the name of each dependency.  An Alist can
13450Sstevel@tonic-gate 	 * have a variable number of data items, so read each individual entry.
13460Sstevel@tonic-gate 	 */
13470Sstevel@tonic-gate 	listcalc = (uintptr_t)(&(al.al_data[0]));
13480Sstevel@tonic-gate 	listcalc -= (uintptr_t)(&al);
13490Sstevel@tonic-gate 	listcalc += addr;
13500Sstevel@tonic-gate 	if (mdb_vread(&ghp, sizeof (Grp_hdl *), listcalc) == -1) {
13510Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ),
13520Sstevel@tonic-gate 		    MSG_ORIG(MSG_GRPHDL_STR), listcalc);
13530Sstevel@tonic-gate 		return (DCMD_ERR);
13540Sstevel@tonic-gate 	}
13550Sstevel@tonic-gate 
13560Sstevel@tonic-gate 	mdb_inc_indent(4);
13570Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_STR_DASHES));
13580Sstevel@tonic-gate 
13590Sstevel@tonic-gate 	if (dcmd_GrpHdl((uintptr_t)ghp, flags, argc, argv) == DCMD_ERR) {
13600Sstevel@tonic-gate 		mdb_dec_indent(4);
13610Sstevel@tonic-gate 		return (DCMD_ERR);
13620Sstevel@tonic-gate 	}
13630Sstevel@tonic-gate 
13640Sstevel@tonic-gate 	listnext = (uintptr_t)(al.al_next + addr);
13650Sstevel@tonic-gate 	for (listcalc += al.al_size; listcalc < listnext;
13660Sstevel@tonic-gate 	    listcalc += al.al_size) {
13670Sstevel@tonic-gate 		if (mdb_vread(&ghp, sizeof (Grp_hdl *), listcalc) == -1) {
13680Sstevel@tonic-gate 			mdb_warn(MSG_ORIG(MSG_ERR_READ),
13690Sstevel@tonic-gate 			    MSG_ORIG(MSG_GRPHDL_STR), listcalc);
13700Sstevel@tonic-gate 			return (DCMD_ERR);
13710Sstevel@tonic-gate 		}
13720Sstevel@tonic-gate 
13730Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_STR_DASHES));
13740Sstevel@tonic-gate 		if (dcmd_GrpHdl((uintptr_t)ghp, flags, argc,
13750Sstevel@tonic-gate 		    argv) == DCMD_ERR) {
13760Sstevel@tonic-gate 			mdb_dec_indent(4);
13770Sstevel@tonic-gate 			return (DCMD_ERR);
13780Sstevel@tonic-gate 		}
13790Sstevel@tonic-gate 	}
13800Sstevel@tonic-gate 	mdb_dec_indent(4);
13810Sstevel@tonic-gate 	return (DCMD_OK);
13820Sstevel@tonic-gate }
13830Sstevel@tonic-gate static void
13840Sstevel@tonic-gate dcmd_ElfDyn_help(void)
13850Sstevel@tonic-gate {
13860Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_ELFDYN_HELP));
13870Sstevel@tonic-gate }
13880Sstevel@tonic-gate 
13890Sstevel@tonic-gate static int
13900Sstevel@tonic-gate /* ARGSUSED2 */
13910Sstevel@tonic-gate dcmd_ElfDyn(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
13920Sstevel@tonic-gate {
13930Sstevel@tonic-gate 	Dyn		dyn;
13940Sstevel@tonic-gate 	const char	*dynstr;
13950Sstevel@tonic-gate 
13960Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0)
13970Sstevel@tonic-gate 		return (DCMD_USAGE);
13980Sstevel@tonic-gate 	if (mdb_vread(&dyn, sizeof (dyn), addr) == -1) {
13990Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_ELFDYN_STR),
14000Sstevel@tonic-gate 			addr);
14010Sstevel@tonic-gate 		return (DCMD_ERR);
14020Sstevel@tonic-gate 	}
14030Sstevel@tonic-gate 
14040Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_ELFDYN_TITLE), addr);
14051976Sab196087 	dynstr = conv_dyn_tag(dyn.d_tag, M_MACH, 0);
14060Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_ELFDYN_LINE1), addr, dynstr, dyn.d_un.d_ptr);
14070Sstevel@tonic-gate 
14080Sstevel@tonic-gate 	mdb_set_dot(addr + sizeof (Dyn));
14090Sstevel@tonic-gate 
14100Sstevel@tonic-gate 	return (DCMD_OK);
14110Sstevel@tonic-gate }
14120Sstevel@tonic-gate 
14130Sstevel@tonic-gate static void
14140Sstevel@tonic-gate dcmd_ElfEhdr_help(void)
14150Sstevel@tonic-gate {
14160Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EHDR_HELP));
14170Sstevel@tonic-gate }
14180Sstevel@tonic-gate 
14190Sstevel@tonic-gate static int
14200Sstevel@tonic-gate /* ARGSUSED2 */
14210Sstevel@tonic-gate dcmd_ElfEhdr(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
14220Sstevel@tonic-gate {
14230Sstevel@tonic-gate 	Ehdr		ehdr;
14240Sstevel@tonic-gate 	Byte		*byte;
14250Sstevel@tonic-gate 	const char	*flgs;
14260Sstevel@tonic-gate 
14270Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0)
14280Sstevel@tonic-gate 		return (DCMD_USAGE);
14290Sstevel@tonic-gate 
14300Sstevel@tonic-gate 	if (mdb_vread(&ehdr, sizeof (ehdr), addr) == -1) {
14310Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_EHDR_STR),
14320Sstevel@tonic-gate 			addr);
14330Sstevel@tonic-gate 		return (DCMD_ERR);
14340Sstevel@tonic-gate 	}
14350Sstevel@tonic-gate 
14360Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EHDR_TITLE), addr);
14370Sstevel@tonic-gate 	byte = &ehdr.e_ident[0];
14380Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EHDR_LINE1), byte[EI_MAG0],
14390Sstevel@tonic-gate 	    (byte[EI_MAG1] ? byte[EI_MAG1] : '0'),
14400Sstevel@tonic-gate 	    (byte[EI_MAG2] ? byte[EI_MAG2] : '0'),
14410Sstevel@tonic-gate 	    (byte[EI_MAG3] ? byte[EI_MAG3] : '0'));
14420Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EHDR_LINE2),
14431976Sab196087 	    conv_ehdr_class(ehdr.e_ident[EI_CLASS], 0),
14441976Sab196087 	    conv_ehdr_data(ehdr.e_ident[EI_DATA], 0));
14450Sstevel@tonic-gate 
14460Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EHDR_LINE3),
14471976Sab196087 	    conv_ehdr_mach(ehdr.e_machine, 0),
14481976Sab196087 	    conv_ehdr_vers(ehdr.e_version, 0));
14491976Sab196087 	mdb_printf(MSG_ORIG(MSG_EHDR_LINE4), conv_ehdr_type(ehdr.e_type, 0));
14500Sstevel@tonic-gate 
14510Sstevel@tonic-gate 	/*
14521976Sab196087 	 * Line up the flags differently depending on whether we
14531976Sab196087 	 * received a numeric (e.g. "0x200") or text representation
14541976Sab196087 	 * (e.g. "[ EF_SPARC_SUN_US1 ]").
14550Sstevel@tonic-gate 	 */
14561618Srie 	flgs = conv_ehdr_flags(ehdr.e_machine, ehdr.e_flags);
14570Sstevel@tonic-gate 	if (flgs[0] == '[')
14580Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_EHDR_LINE5), flgs);
14590Sstevel@tonic-gate 	else
14600Sstevel@tonic-gate 		mdb_printf(MSG_ORIG(MSG_EHDR_LINE6), flgs);
14610Sstevel@tonic-gate 
14620Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EHDR_LINE7), ehdr.e_entry, ehdr.e_ehsize,
14630Sstevel@tonic-gate 	    ehdr.e_shstrndx);
14640Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EHDR_LINE8), ehdr.e_shoff, ehdr.e_shentsize,
14650Sstevel@tonic-gate 	    ehdr.e_shnum);
14660Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EHDR_LINE9), ehdr.e_phoff, ehdr.e_phentsize,
14670Sstevel@tonic-gate 	    ehdr.e_phnum);
14680Sstevel@tonic-gate 
14690Sstevel@tonic-gate 	mdb_set_dot(addr + sizeof (Ehdr));
14700Sstevel@tonic-gate 
14710Sstevel@tonic-gate 	return (DCMD_OK);
14720Sstevel@tonic-gate }
14730Sstevel@tonic-gate 
14740Sstevel@tonic-gate static void
14750Sstevel@tonic-gate dcmd_ElfPhdr_help(void)
14760Sstevel@tonic-gate {
14770Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EPHDR_HELP));
14780Sstevel@tonic-gate }
14790Sstevel@tonic-gate 
14800Sstevel@tonic-gate static int
14810Sstevel@tonic-gate /* ARGSUSED2 */
14820Sstevel@tonic-gate dcmd_ElfPhdr(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
14830Sstevel@tonic-gate {
14840Sstevel@tonic-gate 	Phdr	phdr;
14850Sstevel@tonic-gate 
14860Sstevel@tonic-gate 	if ((flags & DCMD_ADDRSPEC) == 0)
14870Sstevel@tonic-gate 		return (DCMD_USAGE);
14880Sstevel@tonic-gate 
14890Sstevel@tonic-gate 	if (mdb_vread(&phdr, sizeof (phdr), addr) == -1) {
14900Sstevel@tonic-gate 		mdb_warn(MSG_ORIG(MSG_ERR_READ), MSG_ORIG(MSG_EPHDR_STR),
14910Sstevel@tonic-gate 			addr);
14920Sstevel@tonic-gate 		return (DCMD_ERR);
14930Sstevel@tonic-gate 	}
14940Sstevel@tonic-gate 
14950Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EPHDR_TITLE), addr);
14960Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EPHDR_LINE1), phdr.p_vaddr,
14971618Srie 	    conv_phdr_flags(phdr.p_flags));
14980Sstevel@tonic-gate 	mdb_printf(MSG_ORIG(MSG_EPHDR_LINE2), phdr.p_paddr,
14991618Srie 	    conv_phdr_type(M_MACH, phdr.p_type));
15001618Srie 	mdb_printf(MSG_ORIG(MSG_EPHDR_LINE3), phdr.p_filesz, phdr.p_memsz);
15011618Srie 	mdb_printf(MSG_ORIG(MSG_EPHDR_LINE4), phdr.p_offset, phdr.p_align);
15020Sstevel@tonic-gate 
15030Sstevel@tonic-gate 	mdb_set_dot(addr + sizeof (Phdr));
15040Sstevel@tonic-gate 
15050Sstevel@tonic-gate 	return (DCMD_OK);
15060Sstevel@tonic-gate }
15070Sstevel@tonic-gate 
15080Sstevel@tonic-gate 
15090Sstevel@tonic-gate static const mdb_dcmd_t dcmds[] = {
15100Sstevel@tonic-gate 	{ MSG_ORIG(MSG_BND_STR), MSG_ORIG(MSG_USG_ADDREQ_V),
15110Sstevel@tonic-gate 		MSG_ORIG(MSG_BND_DCD),
15120Sstevel@tonic-gate 		dcmd_Bind, dcmd_Bind_help},
15130Sstevel@tonic-gate 	{ MSG_ORIG(MSG_DEPENDS_STR), MSG_ORIG(MSG_USG_ADDREQ_V),
15140Sstevel@tonic-gate 		MSG_ORIG(MSG_DEPENDS_DCD),
15150Sstevel@tonic-gate 		dcmd_Depends, dcmd_Depends_help},
15160Sstevel@tonic-gate 	{ MSG_ORIG(MSG_CALLERS_STR), MSG_ORIG(MSG_USG_ADDREQ_V),
15170Sstevel@tonic-gate 		MSG_ORIG(MSG_CALLERS_DCD),
15180Sstevel@tonic-gate 		dcmd_Callers, dcmd_Callers_help},
15190Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GRPHDL_STR), MSG_ORIG(MSG_USG_ADDREQ_V),
15200Sstevel@tonic-gate 		MSG_ORIG(MSG_GRPHDL_DCD),
15210Sstevel@tonic-gate 		dcmd_GrpHdl, dcmd_GrpHdl_help},
15220Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GRPDESC_STR), MSG_ORIG(MSG_USG_ADDREQ_V),
15230Sstevel@tonic-gate 		MSG_ORIG(MSG_GRPDESC_DCD),
15240Sstevel@tonic-gate 		dcmd_GrpDesc, dcmd_GrpDesc_help},
15250Sstevel@tonic-gate 	{ MSG_ORIG(MSG_HANDLES_STR), MSG_ORIG(MSG_USG_ADDREQ_V),
15260Sstevel@tonic-gate 		MSG_ORIG(MSG_HANDLES_DCD),
15270Sstevel@tonic-gate 		dcmd_Handles, dcmd_Handles_help},
15280Sstevel@tonic-gate 	{ MSG_ORIG(MSG_GROUPS_STR), MSG_ORIG(MSG_USG_ADDREQ_V),
15290Sstevel@tonic-gate 		MSG_ORIG(MSG_GROUPS_DCD),
15300Sstevel@tonic-gate 		dcmd_Groups, dcmd_Groups_help},
15310Sstevel@tonic-gate 	{ MSG_ORIG(MSG_ELFDYN_STR), MSG_ORIG(MSG_USG_ADDREQ),
15320Sstevel@tonic-gate 		MSG_ORIG(MSG_ELFDYN_DCD),
15330Sstevel@tonic-gate 		dcmd_ElfDyn, dcmd_ElfDyn_help},
15340Sstevel@tonic-gate 	{ MSG_ORIG(MSG_EHDR_STR), MSG_ORIG(MSG_USG_ADDREQ),
15350Sstevel@tonic-gate 		MSG_ORIG(MSG_EHDR_DCD),
15360Sstevel@tonic-gate 		dcmd_ElfEhdr, dcmd_ElfEhdr_help},
15370Sstevel@tonic-gate 	{ MSG_ORIG(MSG_EPHDR_STR), MSG_ORIG(MSG_USG_ADDREQ),
15380Sstevel@tonic-gate 		MSG_ORIG(MSG_EPHDR_DCD),
15390Sstevel@tonic-gate 		dcmd_ElfPhdr, dcmd_ElfPhdr_help},
15400Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LIST_STR), MSG_ORIG(MSG_USG_ADDREQ),
15410Sstevel@tonic-gate 		MSG_ORIG(MSG_LIST_DCD),
15420Sstevel@tonic-gate 		dcmd_List, dcmd_List_help},
15430Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LMLIST_STR), MSG_ORIG(MSG_USG_ADDREQ_V),
15440Sstevel@tonic-gate 		MSG_ORIG(MSG_LMLIST_DCD),
15450Sstevel@tonic-gate 		dcmd_Lm_list, dcmd_Lm_list_help},
15460Sstevel@tonic-gate 	{ MSG_ORIG(MSG_RTMAPS_STR), MSG_ORIG(MSG_USG_ADDOPT_V),
15470Sstevel@tonic-gate 		MSG_ORIG(MSG_RTMAPS_DCD),
15480Sstevel@tonic-gate 		dcmd_Rtmaps, dcmd_Rtmaps_help},
15490Sstevel@tonic-gate 	{ MSG_ORIG(MSG_RTMAP_STR), MSG_ORIG(MSG_USG_ADDREQ),
15500Sstevel@tonic-gate 		MSG_ORIG(MSG_RTMAP_DCD),
15510Sstevel@tonic-gate 		dcmd_rtmap, dcmd_rtmap_help},
15520Sstevel@tonic-gate 	{ MSG_ORIG(MSG_SETENV_STR), MSG_ORIG(MSG_USG_SETENV),
15530Sstevel@tonic-gate 		MSG_ORIG(MSG_SETENV_DCD),
15540Sstevel@tonic-gate 		dcmd_Setenv, dcmd_Setenv_help},
15550Sstevel@tonic-gate 	{ NULL }
15560Sstevel@tonic-gate };
15570Sstevel@tonic-gate 
15580Sstevel@tonic-gate static const mdb_walker_t walkers[] = {
15590Sstevel@tonic-gate 	{ MSG_ORIG(MSG_RTMAPS_STR), MSG_ORIG(MSG_WWD_RTMAP),
15600Sstevel@tonic-gate 		walk_rtmap_init, walk_rtmap_step, NULL, NULL },
15610Sstevel@tonic-gate 	{ MSG_ORIG(MSG_LIST_STR), MSG_ORIG(MSG_WWD_LIST),
15620Sstevel@tonic-gate 		walk_List_init, walk_List_step, NULL, NULL },
15630Sstevel@tonic-gate 	{ NULL }
15640Sstevel@tonic-gate };
15650Sstevel@tonic-gate 
15660Sstevel@tonic-gate static const mdb_modinfo_t modinfo = {
15670Sstevel@tonic-gate 	MDB_API_VERSION, dcmds, walkers
15680Sstevel@tonic-gate };
15690Sstevel@tonic-gate 
15700Sstevel@tonic-gate const	mdb_modinfo_t *
15710Sstevel@tonic-gate _mdb_init(void)
15720Sstevel@tonic-gate {
15730Sstevel@tonic-gate 	return (&modinfo);
15740Sstevel@tonic-gate }
1575