17c478bd9Sstevel@tonic-gate /*
27c478bd9Sstevel@tonic-gate * CDDL HEADER START
37c478bd9Sstevel@tonic-gate *
47c478bd9Sstevel@tonic-gate * The contents of this file are subject to the terms of the
57a5d89c4Sab * Common Development and Distribution License (the "License").
67a5d89c4Sab * You may not use this file except in compliance with the License.
77c478bd9Sstevel@tonic-gate *
87c478bd9Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
97c478bd9Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
107c478bd9Sstevel@tonic-gate * See the License for the specific language governing permissions
117c478bd9Sstevel@tonic-gate * and limitations under the License.
127c478bd9Sstevel@tonic-gate *
137c478bd9Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
147c478bd9Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
157c478bd9Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
167c478bd9Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
177c478bd9Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
187c478bd9Sstevel@tonic-gate *
197c478bd9Sstevel@tonic-gate * CDDL HEADER END
207c478bd9Sstevel@tonic-gate */
2120c1c355SRod Evans
227c478bd9Sstevel@tonic-gate /*
2320c1c355SRod Evans * Copyright (c) 1995, 2010, Oracle and/or its affiliates. All rights reserved.
247c478bd9Sstevel@tonic-gate */
257c478bd9Sstevel@tonic-gate
267c478bd9Sstevel@tonic-gate #include <stdio.h>
277c478bd9Sstevel@tonic-gate #include <string.h>
287c478bd9Sstevel@tonic-gate #include <libelf.h>
297c478bd9Sstevel@tonic-gate #include "rdb.h"
307c478bd9Sstevel@tonic-gate
317a5d89c4Sab /*
327a5d89c4Sab * Given a symbol index, look up the corresponding symbol from the
337a5d89c4Sab * given symbol table.
347a5d89c4Sab *
357a5d89c4Sab * This function allows the caller to treat the symbol table as a single
367a5d89c4Sab * logical entity even though there may be 2 actual ELF symbol tables
377a5d89c4Sab * involved. See the comments in Pcontrol.h for details.
387a5d89c4Sab */
397a5d89c4Sab static GElf_Sym *
symtab_getsym(sym_tbl_t * symtab,int ndx,GElf_Sym * dst)407a5d89c4Sab symtab_getsym(sym_tbl_t *symtab, int ndx, GElf_Sym *dst)
417a5d89c4Sab {
427a5d89c4Sab /* If index is in range of primary symtab, look it up there */
437a5d89c4Sab if (ndx >= symtab->st_symn_aux) {
447a5d89c4Sab return (gelf_getsym(symtab->st_syms_pri,
457a5d89c4Sab ndx - symtab->st_symn_aux, dst));
467a5d89c4Sab }
477a5d89c4Sab
487a5d89c4Sab /* Not in primary: Look it up in the auxiliary symtab */
497a5d89c4Sab return (gelf_getsym(symtab->st_syms_aux, ndx, dst));
507a5d89c4Sab }
517a5d89c4Sab
527c478bd9Sstevel@tonic-gate retc_t
str_map_sym(const char * symname,map_info_t * mp,GElf_Sym * symptr,char ** str)5320c1c355SRod Evans str_map_sym(const char *symname, map_info_t *mp, GElf_Sym *symptr, char **str)
547c478bd9Sstevel@tonic-gate {
557a5d89c4Sab sym_tbl_t *symp;
567a5d89c4Sab char *strs;
577c478bd9Sstevel@tonic-gate int i;
587c478bd9Sstevel@tonic-gate
597a5d89c4Sab if (mp->mi_symtab.st_syms_pri)
607c478bd9Sstevel@tonic-gate symp = &(mp->mi_symtab);
617a5d89c4Sab else if (mp->mi_dynsym.st_syms_pri)
627c478bd9Sstevel@tonic-gate symp = &(mp->mi_dynsym);
637c478bd9Sstevel@tonic-gate else
647c478bd9Sstevel@tonic-gate return (RET_FAILED);
657c478bd9Sstevel@tonic-gate
667c478bd9Sstevel@tonic-gate strs = symp->st_strs;
677c478bd9Sstevel@tonic-gate
687c478bd9Sstevel@tonic-gate for (i = 0; i < (int)symp->st_symn; i++) {
697c478bd9Sstevel@tonic-gate GElf_Sym sym;
707c478bd9Sstevel@tonic-gate
7120c1c355SRod Evans if (symtab_getsym(symp, i, &sym) == NULL) {
7220c1c355SRod Evans (void) printf("symtab_getsym(): %s\n", elf_errmsg(-1));
737c478bd9Sstevel@tonic-gate return (RET_FAILED);
747c478bd9Sstevel@tonic-gate }
757c478bd9Sstevel@tonic-gate
767c478bd9Sstevel@tonic-gate if (sym.st_name == 0)
777c478bd9Sstevel@tonic-gate continue;
787c478bd9Sstevel@tonic-gate if ((sym.st_shndx == SHN_UNDEF) ||
797c478bd9Sstevel@tonic-gate (strcmp(strs + sym.st_name, symname) != 0))
807c478bd9Sstevel@tonic-gate continue;
817c478bd9Sstevel@tonic-gate *symptr = sym;
827c478bd9Sstevel@tonic-gate if (str != NULL)
837c478bd9Sstevel@tonic-gate *str = (char *)strs + symptr->st_name;
847c478bd9Sstevel@tonic-gate if ((mp->mi_flags & FLG_MI_EXEC) == 0)
857c478bd9Sstevel@tonic-gate symptr->st_value += (GElf_Addr)(mp->mi_addr);
867c478bd9Sstevel@tonic-gate return (RET_OK);
877c478bd9Sstevel@tonic-gate }
887c478bd9Sstevel@tonic-gate
897c478bd9Sstevel@tonic-gate return (RET_FAILED);
907c478bd9Sstevel@tonic-gate }
917c478bd9Sstevel@tonic-gate
927c478bd9Sstevel@tonic-gate /*
937c478bd9Sstevel@tonic-gate * If two syms are of equal value this routine will
947c478bd9Sstevel@tonic-gate * favor one over the other based off of it's symbol
957c478bd9Sstevel@tonic-gate * type.
967c478bd9Sstevel@tonic-gate */
977c478bd9Sstevel@tonic-gate static GElf_Sym
sym_swap(GElf_Sym * s1,GElf_Sym * s2)987c478bd9Sstevel@tonic-gate sym_swap(GElf_Sym * s1, GElf_Sym * s2)
997c478bd9Sstevel@tonic-gate {
1007c478bd9Sstevel@tonic-gate int t1 = GELF_ST_TYPE(s1->st_info);
1017c478bd9Sstevel@tonic-gate int t2 = GELF_ST_TYPE(s2->st_info);
1027c478bd9Sstevel@tonic-gate
1037c478bd9Sstevel@tonic-gate if ((t1 == STT_FUNC) || (t2 == STT_FUNC)) {
1047c478bd9Sstevel@tonic-gate if (t1 == STT_FUNC)
1057c478bd9Sstevel@tonic-gate return (*s1);
1067c478bd9Sstevel@tonic-gate return (*s2);
1077c478bd9Sstevel@tonic-gate }
1087c478bd9Sstevel@tonic-gate
1097c478bd9Sstevel@tonic-gate if ((t1 == STT_OBJECT) || (t2 == STT_OBJECT)) {
1107c478bd9Sstevel@tonic-gate if (t1 == STT_OBJECT)
1117c478bd9Sstevel@tonic-gate return (*s1);
1127c478bd9Sstevel@tonic-gate return (*s2);
1137c478bd9Sstevel@tonic-gate }
1147c478bd9Sstevel@tonic-gate
1157c478bd9Sstevel@tonic-gate if ((t1 == STT_OBJECT) || (t2 == STT_OBJECT)) {
1167c478bd9Sstevel@tonic-gate if (t1 == STT_OBJECT)
1177c478bd9Sstevel@tonic-gate return (*s1);
1187c478bd9Sstevel@tonic-gate return (*s2);
1197c478bd9Sstevel@tonic-gate }
1207c478bd9Sstevel@tonic-gate return (*s1);
1217c478bd9Sstevel@tonic-gate }
1227c478bd9Sstevel@tonic-gate
12320c1c355SRod Evans static retc_t
addr_map_sym(map_info_t * mp,ulong_t addr,GElf_Sym * symptr,char ** str)12420c1c355SRod Evans addr_map_sym(map_info_t *mp, ulong_t addr, GElf_Sym *symptr, char **str)
1257c478bd9Sstevel@tonic-gate {
1267a5d89c4Sab sym_tbl_t *symp;
1277c478bd9Sstevel@tonic-gate GElf_Sym sym;
12820c1c355SRod Evans GElf_Sym *symr = NULL;
12920c1c355SRod Evans GElf_Sym *lsymr = NULL;
1307c478bd9Sstevel@tonic-gate GElf_Sym rsym;
1317c478bd9Sstevel@tonic-gate GElf_Sym lsym;
1327c478bd9Sstevel@tonic-gate ulong_t baseaddr = 0;
1337c478bd9Sstevel@tonic-gate int i;
1347c478bd9Sstevel@tonic-gate
1357c478bd9Sstevel@tonic-gate if ((mp->mi_flags & FLG_MI_EXEC) == 0)
1367c478bd9Sstevel@tonic-gate baseaddr = (ulong_t)mp->mi_addr;
1377c478bd9Sstevel@tonic-gate
1387a5d89c4Sab if (mp->mi_symtab.st_syms_pri)
1397c478bd9Sstevel@tonic-gate symp = &(mp->mi_symtab);
1407a5d89c4Sab else if (mp->mi_dynsym.st_syms_pri)
1417c478bd9Sstevel@tonic-gate symp = &(mp->mi_dynsym);
1427c478bd9Sstevel@tonic-gate else
1437c478bd9Sstevel@tonic-gate return (RET_FAILED);
1447c478bd9Sstevel@tonic-gate
1457c478bd9Sstevel@tonic-gate /*
1467c478bd9Sstevel@tonic-gate * normalize address
1477c478bd9Sstevel@tonic-gate */
1487c478bd9Sstevel@tonic-gate addr -= baseaddr;
1497c478bd9Sstevel@tonic-gate for (i = 0; i < (int)symp->st_symn; i++) {
1507c478bd9Sstevel@tonic-gate ulong_t svalue;
1517c478bd9Sstevel@tonic-gate
15220c1c355SRod Evans if (symtab_getsym(symp, i, &sym) == NULL) {
15320c1c355SRod Evans (void) printf("symtab_getsym(): %s\n", elf_errmsg(-1));
1547c478bd9Sstevel@tonic-gate return (RET_FAILED);
1557c478bd9Sstevel@tonic-gate }
1567c478bd9Sstevel@tonic-gate if ((sym.st_name == 0) || (sym.st_shndx == SHN_UNDEF))
1577c478bd9Sstevel@tonic-gate continue;
1587c478bd9Sstevel@tonic-gate
1597c478bd9Sstevel@tonic-gate svalue = (ulong_t)sym.st_value;
1607c478bd9Sstevel@tonic-gate
1617c478bd9Sstevel@tonic-gate if (svalue <= addr) {
1627c478bd9Sstevel@tonic-gate /*
1637c478bd9Sstevel@tonic-gate * track both the best local and best
1647c478bd9Sstevel@tonic-gate * global fit for this address. Later
1657c478bd9Sstevel@tonic-gate * we will favor the global over the local
1667c478bd9Sstevel@tonic-gate */
1677c478bd9Sstevel@tonic-gate if ((GELF_ST_BIND(sym.st_info) == STB_LOCAL) &&
16820c1c355SRod Evans ((lsymr == NULL) ||
1697c478bd9Sstevel@tonic-gate (svalue >= (ulong_t)lsymr->st_value))) {
1707c478bd9Sstevel@tonic-gate if (lsymr && (lsymr->st_value == svalue))
1717c478bd9Sstevel@tonic-gate *lsymr = sym_swap(lsymr, &sym);
1727c478bd9Sstevel@tonic-gate else {
1737c478bd9Sstevel@tonic-gate lsymr = &lsym;
1747c478bd9Sstevel@tonic-gate *lsymr = sym;
1757c478bd9Sstevel@tonic-gate }
17620c1c355SRod Evans } else if ((symr == NULL) ||
1777c478bd9Sstevel@tonic-gate (svalue >= (ulong_t)symr->st_value)) {
1787c478bd9Sstevel@tonic-gate if (symr && (symr->st_value == svalue))
1797c478bd9Sstevel@tonic-gate *symr = sym_swap(symr, &sym);
1807c478bd9Sstevel@tonic-gate else {
1817c478bd9Sstevel@tonic-gate symr = &rsym;
1827c478bd9Sstevel@tonic-gate *symr = sym;
1837c478bd9Sstevel@tonic-gate }
1847c478bd9Sstevel@tonic-gate }
1857c478bd9Sstevel@tonic-gate }
1867c478bd9Sstevel@tonic-gate }
18720c1c355SRod Evans if ((symr == NULL) && (lsymr == NULL))
1887c478bd9Sstevel@tonic-gate return (RET_FAILED);
1897c478bd9Sstevel@tonic-gate
1907c478bd9Sstevel@tonic-gate if (lsymr) {
1917c478bd9Sstevel@tonic-gate /*
1927c478bd9Sstevel@tonic-gate * If a possible local symbol was found should
1937c478bd9Sstevel@tonic-gate * we use it.
1947c478bd9Sstevel@tonic-gate */
1957c478bd9Sstevel@tonic-gate if (symr && (lsymr->st_value > symr->st_value))
1967c478bd9Sstevel@tonic-gate symr = lsymr;
19720c1c355SRod Evans else if (symr == NULL)
1987c478bd9Sstevel@tonic-gate symr = lsymr;
1997c478bd9Sstevel@tonic-gate }
2007c478bd9Sstevel@tonic-gate
2017c478bd9Sstevel@tonic-gate *symptr = *symr;
2027c478bd9Sstevel@tonic-gate *str = (char *)(symp->st_strs + symptr->st_name);
2037c478bd9Sstevel@tonic-gate symptr->st_value += baseaddr;
2047c478bd9Sstevel@tonic-gate return (RET_OK);
2057c478bd9Sstevel@tonic-gate }
2067c478bd9Sstevel@tonic-gate
2077c478bd9Sstevel@tonic-gate retc_t
addr_to_sym(struct ps_prochandle * ph,ulong_t addr,GElf_Sym * symp,char ** str)2087a5d89c4Sab addr_to_sym(struct ps_prochandle *ph, ulong_t addr,
2097a5d89c4Sab GElf_Sym *symp, char **str)
2107c478bd9Sstevel@tonic-gate {
2117a5d89c4Sab map_info_t *mip;
2127c478bd9Sstevel@tonic-gate
21320c1c355SRod Evans if ((mip = addr_to_map(ph, addr)) == NULL)
2147c478bd9Sstevel@tonic-gate return (RET_FAILED);
2157c478bd9Sstevel@tonic-gate
2167c478bd9Sstevel@tonic-gate return (addr_map_sym(mip, addr, symp, str));
2177c478bd9Sstevel@tonic-gate }
2187c478bd9Sstevel@tonic-gate
2197c478bd9Sstevel@tonic-gate retc_t
str_to_sym(struct ps_prochandle * ph,const char * name,GElf_Sym * symp)2207a5d89c4Sab str_to_sym(struct ps_prochandle *ph, const char *name, GElf_Sym *symp)
2217c478bd9Sstevel@tonic-gate {
2227a5d89c4Sab map_info_t *mip;
2237c478bd9Sstevel@tonic-gate
22420c1c355SRod Evans if (ph->pp_lmaplist.ml_head == NULL) {
2257c478bd9Sstevel@tonic-gate if (str_map_sym(name, &(ph->pp_ldsomap), symp, NULL) == RET_OK)
2267c478bd9Sstevel@tonic-gate return (RET_OK);
2277c478bd9Sstevel@tonic-gate
2287c478bd9Sstevel@tonic-gate return (str_map_sym(name, &(ph->pp_execmap), symp, NULL));
2297c478bd9Sstevel@tonic-gate }
2307c478bd9Sstevel@tonic-gate
2317c478bd9Sstevel@tonic-gate for (mip = ph->pp_lmaplist.ml_head; mip; mip = mip->mi_next)
2327c478bd9Sstevel@tonic-gate if (str_map_sym(name, mip, symp, NULL) == RET_OK)
2337c478bd9Sstevel@tonic-gate return (RET_OK);
2347c478bd9Sstevel@tonic-gate
2357c478bd9Sstevel@tonic-gate return (RET_FAILED);
2367c478bd9Sstevel@tonic-gate }
237