mirror of
https://github.com/freebsd/freebsd-src
synced 2024-07-22 10:48:02 +00:00
cf781b2e16
This brings a number of fixes to elfcopy/strip and DWARF4 improvements. Sponsored by: The FreeBSD Foundation
604 lines
16 KiB
C
604 lines
16 KiB
C
/*-
|
|
* Copyright (c) 2009,2011 Kai Wang
|
|
* All rights reserved.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
|
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
|
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
* SUCH DAMAGE.
|
|
*/
|
|
|
|
#include "_libdwarf.h"
|
|
|
|
ELFTC_VCSID("$Id: dwarf_frame.c 3106 2014-12-19 16:00:58Z kaiwang27 $");
|
|
|
|
int
|
|
dwarf_get_fde_list(Dwarf_Debug dbg, Dwarf_Cie **cie_list,
|
|
Dwarf_Signed *cie_count, Dwarf_Fde **fde_list, Dwarf_Signed *fde_count,
|
|
Dwarf_Error *error)
|
|
{
|
|
|
|
if (dbg == NULL || cie_list == NULL || cie_count == NULL ||
|
|
fde_list == NULL || fde_count == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
if (dbg->dbg_internal_reg_table == NULL) {
|
|
if (_dwarf_frame_interal_table_init(dbg, error) != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
if (dbg->dbg_frame == NULL) {
|
|
if (_dwarf_frame_section_load(dbg, error) != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
if (dbg->dbg_frame == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_NO_ENTRY);
|
|
return (DW_DLV_NO_ENTRY);
|
|
}
|
|
}
|
|
|
|
if (dbg->dbg_frame->fs_ciearray == NULL ||
|
|
dbg->dbg_frame->fs_fdearray == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_NO_ENTRY);
|
|
return (DW_DLV_NO_ENTRY);
|
|
}
|
|
|
|
*cie_list = dbg->dbg_frame->fs_ciearray;
|
|
*cie_count = dbg->dbg_frame->fs_cielen;
|
|
*fde_list = dbg->dbg_frame->fs_fdearray;
|
|
*fde_count = dbg->dbg_frame->fs_fdelen;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_fde_list_eh(Dwarf_Debug dbg, Dwarf_Cie **cie_list,
|
|
Dwarf_Signed *cie_count, Dwarf_Fde **fde_list, Dwarf_Signed *fde_count,
|
|
Dwarf_Error *error)
|
|
{
|
|
|
|
if (dbg == NULL || cie_list == NULL || cie_count == NULL ||
|
|
fde_list == NULL || fde_count == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
if (dbg->dbg_internal_reg_table == NULL) {
|
|
if (_dwarf_frame_interal_table_init(dbg, error) != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
if (dbg->dbg_eh_frame == NULL) {
|
|
if (_dwarf_frame_section_load_eh(dbg, error) != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
if (dbg->dbg_eh_frame == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_NO_ENTRY);
|
|
return (DW_DLV_NO_ENTRY);
|
|
}
|
|
}
|
|
|
|
if (dbg->dbg_eh_frame->fs_ciearray == NULL ||
|
|
dbg->dbg_eh_frame->fs_fdearray == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_NO_ENTRY);
|
|
return (DW_DLV_NO_ENTRY);
|
|
}
|
|
|
|
*cie_list = dbg->dbg_eh_frame->fs_ciearray;
|
|
*cie_count = dbg->dbg_eh_frame->fs_cielen;
|
|
*fde_list = dbg->dbg_eh_frame->fs_fdearray;
|
|
*fde_count = dbg->dbg_eh_frame->fs_fdelen;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_fde_n(Dwarf_Fde *fdelist, Dwarf_Unsigned fde_index,
|
|
Dwarf_Fde *ret_fde, Dwarf_Error *error)
|
|
{
|
|
Dwarf_FrameSec fs;
|
|
Dwarf_Debug dbg;
|
|
|
|
dbg = fdelist != NULL ? (*fdelist)->fde_dbg : NULL;
|
|
|
|
if (fdelist == NULL || ret_fde == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
fs = fdelist[0]->fde_fs;
|
|
assert(fs != NULL);
|
|
|
|
if (fde_index >= fs->fs_fdelen) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_NO_ENTRY);
|
|
return (DW_DLV_NO_ENTRY);
|
|
}
|
|
|
|
*ret_fde = fdelist[fde_index];
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_fde_at_pc(Dwarf_Fde *fdelist, Dwarf_Addr pc, Dwarf_Fde *ret_fde,
|
|
Dwarf_Addr *lopc, Dwarf_Addr *hipc, Dwarf_Error *error)
|
|
{
|
|
Dwarf_FrameSec fs;
|
|
Dwarf_Debug dbg;
|
|
Dwarf_Fde fde;
|
|
int i;
|
|
|
|
dbg = fdelist != NULL ? (*fdelist)->fde_dbg : NULL;
|
|
|
|
if (fdelist == NULL || ret_fde == NULL || lopc == NULL ||
|
|
hipc == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
fs = fdelist[0]->fde_fs;
|
|
assert(fs != NULL);
|
|
|
|
for (i = 0; (Dwarf_Unsigned)i < fs->fs_fdelen; i++) {
|
|
fde = fdelist[i];
|
|
if (pc >= fde->fde_initloc && pc < fde->fde_initloc +
|
|
fde->fde_adrange) {
|
|
*ret_fde = fde;
|
|
*lopc = fde->fde_initloc;
|
|
*hipc = fde->fde_initloc + fde->fde_adrange - 1;
|
|
return (DW_DLV_OK);
|
|
}
|
|
}
|
|
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_NO_ENTRY);
|
|
return (DW_DLV_NO_ENTRY);
|
|
}
|
|
|
|
int
|
|
dwarf_get_cie_of_fde(Dwarf_Fde fde, Dwarf_Cie *ret_cie, Dwarf_Error *error)
|
|
{
|
|
Dwarf_Debug dbg;
|
|
|
|
dbg = fde != NULL ? fde->fde_dbg : NULL;
|
|
|
|
if (fde == NULL || ret_cie == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
*ret_cie = fde->fde_cie;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_fde_range(Dwarf_Fde fde, Dwarf_Addr *low_pc, Dwarf_Unsigned *func_len,
|
|
Dwarf_Ptr *fde_bytes, Dwarf_Unsigned *fde_byte_len, Dwarf_Off *cie_offset,
|
|
Dwarf_Signed *cie_index, Dwarf_Off *fde_offset, Dwarf_Error *error)
|
|
{
|
|
Dwarf_Debug dbg;
|
|
|
|
dbg = fde != NULL ? fde->fde_dbg : NULL;
|
|
|
|
if (fde == NULL || low_pc == NULL || func_len == NULL ||
|
|
fde_bytes == NULL || fde_byte_len == NULL || cie_offset == NULL ||
|
|
cie_index == NULL || fde_offset == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
*low_pc = fde->fde_initloc;
|
|
*func_len = fde->fde_adrange;
|
|
*fde_bytes = fde->fde_addr;
|
|
*fde_byte_len = fde->fde_length;
|
|
*cie_offset = fde->fde_cieoff;
|
|
*cie_index = fde->fde_cie->cie_index;
|
|
*fde_offset = fde->fde_offset;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_cie_info(Dwarf_Cie cie, Dwarf_Unsigned *bytes_in_cie,
|
|
Dwarf_Small *version, char **augmenter, Dwarf_Unsigned *caf,
|
|
Dwarf_Unsigned *daf, Dwarf_Half *ra, Dwarf_Ptr *initinst,
|
|
Dwarf_Unsigned *inst_len, Dwarf_Error *error)
|
|
{
|
|
|
|
if (cie == NULL || bytes_in_cie == NULL || version == NULL ||
|
|
augmenter == NULL || caf == NULL || daf == NULL || ra == NULL ||
|
|
initinst == NULL || inst_len == NULL) {
|
|
DWARF_SET_ERROR(NULL, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
*bytes_in_cie = cie->cie_length;
|
|
*version = cie->cie_version;
|
|
*augmenter = (char *) cie->cie_augment;
|
|
*caf = cie->cie_caf;
|
|
*daf = cie->cie_daf;
|
|
*ra = cie->cie_ra;
|
|
*initinst = cie->cie_initinst;
|
|
*inst_len = cie->cie_instlen;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_cie_index(Dwarf_Cie cie, Dwarf_Signed *cie_index, Dwarf_Error *error)
|
|
{
|
|
|
|
if (cie == NULL || cie_index == NULL) {
|
|
DWARF_SET_ERROR(NULL, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
*cie_index = cie->cie_index;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_fde_instr_bytes(Dwarf_Fde fde, Dwarf_Ptr *ret_inst,
|
|
Dwarf_Unsigned *ret_len, Dwarf_Error *error)
|
|
{
|
|
Dwarf_Debug dbg;
|
|
|
|
dbg = fde != NULL ? fde->fde_dbg : NULL;
|
|
|
|
if (fde == NULL || ret_inst == NULL || ret_len == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
*ret_inst = fde->fde_inst;
|
|
*ret_len = fde->fde_instlen;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
#define RL rt->rt3_rules[table_column]
|
|
#define CFA rt->rt3_cfa_rule
|
|
|
|
int
|
|
dwarf_get_fde_info_for_reg(Dwarf_Fde fde, Dwarf_Half table_column,
|
|
Dwarf_Addr pc_requested, Dwarf_Signed *offset_relevant,
|
|
Dwarf_Signed *register_num, Dwarf_Signed *offset, Dwarf_Addr *row_pc,
|
|
Dwarf_Error *error)
|
|
{
|
|
Dwarf_Regtable3 *rt;
|
|
Dwarf_Debug dbg;
|
|
Dwarf_Addr pc;
|
|
int ret;
|
|
|
|
dbg = fde != NULL ? fde->fde_dbg : NULL;
|
|
|
|
if (fde == NULL || offset_relevant == NULL || register_num == NULL ||
|
|
offset == NULL || row_pc == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
if (pc_requested < fde->fde_initloc ||
|
|
pc_requested >= fde->fde_initloc + fde->fde_adrange) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_PC_NOT_IN_FDE_RANGE);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
ret = _dwarf_frame_get_internal_table(fde, pc_requested, &rt, &pc,
|
|
error);
|
|
if (ret != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
|
|
if (table_column == dbg->dbg_frame_cfa_value) {
|
|
/* Application ask for CFA. */
|
|
*offset_relevant = CFA.dw_offset_relevant;
|
|
*register_num = CFA.dw_regnum;
|
|
*offset = CFA.dw_offset_or_block_len;
|
|
} else {
|
|
/* Application ask for normal registers. */
|
|
if (table_column >= dbg->dbg_frame_rule_table_size ||
|
|
table_column >= DW_REG_TABLE_SIZE) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_FRAME_TABLE_COL_BAD);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
*offset_relevant = RL.dw_offset_relevant;
|
|
*register_num = RL.dw_regnum;
|
|
*offset = RL.dw_offset_or_block_len;
|
|
}
|
|
|
|
*row_pc = pc;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_fde_info_for_all_regs(Dwarf_Fde fde, Dwarf_Addr pc_requested,
|
|
Dwarf_Regtable *reg_table, Dwarf_Addr *row_pc, Dwarf_Error *error)
|
|
{
|
|
Dwarf_Debug dbg;
|
|
Dwarf_Regtable3 *rt;
|
|
Dwarf_Addr pc;
|
|
Dwarf_Half cfa;
|
|
int i, ret;
|
|
|
|
dbg = fde != NULL ? fde->fde_dbg : NULL;
|
|
|
|
if (fde == NULL || reg_table == NULL || row_pc == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
assert(dbg != NULL);
|
|
|
|
if (pc_requested < fde->fde_initloc ||
|
|
pc_requested >= fde->fde_initloc + fde->fde_adrange) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_PC_NOT_IN_FDE_RANGE);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
ret = _dwarf_frame_get_internal_table(fde, pc_requested, &rt, &pc,
|
|
error);
|
|
if (ret != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
|
|
/*
|
|
* Copy the CFA rule to the column intended for holding the CFA,
|
|
* if it's within the range of regtable.
|
|
*/
|
|
cfa = dbg->dbg_frame_cfa_value;
|
|
if (cfa < DW_REG_TABLE_SIZE) {
|
|
reg_table->rules[cfa].dw_offset_relevant =
|
|
CFA.dw_offset_relevant;
|
|
reg_table->rules[cfa].dw_regnum = CFA.dw_regnum;
|
|
reg_table->rules[cfa].dw_offset = CFA.dw_offset_or_block_len;
|
|
}
|
|
|
|
/*
|
|
* Copy other columns.
|
|
*/
|
|
for (i = 0; i < DW_REG_TABLE_SIZE && i < dbg->dbg_frame_rule_table_size;
|
|
i++) {
|
|
|
|
/* Do not overwrite CFA column */
|
|
if (i == cfa)
|
|
continue;
|
|
|
|
reg_table->rules[i].dw_offset_relevant =
|
|
rt->rt3_rules[i].dw_offset_relevant;
|
|
reg_table->rules[i].dw_regnum = rt->rt3_rules[i].dw_regnum;
|
|
reg_table->rules[i].dw_offset =
|
|
rt->rt3_rules[i].dw_offset_or_block_len;
|
|
}
|
|
|
|
*row_pc = pc;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_fde_info_for_reg3(Dwarf_Fde fde, Dwarf_Half table_column,
|
|
Dwarf_Addr pc_requested, Dwarf_Small *value_type,
|
|
Dwarf_Signed *offset_relevant, Dwarf_Signed *register_num,
|
|
Dwarf_Signed *offset_or_block_len, Dwarf_Ptr *block_ptr,
|
|
Dwarf_Addr *row_pc, Dwarf_Error *error)
|
|
{
|
|
Dwarf_Regtable3 *rt;
|
|
Dwarf_Debug dbg;
|
|
Dwarf_Addr pc;
|
|
int ret;
|
|
|
|
dbg = fde != NULL ? fde->fde_dbg : NULL;
|
|
|
|
if (fde == NULL || value_type == NULL || offset_relevant == NULL ||
|
|
register_num == NULL || offset_or_block_len == NULL ||
|
|
block_ptr == NULL || row_pc == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
if (pc_requested < fde->fde_initloc ||
|
|
pc_requested >= fde->fde_initloc + fde->fde_adrange) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_PC_NOT_IN_FDE_RANGE);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
ret = _dwarf_frame_get_internal_table(fde, pc_requested, &rt, &pc,
|
|
error);
|
|
if (ret != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
|
|
if (table_column >= dbg->dbg_frame_rule_table_size) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_FRAME_TABLE_COL_BAD);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
*value_type = RL.dw_value_type;
|
|
*offset_relevant = RL.dw_offset_relevant;
|
|
*register_num = RL.dw_regnum;
|
|
*offset_or_block_len = RL.dw_offset_or_block_len;
|
|
*block_ptr = RL.dw_block_ptr;
|
|
*row_pc = pc;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_get_fde_info_for_cfa_reg3(Dwarf_Fde fde, Dwarf_Addr pc_requested,
|
|
Dwarf_Small *value_type, Dwarf_Signed *offset_relevant,
|
|
Dwarf_Signed *register_num, Dwarf_Signed *offset_or_block_len,
|
|
Dwarf_Ptr *block_ptr, Dwarf_Addr *row_pc, Dwarf_Error *error)
|
|
{
|
|
Dwarf_Regtable3 *rt;
|
|
Dwarf_Debug dbg;
|
|
Dwarf_Addr pc;
|
|
int ret;
|
|
|
|
dbg = fde != NULL ? fde->fde_dbg : NULL;
|
|
|
|
if (fde == NULL || value_type == NULL || offset_relevant == NULL ||
|
|
register_num == NULL || offset_or_block_len == NULL ||
|
|
block_ptr == NULL || row_pc == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
if (pc_requested < fde->fde_initloc ||
|
|
pc_requested >= fde->fde_initloc + fde->fde_adrange) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_PC_NOT_IN_FDE_RANGE);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
ret = _dwarf_frame_get_internal_table(fde, pc_requested, &rt, &pc,
|
|
error);
|
|
if (ret != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
|
|
*value_type = CFA.dw_value_type;
|
|
*offset_relevant = CFA.dw_offset_relevant;
|
|
*register_num = CFA.dw_regnum;
|
|
*offset_or_block_len = CFA.dw_offset_or_block_len;
|
|
*block_ptr = CFA.dw_block_ptr;
|
|
*row_pc = pc;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
#undef RL
|
|
#undef CFA
|
|
|
|
int
|
|
dwarf_get_fde_info_for_all_regs3(Dwarf_Fde fde, Dwarf_Addr pc_requested,
|
|
Dwarf_Regtable3 *reg_table, Dwarf_Addr *row_pc, Dwarf_Error *error)
|
|
{
|
|
Dwarf_Regtable3 *rt;
|
|
Dwarf_Debug dbg;
|
|
Dwarf_Addr pc;
|
|
int ret;
|
|
|
|
dbg = fde != NULL ? fde->fde_dbg : NULL;
|
|
|
|
if (fde == NULL || reg_table == NULL || reg_table->rt3_rules == NULL ||
|
|
row_pc == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
assert(dbg != NULL);
|
|
|
|
if (pc_requested < fde->fde_initloc ||
|
|
pc_requested >= fde->fde_initloc + fde->fde_adrange) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_PC_NOT_IN_FDE_RANGE);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
ret = _dwarf_frame_get_internal_table(fde, pc_requested, &rt, &pc,
|
|
error);
|
|
if (ret != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
|
|
ret = _dwarf_frame_regtable_copy(dbg, ®_table, rt, error);
|
|
if (ret != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
|
|
*row_pc = pc;
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
int
|
|
dwarf_expand_frame_instructions(Dwarf_Cie cie, Dwarf_Ptr instruction,
|
|
Dwarf_Unsigned len, Dwarf_Frame_Op **ret_oplist, Dwarf_Signed *ret_opcnt,
|
|
Dwarf_Error *error)
|
|
{
|
|
Dwarf_Debug dbg;
|
|
int ret;
|
|
|
|
dbg = cie != NULL ? cie->cie_dbg : NULL;
|
|
|
|
if (cie == NULL || instruction == NULL || len == 0 ||
|
|
ret_oplist == NULL || ret_opcnt == NULL) {
|
|
DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
|
|
return (DW_DLV_ERROR);
|
|
}
|
|
|
|
ret = _dwarf_frame_get_fop(dbg, cie->cie_addrsize, instruction, len,
|
|
ret_oplist, ret_opcnt, error);
|
|
if (ret != DW_DLE_NONE)
|
|
return (DW_DLV_ERROR);
|
|
|
|
return (DW_DLV_OK);
|
|
}
|
|
|
|
Dwarf_Half
|
|
dwarf_set_frame_rule_table_size(Dwarf_Debug dbg, Dwarf_Half value)
|
|
{
|
|
Dwarf_Half old_value;
|
|
|
|
old_value = dbg->dbg_frame_rule_table_size;
|
|
dbg->dbg_frame_rule_table_size = value;
|
|
|
|
return (old_value);
|
|
}
|
|
|
|
Dwarf_Half
|
|
dwarf_set_frame_rule_initial_value(Dwarf_Debug dbg, Dwarf_Half value)
|
|
{
|
|
Dwarf_Half old_value;
|
|
|
|
old_value = dbg->dbg_frame_rule_initial_value;
|
|
dbg->dbg_frame_rule_initial_value = value;
|
|
|
|
return (old_value);
|
|
}
|
|
|
|
Dwarf_Half
|
|
dwarf_set_frame_cfa_value(Dwarf_Debug dbg, Dwarf_Half value)
|
|
{
|
|
Dwarf_Half old_value;
|
|
|
|
old_value = dbg->dbg_frame_cfa_value;
|
|
dbg->dbg_frame_cfa_value = value;
|
|
|
|
return (old_value);
|
|
}
|
|
|
|
Dwarf_Half
|
|
dwarf_set_frame_same_value(Dwarf_Debug dbg, Dwarf_Half value)
|
|
{
|
|
Dwarf_Half old_value;
|
|
|
|
old_value = dbg->dbg_frame_same_value;
|
|
dbg->dbg_frame_same_value = value;
|
|
|
|
return (old_value);
|
|
}
|
|
|
|
Dwarf_Half
|
|
dwarf_set_frame_undefined_value(Dwarf_Debug dbg, Dwarf_Half value)
|
|
{
|
|
Dwarf_Half old_value;
|
|
|
|
old_value = dbg->dbg_frame_undefined_value;
|
|
dbg->dbg_frame_undefined_value = value;
|
|
|
|
return (old_value);
|
|
}
|