1*25c28e83SPiotr Jasiukajtis /*
2*25c28e83SPiotr Jasiukajtis * CDDL HEADER START
3*25c28e83SPiotr Jasiukajtis *
4*25c28e83SPiotr Jasiukajtis * The contents of this file are subject to the terms of the
5*25c28e83SPiotr Jasiukajtis * Common Development and Distribution License (the "License").
6*25c28e83SPiotr Jasiukajtis * You may not use this file except in compliance with the License.
7*25c28e83SPiotr Jasiukajtis *
8*25c28e83SPiotr Jasiukajtis * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9*25c28e83SPiotr Jasiukajtis * or http://www.opensolaris.org/os/licensing.
10*25c28e83SPiotr Jasiukajtis * See the License for the specific language governing permissions
11*25c28e83SPiotr Jasiukajtis * and limitations under the License.
12*25c28e83SPiotr Jasiukajtis *
13*25c28e83SPiotr Jasiukajtis * When distributing Covered Code, include this CDDL HEADER in each
14*25c28e83SPiotr Jasiukajtis * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15*25c28e83SPiotr Jasiukajtis * If applicable, add the following below this CDDL HEADER, with the
16*25c28e83SPiotr Jasiukajtis * fields enclosed by brackets "[]" replaced with your own identifying
17*25c28e83SPiotr Jasiukajtis * information: Portions Copyright [yyyy] [name of copyright owner]
18*25c28e83SPiotr Jasiukajtis *
19*25c28e83SPiotr Jasiukajtis * CDDL HEADER END
20*25c28e83SPiotr Jasiukajtis */
21*25c28e83SPiotr Jasiukajtis
22*25c28e83SPiotr Jasiukajtis /*
23*25c28e83SPiotr Jasiukajtis * Copyright 2011 Nexenta Systems, Inc. All rights reserved.
24*25c28e83SPiotr Jasiukajtis */
25*25c28e83SPiotr Jasiukajtis /*
26*25c28e83SPiotr Jasiukajtis * Copyright 2006 Sun Microsystems, Inc. All rights reserved.
27*25c28e83SPiotr Jasiukajtis * Use is subject to license terms.
28*25c28e83SPiotr Jasiukajtis */
29*25c28e83SPiotr Jasiukajtis
30*25c28e83SPiotr Jasiukajtis #include <elf.h>
31*25c28e83SPiotr Jasiukajtis #include <stdio.h>
32*25c28e83SPiotr Jasiukajtis #include <stdlib.h>
33*25c28e83SPiotr Jasiukajtis #include <unistd.h>
34*25c28e83SPiotr Jasiukajtis #include <fcntl.h>
35*25c28e83SPiotr Jasiukajtis #include <procfs.h>
36*25c28e83SPiotr Jasiukajtis #include <string.h>
37*25c28e83SPiotr Jasiukajtis #include <sys/stat.h>
38*25c28e83SPiotr Jasiukajtis
39*25c28e83SPiotr Jasiukajtis #if defined(__sparcv9) || defined(__amd64)
40*25c28e83SPiotr Jasiukajtis
41*25c28e83SPiotr Jasiukajtis #define Elf_Ehdr Elf64_Ehdr
42*25c28e83SPiotr Jasiukajtis #define Elf_Phdr Elf64_Phdr
43*25c28e83SPiotr Jasiukajtis #define Elf_Shdr Elf64_Shdr
44*25c28e83SPiotr Jasiukajtis #define Elf_Sym Elf64_Sym
45*25c28e83SPiotr Jasiukajtis #define ELF_ST_BIND ELF64_ST_BIND
46*25c28e83SPiotr Jasiukajtis #define ELF_ST_TYPE ELF64_ST_TYPE
47*25c28e83SPiotr Jasiukajtis
48*25c28e83SPiotr Jasiukajtis #else
49*25c28e83SPiotr Jasiukajtis
50*25c28e83SPiotr Jasiukajtis #define Elf_Ehdr Elf32_Ehdr
51*25c28e83SPiotr Jasiukajtis #define Elf_Phdr Elf32_Phdr
52*25c28e83SPiotr Jasiukajtis #define Elf_Shdr Elf32_Shdr
53*25c28e83SPiotr Jasiukajtis #define Elf_Sym Elf32_Sym
54*25c28e83SPiotr Jasiukajtis #define ELF_ST_BIND ELF32_ST_BIND
55*25c28e83SPiotr Jasiukajtis #define ELF_ST_TYPE ELF32_ST_TYPE
56*25c28e83SPiotr Jasiukajtis
57*25c28e83SPiotr Jasiukajtis #endif /* __sparcv9 */
58*25c28e83SPiotr Jasiukajtis
59*25c28e83SPiotr Jasiukajtis /* semi-permanent data established by __fex_sym_init */
60*25c28e83SPiotr Jasiukajtis static prmap_t *pm = NULL; /* prmap_t array */
61*25c28e83SPiotr Jasiukajtis static int npm = 0; /* number of entries in pm */
62*25c28e83SPiotr Jasiukajtis
63*25c28e83SPiotr Jasiukajtis /* transient data modified by __fex_sym */
64*25c28e83SPiotr Jasiukajtis static prmap_t *lpm = NULL; /* prmap_t found in last call */
65*25c28e83SPiotr Jasiukajtis static Elf_Phdr *ph = NULL; /* program header array */
66*25c28e83SPiotr Jasiukajtis static int phsize = 0; /* size of ph */
67*25c28e83SPiotr Jasiukajtis static int nph; /* number of entries in ph */
68*25c28e83SPiotr Jasiukajtis static char *stbuf = NULL; /* symbol and string table buffer */
69*25c28e83SPiotr Jasiukajtis static int stbufsize = 0; /* size of stbuf */
70*25c28e83SPiotr Jasiukajtis static int stoffset; /* offset of string table in stbuf */
71*25c28e83SPiotr Jasiukajtis static int nsyms; /* number of symbols in stbuf */
72*25c28e83SPiotr Jasiukajtis
73*25c28e83SPiotr Jasiukajtis /* get a current prmap_t list (must call this before each stack trace) */
74*25c28e83SPiotr Jasiukajtis void
__fex_sym_init()75*25c28e83SPiotr Jasiukajtis __fex_sym_init()
76*25c28e83SPiotr Jasiukajtis {
77*25c28e83SPiotr Jasiukajtis struct stat statbuf;
78*25c28e83SPiotr Jasiukajtis long n;
79*25c28e83SPiotr Jasiukajtis int i;
80*25c28e83SPiotr Jasiukajtis
81*25c28e83SPiotr Jasiukajtis /* clear out the previous prmap_t list */
82*25c28e83SPiotr Jasiukajtis if (pm != NULL)
83*25c28e83SPiotr Jasiukajtis free(pm);
84*25c28e83SPiotr Jasiukajtis pm = lpm = NULL;
85*25c28e83SPiotr Jasiukajtis npm = 0;
86*25c28e83SPiotr Jasiukajtis
87*25c28e83SPiotr Jasiukajtis /* get the current prmap_t list */
88*25c28e83SPiotr Jasiukajtis if (stat("/proc/self/map", &statbuf) < 0 || statbuf.st_size <= 0 ||
89*25c28e83SPiotr Jasiukajtis (pm = (prmap_t*)malloc(statbuf.st_size)) == NULL)
90*25c28e83SPiotr Jasiukajtis return;
91*25c28e83SPiotr Jasiukajtis if ((i = open("/proc/self/map", O_RDONLY)) < 0)
92*25c28e83SPiotr Jasiukajtis {
93*25c28e83SPiotr Jasiukajtis free(pm);
94*25c28e83SPiotr Jasiukajtis pm = NULL;
95*25c28e83SPiotr Jasiukajtis return;
96*25c28e83SPiotr Jasiukajtis }
97*25c28e83SPiotr Jasiukajtis n = read(i, pm, statbuf.st_size);
98*25c28e83SPiotr Jasiukajtis close(i);
99*25c28e83SPiotr Jasiukajtis if (n != statbuf.st_size)
100*25c28e83SPiotr Jasiukajtis {
101*25c28e83SPiotr Jasiukajtis free(pm);
102*25c28e83SPiotr Jasiukajtis pm = NULL;
103*25c28e83SPiotr Jasiukajtis }
104*25c28e83SPiotr Jasiukajtis else
105*25c28e83SPiotr Jasiukajtis npm = (int) (n / sizeof(prmap_t));
106*25c28e83SPiotr Jasiukajtis }
107*25c28e83SPiotr Jasiukajtis
108*25c28e83SPiotr Jasiukajtis /* read ELF program headers and symbols; return -1 on error, 0 otherwise */
109*25c28e83SPiotr Jasiukajtis static int
__fex_read_syms(int fd)110*25c28e83SPiotr Jasiukajtis __fex_read_syms(int fd)
111*25c28e83SPiotr Jasiukajtis {
112*25c28e83SPiotr Jasiukajtis Elf_Ehdr h;
113*25c28e83SPiotr Jasiukajtis Elf_Shdr *sh;
114*25c28e83SPiotr Jasiukajtis int i, size;
115*25c28e83SPiotr Jasiukajtis
116*25c28e83SPiotr Jasiukajtis /* read the ELF header */
117*25c28e83SPiotr Jasiukajtis if (read(fd, &h, sizeof(h)) != sizeof(h))
118*25c28e83SPiotr Jasiukajtis return -1;
119*25c28e83SPiotr Jasiukajtis if (h.e_ident[EI_MAG0] != ELFMAG0 ||
120*25c28e83SPiotr Jasiukajtis h.e_ident[EI_MAG1] != ELFMAG1 ||
121*25c28e83SPiotr Jasiukajtis h.e_ident[EI_MAG2] != ELFMAG2 ||
122*25c28e83SPiotr Jasiukajtis h.e_ident[EI_MAG3] != ELFMAG3 ||
123*25c28e83SPiotr Jasiukajtis h.e_phentsize != sizeof(Elf_Phdr) ||
124*25c28e83SPiotr Jasiukajtis h.e_shentsize != sizeof(Elf_Shdr))
125*25c28e83SPiotr Jasiukajtis return -1;
126*25c28e83SPiotr Jasiukajtis
127*25c28e83SPiotr Jasiukajtis /* get space for the program headers */
128*25c28e83SPiotr Jasiukajtis size = h.e_phnum * h.e_phentsize;
129*25c28e83SPiotr Jasiukajtis if (size > phsize)
130*25c28e83SPiotr Jasiukajtis {
131*25c28e83SPiotr Jasiukajtis if (ph)
132*25c28e83SPiotr Jasiukajtis free(ph);
133*25c28e83SPiotr Jasiukajtis phsize = nph = 0;
134*25c28e83SPiotr Jasiukajtis if ((ph = (Elf_Phdr*)malloc(size)) == NULL)
135*25c28e83SPiotr Jasiukajtis return -1;
136*25c28e83SPiotr Jasiukajtis phsize = size;
137*25c28e83SPiotr Jasiukajtis }
138*25c28e83SPiotr Jasiukajtis
139*25c28e83SPiotr Jasiukajtis /* read the program headers */
140*25c28e83SPiotr Jasiukajtis if (lseek(fd, h.e_phoff, SEEK_SET) != h.e_phoff ||
141*25c28e83SPiotr Jasiukajtis read(fd, ph, size) != (ssize_t)size)
142*25c28e83SPiotr Jasiukajtis {
143*25c28e83SPiotr Jasiukajtis nph = 0;
144*25c28e83SPiotr Jasiukajtis return -1;
145*25c28e83SPiotr Jasiukajtis }
146*25c28e83SPiotr Jasiukajtis nph = h.e_phnum;
147*25c28e83SPiotr Jasiukajtis
148*25c28e83SPiotr Jasiukajtis /* read the section headers */
149*25c28e83SPiotr Jasiukajtis size = h.e_shnum * h.e_shentsize;
150*25c28e83SPiotr Jasiukajtis if ((sh = (Elf_Shdr*)malloc(size)) == NULL)
151*25c28e83SPiotr Jasiukajtis return -1;
152*25c28e83SPiotr Jasiukajtis if (lseek(fd, h.e_shoff, SEEK_SET) != h.e_shoff ||
153*25c28e83SPiotr Jasiukajtis read(fd, sh, size) != (ssize_t)size)
154*25c28e83SPiotr Jasiukajtis {
155*25c28e83SPiotr Jasiukajtis free(sh);
156*25c28e83SPiotr Jasiukajtis return -1;
157*25c28e83SPiotr Jasiukajtis }
158*25c28e83SPiotr Jasiukajtis
159*25c28e83SPiotr Jasiukajtis /* find the symtab section header */
160*25c28e83SPiotr Jasiukajtis for (i = 0; i < h.e_shnum; i++)
161*25c28e83SPiotr Jasiukajtis {
162*25c28e83SPiotr Jasiukajtis if (sh[i].sh_type == SHT_SYMTAB)
163*25c28e83SPiotr Jasiukajtis break; /* assume there is only one */
164*25c28e83SPiotr Jasiukajtis }
165*25c28e83SPiotr Jasiukajtis if (i == h.e_shnum || sh[i].sh_size == 0 ||
166*25c28e83SPiotr Jasiukajtis sh[i].sh_entsize != sizeof(Elf_Sym) ||
167*25c28e83SPiotr Jasiukajtis sh[i].sh_link < 1 || sh[i].sh_link >= h.e_shnum ||
168*25c28e83SPiotr Jasiukajtis sh[sh[i].sh_link].sh_type != SHT_STRTAB ||
169*25c28e83SPiotr Jasiukajtis sh[sh[i].sh_link].sh_size == 0)
170*25c28e83SPiotr Jasiukajtis {
171*25c28e83SPiotr Jasiukajtis free(sh);
172*25c28e83SPiotr Jasiukajtis return -1;
173*25c28e83SPiotr Jasiukajtis }
174*25c28e83SPiotr Jasiukajtis
175*25c28e83SPiotr Jasiukajtis /* get space for the symbol and string tables */
176*25c28e83SPiotr Jasiukajtis size = (int) (sh[i].sh_size + sh[sh[i].sh_link].sh_size);
177*25c28e83SPiotr Jasiukajtis if (size > stbufsize)
178*25c28e83SPiotr Jasiukajtis {
179*25c28e83SPiotr Jasiukajtis if (stbuf)
180*25c28e83SPiotr Jasiukajtis free(stbuf);
181*25c28e83SPiotr Jasiukajtis stbufsize = nsyms = 0;
182*25c28e83SPiotr Jasiukajtis if ((stbuf = (char*)malloc(size)) == NULL)
183*25c28e83SPiotr Jasiukajtis {
184*25c28e83SPiotr Jasiukajtis free(sh);
185*25c28e83SPiotr Jasiukajtis return -1;
186*25c28e83SPiotr Jasiukajtis }
187*25c28e83SPiotr Jasiukajtis stbufsize = size;
188*25c28e83SPiotr Jasiukajtis }
189*25c28e83SPiotr Jasiukajtis
190*25c28e83SPiotr Jasiukajtis /* read the symbol and string tables */
191*25c28e83SPiotr Jasiukajtis if (lseek(fd, sh[i].sh_offset, SEEK_SET) != sh[i].sh_offset ||
192*25c28e83SPiotr Jasiukajtis read(fd, stbuf, sh[i].sh_size) != sh[i].sh_size ||
193*25c28e83SPiotr Jasiukajtis lseek(fd, sh[sh[i].sh_link].sh_offset, SEEK_SET) !=
194*25c28e83SPiotr Jasiukajtis sh[sh[i].sh_link].sh_offset ||
195*25c28e83SPiotr Jasiukajtis read(fd, stbuf + sh[i].sh_size, sh[sh[i].sh_link].sh_size) !=
196*25c28e83SPiotr Jasiukajtis sh[sh[i].sh_link].sh_size)
197*25c28e83SPiotr Jasiukajtis {
198*25c28e83SPiotr Jasiukajtis free(sh);
199*25c28e83SPiotr Jasiukajtis return (-1);
200*25c28e83SPiotr Jasiukajtis }
201*25c28e83SPiotr Jasiukajtis nsyms = (int) (sh[i].sh_size / sh[i].sh_entsize);
202*25c28e83SPiotr Jasiukajtis stoffset = (int) sh[i].sh_size;
203*25c28e83SPiotr Jasiukajtis
204*25c28e83SPiotr Jasiukajtis free(sh);
205*25c28e83SPiotr Jasiukajtis return (0);
206*25c28e83SPiotr Jasiukajtis }
207*25c28e83SPiotr Jasiukajtis
208*25c28e83SPiotr Jasiukajtis /* find the symbol corresponding to the given text address;
209*25c28e83SPiotr Jasiukajtis return NULL on error, symbol address otherwise */
210*25c28e83SPiotr Jasiukajtis char *
__fex_sym(char * a,char ** name)211*25c28e83SPiotr Jasiukajtis __fex_sym(char *a, char **name)
212*25c28e83SPiotr Jasiukajtis {
213*25c28e83SPiotr Jasiukajtis Elf_Sym *s;
214*25c28e83SPiotr Jasiukajtis unsigned long fo, va, value;
215*25c28e83SPiotr Jasiukajtis int fd, i, j, nm;
216*25c28e83SPiotr Jasiukajtis char fname[PRMAPSZ+20];
217*25c28e83SPiotr Jasiukajtis
218*25c28e83SPiotr Jasiukajtis /* see if the last prmap_t found contains the indicated address */
219*25c28e83SPiotr Jasiukajtis if (lpm)
220*25c28e83SPiotr Jasiukajtis {
221*25c28e83SPiotr Jasiukajtis if (a >= (char*)lpm->pr_vaddr && a < (char*)lpm->pr_vaddr +
222*25c28e83SPiotr Jasiukajtis lpm->pr_size)
223*25c28e83SPiotr Jasiukajtis goto cont;
224*25c28e83SPiotr Jasiukajtis }
225*25c28e83SPiotr Jasiukajtis
226*25c28e83SPiotr Jasiukajtis /* look for a prmap_t that contains the indicated address */
227*25c28e83SPiotr Jasiukajtis for (i = 0; i < npm; i++)
228*25c28e83SPiotr Jasiukajtis {
229*25c28e83SPiotr Jasiukajtis if (a >= (char*)pm[i].pr_vaddr && a < (char*)pm[i].pr_vaddr +
230*25c28e83SPiotr Jasiukajtis pm[i].pr_size)
231*25c28e83SPiotr Jasiukajtis break;
232*25c28e83SPiotr Jasiukajtis }
233*25c28e83SPiotr Jasiukajtis if (i == npm)
234*25c28e83SPiotr Jasiukajtis return NULL;
235*25c28e83SPiotr Jasiukajtis
236*25c28e83SPiotr Jasiukajtis /* get an open file descriptor for the mapped object */
237*25c28e83SPiotr Jasiukajtis if (pm[i].pr_mapname[0] == '\0')
238*25c28e83SPiotr Jasiukajtis return NULL;
239*25c28e83SPiotr Jasiukajtis strcpy(fname, "/proc/self/object/");
240*25c28e83SPiotr Jasiukajtis strncat(fname, pm[i].pr_mapname, PRMAPSZ);
241*25c28e83SPiotr Jasiukajtis fd = open(fname, O_RDONLY);
242*25c28e83SPiotr Jasiukajtis if (fd < 0)
243*25c28e83SPiotr Jasiukajtis return NULL;
244*25c28e83SPiotr Jasiukajtis
245*25c28e83SPiotr Jasiukajtis /* read the program headers and symbols */
246*25c28e83SPiotr Jasiukajtis lpm = NULL;
247*25c28e83SPiotr Jasiukajtis j = __fex_read_syms(fd);
248*25c28e83SPiotr Jasiukajtis close(fd);
249*25c28e83SPiotr Jasiukajtis if (j < 0)
250*25c28e83SPiotr Jasiukajtis return NULL;
251*25c28e83SPiotr Jasiukajtis lpm = &pm[i];
252*25c28e83SPiotr Jasiukajtis
253*25c28e83SPiotr Jasiukajtis cont:
254*25c28e83SPiotr Jasiukajtis /* compute the file offset corresponding to the mapped address */
255*25c28e83SPiotr Jasiukajtis fo = (a - (char*)lpm->pr_vaddr) + lpm->pr_offset;
256*25c28e83SPiotr Jasiukajtis
257*25c28e83SPiotr Jasiukajtis /* find the program header containing the file offset */
258*25c28e83SPiotr Jasiukajtis for (i = 0; i < nph; i++)
259*25c28e83SPiotr Jasiukajtis {
260*25c28e83SPiotr Jasiukajtis if (ph[i].p_type == PT_LOAD && fo >= ph[i].p_offset &&
261*25c28e83SPiotr Jasiukajtis fo < ph[i].p_offset + ph[i].p_filesz)
262*25c28e83SPiotr Jasiukajtis break;
263*25c28e83SPiotr Jasiukajtis }
264*25c28e83SPiotr Jasiukajtis if (i == nph)
265*25c28e83SPiotr Jasiukajtis return NULL;
266*25c28e83SPiotr Jasiukajtis
267*25c28e83SPiotr Jasiukajtis /* compute the virtual address corresponding to the file offset */
268*25c28e83SPiotr Jasiukajtis va = (fo - ph[i].p_offset) + ph[i].p_vaddr;
269*25c28e83SPiotr Jasiukajtis
270*25c28e83SPiotr Jasiukajtis /* find the symbol in this segment with the highest value
271*25c28e83SPiotr Jasiukajtis less than or equal to the virtual address */
272*25c28e83SPiotr Jasiukajtis s = (Elf_Sym*)stbuf;
273*25c28e83SPiotr Jasiukajtis value = nm = 0;
274*25c28e83SPiotr Jasiukajtis for (j = 0; j < nsyms; j++)
275*25c28e83SPiotr Jasiukajtis {
276*25c28e83SPiotr Jasiukajtis if (s[j].st_name == 0 || s[j].st_shndx == SHN_UNDEF ||
277*25c28e83SPiotr Jasiukajtis (ELF_ST_BIND(s[j].st_info) != STB_LOCAL &&
278*25c28e83SPiotr Jasiukajtis ELF_ST_BIND(s[j].st_info) != STB_GLOBAL &&
279*25c28e83SPiotr Jasiukajtis ELF_ST_BIND(s[j].st_info) != STB_WEAK) ||
280*25c28e83SPiotr Jasiukajtis (ELF_ST_TYPE(s[j].st_info) != STT_NOTYPE &&
281*25c28e83SPiotr Jasiukajtis ELF_ST_TYPE(s[j].st_info) != STT_OBJECT &&
282*25c28e83SPiotr Jasiukajtis ELF_ST_TYPE(s[j].st_info) != STT_FUNC))
283*25c28e83SPiotr Jasiukajtis {
284*25c28e83SPiotr Jasiukajtis continue;
285*25c28e83SPiotr Jasiukajtis }
286*25c28e83SPiotr Jasiukajtis
287*25c28e83SPiotr Jasiukajtis if (s[j].st_value < ph[i].p_vaddr || s[j].st_value >= ph[i].p_vaddr
288*25c28e83SPiotr Jasiukajtis + ph[i].p_memsz)
289*25c28e83SPiotr Jasiukajtis {
290*25c28e83SPiotr Jasiukajtis continue;
291*25c28e83SPiotr Jasiukajtis }
292*25c28e83SPiotr Jasiukajtis
293*25c28e83SPiotr Jasiukajtis if (s[j].st_value < value || s[j].st_value > va)
294*25c28e83SPiotr Jasiukajtis continue;
295*25c28e83SPiotr Jasiukajtis
296*25c28e83SPiotr Jasiukajtis value = s[j].st_value;
297*25c28e83SPiotr Jasiukajtis nm = s[j].st_name;
298*25c28e83SPiotr Jasiukajtis }
299*25c28e83SPiotr Jasiukajtis if (nm == 0)
300*25c28e83SPiotr Jasiukajtis return NULL;
301*25c28e83SPiotr Jasiukajtis
302*25c28e83SPiotr Jasiukajtis /* pass back the name and return the mapped address of the symbol */
303*25c28e83SPiotr Jasiukajtis *name = stbuf + stoffset + nm;
304*25c28e83SPiotr Jasiukajtis fo = (value - ph[i].p_vaddr) + ph[i].p_offset;
305*25c28e83SPiotr Jasiukajtis return (char*)lpm->pr_vaddr + (fo - lpm->pr_offset);
306*25c28e83SPiotr Jasiukajtis }
307