static void
resurrect_objects(ctf_header_t *h, tdata_t *td, tdesc_t **tdarr, int tdsize,
caddr_t ctfdata, symit_data_t *si)
{
caddr_t buf = ctfdata + h->cth_objtoff;
size_t bufsz = h->cth_funcoff - h->cth_objtoff;
caddr_t dptr;
symit_reset(si);
for (dptr = buf; dptr < buf + bufsz; dptr += 2) {
void *v = (void *) dptr;
ushort_t id = *((ushort_t *)v);
iidesc_t *ii;
GElf_Sym *sym;
if (!(sym = symit_next(si, STT_OBJECT)) && id != 0) {
parseterminate(
"Unexpected end of object symbols at %x of %x",
dptr - buf, bufsz);
}
if (id == 0) {
debug(3, "Skipping null object\n");
continue;
} else if (id >= tdsize) {
parseterminate("Reference to invalid type %d", id);
}
ii = iidesc_new(symit_name(si));
ii->ii_dtype = tdarr[id];
if (GELF_ST_BIND(sym->st_info) == STB_LOCAL) {
ii->ii_type = II_SVAR;
ii->ii_owner = xstrdup(symit_curfile(si));
} else
ii->ii_type = II_GVAR;
hash_add(td->td_iihash, ii);
debug(3, "Resurrected %s object %s (%d) from %s\n",
(ii->ii_type == II_GVAR ? "global" : "static"),
ii->ii_name, id, (ii->ii_owner ? ii->ii_owner : "(none)"));
}
}
/*
* Return the source types that the object was generated from.
*/
source_types_t
built_source_types(Elf *elf, char const *file)
{
source_types_t types = SOURCE_NONE;
symit_data_t *si;
if ((si = symit_new(elf, file)) == NULL)
return (SOURCE_NONE);
while (symit_next(si, STT_FILE) != NULL) {
char *name = symit_name(si);
size_t len = strlen(name);
if (len < 2 || name[len - 2] != '.') {
types |= SOURCE_UNKNOWN;
continue;
}
switch (name[len - 1]) {
case 'c':
types |= SOURCE_C;
break;
case 'h':
/* ignore */
break;
case 's':
case 'S':
types |= SOURCE_S;
break;
default:
types |= SOURCE_UNKNOWN;
}
}
symit_free(si);
return (types);
}
static void
resurrect_functions(ctf_header_t *h, tdata_t *td, tdesc_t **tdarr, int tdsize,
caddr_t ctfdata, symit_data_t *si)
{
caddr_t buf = ctfdata + h->cth_funcoff;
size_t bufsz = h->cth_typeoff - h->cth_funcoff;
caddr_t dptr = buf;
iidesc_t *ii;
ushort_t info;
ushort_t retid;
GElf_Sym *sym;
int i;
symit_reset(si);
while (dptr < buf + bufsz) {
void *v = (void *) dptr;
info = *((ushort_t *)v);
dptr += 2;
if (!(sym = symit_next(si, STT_FUNC)) && info != 0)
parseterminate("Unexpected end of function symbols");
if (info == 0) {
debug(3, "Skipping null function (%s)\n",
symit_name(si));
continue;
}
v = (void *) dptr;
retid = *((ushort_t *)v);
dptr += 2;
if (retid >= tdsize)
parseterminate("Reference to invalid type %d", retid);
ii = iidesc_new(symit_name(si));
ii->ii_dtype = tdarr[retid];
if (GELF_ST_BIND(sym->st_info) == STB_LOCAL) {
ii->ii_type = II_SFUN;
ii->ii_owner = xstrdup(symit_curfile(si));
} else
ii->ii_type = II_GFUN;
ii->ii_nargs = CTF_INFO_VLEN(info);
if (ii->ii_nargs)
ii->ii_args =
xmalloc(sizeof (tdesc_t *) * ii->ii_nargs);
for (i = 0; i < ii->ii_nargs; i++, dptr += 2) {
v = (void *) dptr;
ushort_t id = *((ushort_t *)v);
if (id >= tdsize)
parseterminate("Reference to invalid type %d",
id);
ii->ii_args[i] = tdarr[id];
}
if (ii->ii_nargs && ii->ii_args[ii->ii_nargs - 1] == NULL) {
ii->ii_nargs--;
ii->ii_vargs = 1;
}
hash_add(td->td_iihash, ii);
debug(3, "Resurrected %s function %s (%d, %d args)\n",
(ii->ii_type == II_GFUN ? "global" : "static"),
ii->ii_name, retid, ii->ii_nargs);
}
}
