int dwarf_get_loclist_entry(Dwarf_Debug dbg, Dwarf_Unsigned offset, Dwarf_Addr *hipc, Dwarf_Addr *lopc, Dwarf_Ptr *data, Dwarf_Unsigned *entry_len, Dwarf_Unsigned *next_entry, Dwarf_Error *error) { Dwarf_Loclist ll, next_ll; Dwarf_Locdesc *ld; Dwarf_Section *ds; int i, ret; if (dbg == NULL || hipc == NULL || lopc == NULL || data == NULL || entry_len == NULL || next_entry == NULL) { DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT); return (DW_DLV_ERROR); } ret = _dwarf_loclist_find(dbg, STAILQ_FIRST(&dbg->dbg_cu), offset, &ll, error); if (ret == DW_DLE_NO_ENTRY) { DWARF_SET_ERROR(dbg, error, DW_DLV_NO_ENTRY); return (DW_DLV_NO_ENTRY); } else if (ret != DW_DLE_NONE) return (DW_DLV_ERROR); *hipc = *lopc = 0; for (i = 0; i < ll->ll_ldlen; i++) { ld = ll->ll_ldlist[i]; if (i == 0) { *hipc = ld->ld_hipc; *lopc = ld->ld_lopc; } else { if (ld->ld_lopc < *lopc) *lopc = ld->ld_lopc; if (ld->ld_hipc > *hipc) *hipc = ld->ld_hipc; } } ds = _dwarf_find_section(dbg, ".debug_loc"); assert(ds != NULL); *data = (uint8_t *) ds->ds_data + ll->ll_offset; *entry_len = ll->ll_length; next_ll = TAILQ_NEXT(ll, ll_next); if (next_ll != NULL) *next_entry = next_ll->ll_offset; else *next_entry = ds->ds_size; return (DW_DLV_OK); }
int dwarf_get_loclist_entry(Dwarf_Debug dbg, Dwarf_Unsigned offset, Dwarf_Addr *hipc, Dwarf_Addr *lopc, Dwarf_Ptr *data, Dwarf_Unsigned *entry_len, Dwarf_Unsigned *next_entry, Dwarf_Error *error) { Dwarf_Locdesc *ld, **llbuf; Dwarf_Section *ds; Dwarf_Signed listlen; int i, ret; /* * Note that this API sometimes will not work correctly because * it assumes that all units have the same pointer size and offset * size. */ if (dbg == NULL || hipc == NULL || lopc == NULL || data == NULL || entry_len == NULL || next_entry == NULL) { DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT); return (DW_DLV_ERROR); } ret = _dwarf_loclist_find(dbg, STAILQ_FIRST(&dbg->dbg_cu), offset, &llbuf, &listlen, entry_len, error); if (ret == DW_DLE_NO_ENTRY) { DWARF_SET_ERROR(dbg, error, DW_DLV_NO_ENTRY); return (DW_DLV_NO_ENTRY); } else if (ret != DW_DLE_NONE) return (DW_DLV_ERROR); *hipc = *lopc = 0; for (i = 0; i < listlen; i++) { ld = llbuf[i]; if (i == 0) { *hipc = ld->ld_hipc; *lopc = ld->ld_lopc; } else { if (ld->ld_lopc < *lopc) *lopc = ld->ld_lopc; if (ld->ld_hipc > *hipc) *hipc = ld->ld_hipc; } } ds = _dwarf_find_section(dbg, ".debug_loc"); assert(ds != NULL); *data = (uint8_t *) ds->ds_data + offset; *next_entry = offset + *entry_len; return (DW_DLV_OK); }
int dwarf_loclist(Dwarf_Attribute at, Dwarf_Locdesc **llbuf, Dwarf_Signed *listlen, Dwarf_Error *error) { Dwarf_Loclist ll; Dwarf_Debug dbg; int ret; dbg = at != NULL ? at->at_die->die_dbg : NULL; if (at == NULL || llbuf == NULL || listlen == NULL) { DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT); return (DW_DLV_ERROR); } switch (at->at_attrib) { case DW_AT_location: case DW_AT_string_length: case DW_AT_return_addr: case DW_AT_data_member_location: case DW_AT_frame_base: case DW_AT_segment: case DW_AT_static_link: case DW_AT_use_location: case DW_AT_vtable_elem_location: switch (at->at_form) { case DW_FORM_data4: case DW_FORM_data8: ret = _dwarf_loclist_find(at->at_die->die_dbg, at->at_die->die_cu, at->u[0].u64, &ll, error); if (ret == DW_DLE_NO_ENTRY) { DWARF_SET_ERROR(dbg, error, DW_DLV_NO_ENTRY); return (DW_DLV_NO_ENTRY); } if (ret != DW_DLE_NONE) return (DW_DLV_ERROR); *llbuf = ll->ll_ldlist[0]; *listlen = 1; return (DW_DLV_OK); case DW_FORM_block: case DW_FORM_block1: case DW_FORM_block2: case DW_FORM_block4: if (at->at_ld == NULL) { ret = _dwarf_loc_add(at->at_die, at, error); if (ret != DW_DLE_NONE) return (DW_DLV_ERROR); } *llbuf = at->at_ld; *listlen = 1; return (DW_DLV_OK); default: DWARF_SET_ERROR(dbg, error, DW_DLE_ATTR_FORM_BAD); return (DW_DLV_ERROR); } default: /* Wrong attr supplied. */ DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT); return (DW_DLV_ERROR); } }
int dwarf_loclist_n(Dwarf_Attribute at, Dwarf_Locdesc ***llbuf, Dwarf_Signed *listlen, Dwarf_Error *error) { Dwarf_Debug dbg; int ret; dbg = at != NULL ? at->at_die->die_dbg : NULL; if (at == NULL || llbuf == NULL || listlen == NULL) { DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT); return (DW_DLV_ERROR); } switch (at->at_attrib) { case DW_AT_location: case DW_AT_string_length: case DW_AT_return_addr: case DW_AT_data_member_location: case DW_AT_frame_base: case DW_AT_segment: case DW_AT_static_link: case DW_AT_use_location: case DW_AT_vtable_elem_location: switch (at->at_form) { case DW_FORM_data4: case DW_FORM_data8: /* * DW_FORM_data[48] can not be used as section offset * since DWARF4. For DWARF[23], the application needs * to determine if DW_FORM_data[48] is representing * a constant or a section offset. */ if (at->at_die->die_cu->cu_version >= 4) { DWARF_SET_ERROR(dbg, error, DW_DLE_NO_ENTRY); return (DW_DLV_NO_ENTRY); } /* FALLTHROUGH */ case DW_FORM_sec_offset: ret = _dwarf_loclist_find(dbg, at->at_die->die_cu, at->u[0].u64, llbuf, listlen, NULL, error); if (ret == DW_DLE_NO_ENTRY) { DWARF_SET_ERROR(dbg, error, ret); return (DW_DLV_NO_ENTRY); } if (ret != DW_DLE_NONE) return (DW_DLV_ERROR); return (DW_DLV_OK); case DW_FORM_block: case DW_FORM_block1: case DW_FORM_block2: case DW_FORM_block4: case DW_FORM_exprloc: if (at->at_ld == NULL) { ret = _dwarf_loc_add(at->at_die, at, error); if (ret != DW_DLE_NONE) return (DW_DLV_ERROR); } *llbuf = calloc(1, sizeof(Dwarf_Locdesc *)); if (*llbuf == NULL) { DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY); return (DW_DLV_ERROR); } (*llbuf)[0] = calloc(1, sizeof(Dwarf_Locdesc)); if ((*llbuf)[0] == NULL) { free(*llbuf); DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY); return (DW_DLV_ERROR); } if (copy_locdesc(dbg, (*llbuf)[0], at->at_ld, error) != DW_DLE_NONE) { free((*llbuf)[0]); free(*llbuf); return (DW_DLV_ERROR); } *listlen = 1; return (DW_DLV_OK); default: /* Malformed Attr? */ DWARF_SET_ERROR(dbg, error, DW_DLE_ATTR_FORM_BAD); return (DW_DLV_NO_ENTRY); } default: /* Wrong attr supplied. */ DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT); return (DW_DLV_ERROR); } }