1/*
2 * CDDL HEADER START
3 *
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.
7 *
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.
12 *
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]
18 *
19 * CDDL HEADER END
20 */
21
22/*
23 * Copyright (c) 1995, 2010, Oracle and/or its affiliates. All rights reserved.
24 */
25
26#include <stdio.h>
27#include <stdlib.h>
28#include <unistd.h>
29#include <fcntl.h>
30#include <string.h>
31#include <errno.h>
32#include <sys/types.h>
33#include <sys/signal.h>
34#include <sys/fault.h>
35#include <sys/syscall.h>
36#include <procfs.h>
37#include <sys/auxv.h>
38#include <libelf.h>
39#include <sys/param.h>
40#include <stdarg.h>
41
42#include "rdb.h"
43#include "disasm.h"
44
45/*
46 * I don't like this global but it's a work-around for the
47 * poor disassemble interface for now.
48 */
49static struct ps_prochandle	*cur_ph;
50
51/*
52 * This routine converts 'address' into it's closest symbol
53 * representation.
54 *
55 * The following flags are used to effect the output:
56 *
57 *	FLG_PAP_SONAME
58 *		embed the SONAME in the symbol name
59 *	FLG_PAP_NOHEXNAME
60 *		if no symbol found return a null string
61 *		If this flag is not set return a string displaying
62 *		the 'hex' value of address.
63 *	FLG_PAP_PLTDECOM
64 *		decompose the PLT symbol if possible
65 */
66char *
67print_address_ps(struct ps_prochandle *ph, ulong_t address, unsigned flags)
68{
69	static char	buf[256];
70	GElf_Sym	sym;
71	char		*str;
72	ulong_t		val;
73
74	if (addr_to_sym(ph, address, &sym, &str) == RET_OK) {
75		map_info_t	*mip;
76		ulong_t		pltbase;
77
78		if (flags & FLG_PAP_SONAME) {
79			/*
80			 * Embed SOName in symbol name
81			 */
82			if ((mip = addr_to_map(ph, address)) != 0) {
83				(void) strcpy(buf, mip->mi_name);
84				(void) strcat(buf, ":");
85			} else
86				(void) sprintf(buf, "0x%08lx:", address);
87		} else
88			buf[0] = '\0';
89
90		if ((flags & FLG_PAP_PLTDECOM) &&
91		    (pltbase = is_plt(ph, address)) != 0) {
92			rd_plt_info_t	rp;
93			pstatus_t	pstatus;
94
95			if (pread(ph->pp_statusfd, &pstatus,
96			    sizeof (pstatus), 0) == -1)
97				perr("pap: reading pstatus");
98
99			if (rd_plt_resolution(ph->pp_rap, address,
100			    pstatus.pr_lwp.pr_lwpid, pltbase,
101			    &rp) == RD_OK) {
102				if (rp.pi_flags & RD_FLG_PI_PLTBOUND) {
103					GElf_Sym	_sym;
104					char		*_str;
105
106					if (addr_to_sym(ph, rp.pi_baddr,
107					    &_sym, &_str) == RET_OK) {
108						(void) snprintf(buf, 256,
109						    "%s0x%lx:plt(%s)",
110						    buf, address, _str);
111						return (buf);
112					}
113				}
114			}
115			val = sym.st_value;
116			(void) snprintf(buf, 256, "%s0x%lx:plt(unbound)+0x%lx",
117			    buf, address, address - val);
118			return (buf);
119		} else {
120
121			val = sym.st_value;
122
123			if (val < address)
124				(void) snprintf(buf, 256, "%s%s+0x%lx", buf,
125				    str, address - val);
126			else
127				(void) snprintf(buf, 256, "%s%s", buf, str);
128			return (buf);
129		}
130	} else {
131		if (flags & FLG_PAP_NOHEXNAME)
132			buf[0] = '\0';
133		else
134			(void) sprintf(buf, "0x%lx", address);
135		return (buf);
136	}
137}
138
139char *
140print_address(unsigned long address)
141{
142	return (print_address_ps(cur_ph, address,
143	    FLG_PAP_SONAME| FLG_PAP_PLTDECOM));
144}
145
146retc_t
147disasm_addr(struct ps_prochandle *ph, ulong_t addr, int num_inst)
148{
149	ulong_t 	offset, end;
150	int		vers = V8_MODE;
151
152	if (ph->pp_dmodel == PR_MODEL_LP64)
153		vers = V9_MODE | V9_SGI_MODE;
154
155	for (offset = addr, end = addr + num_inst * 4; offset < end;
156	    offset += 4) {
157		char		*instr_str;
158		unsigned int	instr;
159
160		if (ps_pread(ph, offset, (char *)&instr,
161		    sizeof (unsigned)) != PS_OK)
162			perror("da: ps_pread");
163
164		cur_ph = ph;
165		instr_str = disassemble(instr, offset, print_address, 0, 0,
166		    vers);
167
168		(void) printf("%-30s: %s\n", print_address(offset), instr_str);
169	}
170	return (RET_OK);
171}
172
173void
174disasm(struct ps_prochandle *ph, int num_inst)
175{
176	pstatus_t	pstat;
177
178	if (pread(ph->pp_statusfd, &pstat, sizeof (pstat), 0) == -1)
179		perr("disasm: PIOCSTATUS");
180
181	(void) disasm_addr(ph, (ulong_t)pstat.pr_lwp.pr_reg[R_PC], num_inst);
182}
183