mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-01 00:41:46 +00:00
1042 lines
27 KiB
C++
1042 lines
27 KiB
C++
/* Copyright (C) 2021 Free Software Foundation, Inc.
|
|
Contributed by Oracle.
|
|
|
|
This file is part of GNU Binutils.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3, or (at your option)
|
|
any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, 51 Franklin Street - Fifth Floor, Boston,
|
|
MA 02110-1301, USA. */
|
|
|
|
#include "config.h"
|
|
#include "util.h"
|
|
#include "DbeSession.h"
|
|
#include "Elf.h"
|
|
#include "Stabs.h"
|
|
#include "Dwarf.h"
|
|
#include "DataObject.h"
|
|
#include "Function.h"
|
|
#include "LoadObject.h"
|
|
#include "Module.h"
|
|
#include "DefaultMap.h"
|
|
|
|
static int
|
|
datatypeCmp (const void *a, const void *b)
|
|
{
|
|
uint32_t o1 = ((datatype_t *) a)->datatype_id;
|
|
uint32_t o2 = ((datatype_t *) b)->datatype_id;
|
|
return o1 == o2 ? 0 : (o1 < o2 ? -1 : 1);
|
|
}
|
|
|
|
static int
|
|
targetOffsetCmp (const void *a, const void *b)
|
|
{
|
|
uint32_t o1 = ((target_info_t *) a)->offset;
|
|
uint32_t o2 = ((target_info_t *) b)->offset;
|
|
return o1 == o2 ? 0 : (o1 < o2 ? -1 : 1);
|
|
}
|
|
|
|
|
|
//////////////////////////////////////////////////////////
|
|
// class Dwr_type
|
|
class Dwr_type
|
|
{
|
|
public:
|
|
|
|
Dwr_type (int64_t _cu_die_offset, int _tag)
|
|
{
|
|
cu_die_offset = _cu_die_offset;
|
|
tag = _tag;
|
|
name = NULL;
|
|
dobj_name = NULL;
|
|
dtype = NULL;
|
|
extent = 0;
|
|
parent = 0;
|
|
child = 0;
|
|
next = 0;
|
|
ref_type = 0;
|
|
size = 0;
|
|
elems = 0;
|
|
offset = -1;
|
|
bit_size = 0;
|
|
};
|
|
|
|
char *name, *dobj_name;
|
|
int64_t cu_die_offset, ref_type, extent, parent, child, next;
|
|
int64_t size, elems, offset;
|
|
int tag, bit_size;
|
|
|
|
DataObject *get_dobj (Dwarf_cnt *ctx);
|
|
char *get_dobjname (Dwarf_cnt *ctx);
|
|
char *dump ();
|
|
|
|
private:
|
|
datatype_t *dtype;
|
|
datatype_t *get_datatype (Dwarf_cnt *ctx);
|
|
void get_dobj_for_members (Dwarf_cnt *ctx);
|
|
void set_dobjname (char *spec, char *nm);
|
|
};
|
|
|
|
|
|
//////////////////////////////////////////////////////////
|
|
// class Dwarf_cnt
|
|
Dwarf_cnt::Dwarf_cnt ()
|
|
{
|
|
cu_offset = 0;
|
|
parent = 0;
|
|
module = NULL;
|
|
name = NULL;
|
|
func = NULL;
|
|
fortranMAIN = NULL;
|
|
dwr_types = NULL;
|
|
inlinedSubr = NULL;
|
|
level = 0;
|
|
}
|
|
|
|
Dwr_type *
|
|
Dwarf_cnt::get_dwr_type (int64_t cu_die_offset)
|
|
{
|
|
Dwr_type *t = dwr_types->get (cu_die_offset);
|
|
if (t == NULL)
|
|
{
|
|
Dprintf (DUMP_DWARFLIB, "DWARF_ERROR: %s:%d wrong cu_die_offset=%lld in Dwarf_cnt::get_dwr_type\n",
|
|
get_basename (__FILE__), (int) __LINE__,
|
|
(long long) cu_die_offset);
|
|
t = put_dwr_type (cu_die_offset, 0); // DOBJ_UNSPECIFIED
|
|
}
|
|
return t;
|
|
}
|
|
|
|
Dwr_type *
|
|
Dwarf_cnt::put_dwr_type (int64_t cu_die_offset, int tag)
|
|
{
|
|
Dwr_type *t = new Dwr_type (cu_die_offset, tag);
|
|
dwr_types->put (cu_die_offset, t);
|
|
return t;
|
|
}
|
|
|
|
Dwr_type *
|
|
Dwarf_cnt::put_dwr_type (Dwr_Tag *dwrTag)
|
|
{
|
|
Dwr_type *t = new Dwr_type (dwrTag->die, dwrTag->tag);
|
|
dwr_types->put (dwrTag->die, t);
|
|
return t;
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////
|
|
// class Dwr_type
|
|
char *
|
|
Dwr_type::dump ()
|
|
{
|
|
char *s = dbe_sprintf ("%lld %-15s name='%s' parent=%lld next=%lld child=%lld dtype=%llx",
|
|
(long long) cu_die_offset, DwrCU::tag2str (tag),
|
|
STR (name), (long long) parent, (long long) next,
|
|
(long long) child, (long long) dtype);
|
|
return s;
|
|
}
|
|
|
|
void
|
|
Dwr_type::set_dobjname (char *spec, char *nm)
|
|
{
|
|
if (spec)
|
|
{
|
|
if (nm)
|
|
dobj_name = dbe_sprintf ("%s%s", spec, nm);
|
|
else
|
|
dobj_name = dbe_sprintf ("%s<ANON=%lld>", spec,
|
|
(long long) cu_die_offset);
|
|
}
|
|
else
|
|
{
|
|
if (nm)
|
|
dobj_name = dbe_sprintf ("%s", nm);
|
|
else
|
|
dobj_name = dbe_sprintf ("<ANON=%lld>", (long long) cu_die_offset);
|
|
}
|
|
}
|
|
|
|
char *
|
|
Dwr_type::get_dobjname (Dwarf_cnt *ctx)
|
|
{
|
|
if (dobj_name)
|
|
return dobj_name;
|
|
switch (tag)
|
|
{
|
|
case DW_TAG_base_type:
|
|
set_dobjname (NULL, name);
|
|
for (int i = 0, len = (int) strlen (dobj_name); i < len; i++)
|
|
{
|
|
if (dobj_name[i] == ' ')
|
|
dobj_name[i] = '_';
|
|
}
|
|
break;
|
|
case DW_TAG_constant:
|
|
case DW_TAG_formal_parameter:
|
|
case DW_TAG_variable:
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (ref_type);
|
|
set_dobjname (NULL, t->get_dobjname (ctx));
|
|
break;
|
|
}
|
|
case DW_TAG_unspecified_type:
|
|
set_dobjname (NTXT ("unspecified:"), name);
|
|
break;
|
|
case DW_TAG_enumeration_type:
|
|
set_dobjname (NTXT ("enumeration:"), name);
|
|
break;
|
|
case DW_TAG_typedef:
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (ref_type);
|
|
dobj_name = dbe_sprintf ("%s=%s", name, t->get_dobjname (ctx));
|
|
break;
|
|
}
|
|
case DW_TAG_const_type:
|
|
set_dobjname (NTXT ("const+"), name);
|
|
break;
|
|
case DW_TAG_volatile_type:
|
|
set_dobjname (NTXT ("volatile+"), name);
|
|
break;
|
|
case DW_TAG_pointer_type:
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (ref_type);
|
|
set_dobjname (NTXT ("pointer+"), t->get_dobjname (ctx));
|
|
break;
|
|
}
|
|
case DW_TAG_reference_type:
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (ref_type);
|
|
set_dobjname (NTXT ("reference+"), t->get_dobjname (ctx));
|
|
break;
|
|
}
|
|
case DW_TAG_array_type:
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (ref_type);
|
|
if (elems > 0)
|
|
dobj_name = dbe_sprintf ("array[%lld]:%s",
|
|
(long long) elems, t->get_dobjname (ctx));
|
|
else
|
|
dobj_name = dbe_sprintf ("array[]:%s", t->get_dobjname (ctx));
|
|
break;
|
|
}
|
|
case DW_TAG_structure_type:
|
|
set_dobjname (NTXT ("structure:"), name);
|
|
break;
|
|
case DW_TAG_union_type:
|
|
set_dobjname (NTXT ("union:"), name);
|
|
break;
|
|
case DW_TAG_class_type:
|
|
set_dobjname (NTXT ("class:"), name);
|
|
break;
|
|
case DW_TAG_member:
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (ref_type);
|
|
if (bit_size > 0)
|
|
dobj_name = dbe_sprintf (NTXT ("%s:%lld"), t->get_dobjname (ctx),
|
|
(long long) bit_size);
|
|
else
|
|
dobj_name = dbe_sprintf (NTXT ("%s"), t->get_dobjname (ctx));
|
|
break;
|
|
}
|
|
default:
|
|
Dprintf (DUMP_DWARFLIB, NTXT ("DWARF_ERROR: %s:%d No case for %s cu_die_offset=%lld\n"),
|
|
get_basename (__FILE__), (int) __LINE__,
|
|
DwrCU::tag2str (tag), (long long) cu_die_offset);
|
|
set_dobjname (NTXT ("Undefined:"), NULL);
|
|
break;
|
|
}
|
|
return dobj_name;
|
|
}
|
|
|
|
datatype_t*
|
|
Dwr_type::get_datatype (Dwarf_cnt *ctx)
|
|
{
|
|
if (dtype)
|
|
return dtype;
|
|
dtype = new datatype_t;
|
|
dtype->datatype_id = (unsigned) cu_die_offset;
|
|
dtype->memop_refs = 0;
|
|
dtype->event_data = 0;
|
|
dtype->dobj = NULL;
|
|
ctx->module->datatypes->incorporate (dtype, datatypeCmp);
|
|
return dtype;
|
|
}
|
|
|
|
DataObject *
|
|
Dwr_type::get_dobj (Dwarf_cnt *ctx)
|
|
{
|
|
if (dtype == NULL)
|
|
dtype = get_datatype (ctx);
|
|
dtype->memop_refs++;
|
|
DataObject *dobj = dtype->dobj;
|
|
if (dobj)
|
|
return dobj;
|
|
|
|
if (tag == 0)
|
|
dobj = dbeSession->find_dobj_by_name (PTXT (DOBJ_UNSPECIFIED));
|
|
else
|
|
{
|
|
dobj = dbeSession->createDataObject ();
|
|
dobj->size = size;
|
|
dobj->offset = offset;
|
|
dobj->scope = ctx->func ? (Histable*) ctx->func : (Histable*) ctx->module;
|
|
}
|
|
dtype->dobj = dobj;
|
|
if (parent)
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (parent);
|
|
dobj->parent = t->get_dobj (ctx);
|
|
}
|
|
|
|
if (ref_type)
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (ref_type);
|
|
t->get_dobj (ctx);
|
|
if (size == 0)
|
|
{
|
|
size = t->size;
|
|
dobj->size = size;
|
|
}
|
|
}
|
|
|
|
switch (tag)
|
|
{
|
|
case 0:
|
|
break;
|
|
case DW_TAG_array_type:
|
|
case DW_TAG_base_type:
|
|
case DW_TAG_unspecified_type:
|
|
case DW_TAG_enumeration_type:
|
|
case DW_TAG_typedef:
|
|
case DW_TAG_const_type:
|
|
case DW_TAG_volatile_type:
|
|
case DW_TAG_pointer_type:
|
|
case DW_TAG_reference_type:
|
|
dobj->set_dobjname (get_dobjname (ctx), NULL);
|
|
break;
|
|
case DW_TAG_structure_type:
|
|
case DW_TAG_union_type:
|
|
case DW_TAG_class_type:
|
|
dobj->set_dobjname (get_dobjname (ctx), NULL);
|
|
dobj->master = dbeSession->find_dobj_by_name (dobj_name);
|
|
get_dobj_for_members (ctx);
|
|
break;
|
|
case DW_TAG_constant:
|
|
case DW_TAG_formal_parameter:
|
|
case DW_TAG_member:
|
|
case DW_TAG_variable:
|
|
if (dobj->parent == NULL)
|
|
dobj->parent = dbeSession->get_Scalars_DataObject ();
|
|
dobj->set_dobjname (get_dobjname (ctx), name);
|
|
break;
|
|
default:
|
|
Dprintf (DUMP_DWARFLIB, NTXT ("DWARF_ERROR: %s:%d No case for %s cu_die_offset=%lld\n"),
|
|
get_basename (__FILE__), (int) __LINE__,
|
|
DwrCU::tag2str (tag), (long long) cu_die_offset);
|
|
break;
|
|
}
|
|
return dobj;
|
|
}
|
|
|
|
void
|
|
Dwr_type::get_dobj_for_members (Dwarf_cnt *ctx)
|
|
{
|
|
for (int64_t i = child; i != 0;)
|
|
{
|
|
Dwr_type *t = ctx->get_dwr_type (i);
|
|
t->get_dobj (ctx);
|
|
i = t->next;
|
|
}
|
|
}
|
|
|
|
//////////////////////////////////////////////////////////
|
|
// class Dwarf
|
|
Dwarf::Dwarf (Stabs *_stabs)
|
|
{
|
|
stabs = _stabs;
|
|
status = Stabs::DBGD_ERR_NONE;
|
|
dwrCUs = 0;
|
|
debug_infoSec = NULL;
|
|
debug_abbrevSec = NULL;
|
|
debug_strSec = NULL;
|
|
debug_lineSec = NULL;
|
|
debug_rangesSec = NULL;
|
|
elf = stabs->openElf (true);
|
|
if (elf == NULL)
|
|
{
|
|
status = Stabs::DBGD_ERR_BAD_ELF_FORMAT;
|
|
return;
|
|
}
|
|
debug_infoSec = dwrGetSec (NTXT (".debug_info"));
|
|
if (debug_infoSec)
|
|
{
|
|
debug_infoSec->reloc = ElfReloc::get_elf_reloc (elf, NTXT (".rela.debug_info"), NULL);
|
|
debug_infoSec->reloc = ElfReloc::get_elf_reloc (elf, NTXT (".rel.debug_info"), debug_infoSec->reloc);
|
|
if (debug_infoSec->reloc)
|
|
debug_infoSec->reloc->dump ();
|
|
}
|
|
debug_abbrevSec = dwrGetSec (NTXT (".debug_abbrev"));
|
|
debug_strSec = dwrGetSec (NTXT (".debug_str"));
|
|
debug_lineSec = dwrGetSec (NTXT (".debug_line"));
|
|
debug_rangesSec = dwrGetSec (NTXT (".debug_ranges"));
|
|
|
|
if ((debug_infoSec == NULL) || (debug_abbrevSec == NULL) || (debug_lineSec == NULL))
|
|
{
|
|
status = Stabs::DBGD_ERR_NO_DWARF;
|
|
return;
|
|
}
|
|
}
|
|
|
|
Dwarf::~Dwarf ()
|
|
{
|
|
delete debug_infoSec;
|
|
delete debug_abbrevSec;
|
|
delete debug_strSec;
|
|
delete debug_lineSec;
|
|
delete debug_rangesSec;
|
|
Destroy (dwrCUs);
|
|
}
|
|
|
|
DwrSec *
|
|
Dwarf::dwrGetSec (const char *sec_name)
|
|
{
|
|
int secN = elf->elf_get_sec_num (sec_name);
|
|
if (secN > 0)
|
|
{
|
|
Elf_Data *elfData = elf->elf_getdata (secN);
|
|
if (elfData)
|
|
return new DwrSec ((unsigned char *) elfData->d_buf, elfData->d_size,
|
|
elf->need_swap_endian,
|
|
elf->elf_getclass () == ELFCLASS32);
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
uint64_t
|
|
DwrCU::get_low_pc ()
|
|
{
|
|
uint64_t pc = Dwarf_addr (DW_AT_low_pc);
|
|
if (pc)
|
|
return pc;
|
|
return pc;
|
|
}
|
|
|
|
char *
|
|
DwrCU::get_linkage_name ()
|
|
{
|
|
char *nm = Dwarf_string (DW_AT_linkage_name);
|
|
if (nm != NULL)
|
|
return nm;
|
|
nm = Dwarf_string (DW_AT_SUN_link_name);
|
|
if (nm != NULL)
|
|
return nm;
|
|
return Dwarf_string (DW_AT_MIPS_linkage_name);
|
|
}
|
|
|
|
void
|
|
DwrCU::parseChild (Dwarf_cnt *ctx)
|
|
{
|
|
if (!dwrTag.hasChild)
|
|
return;
|
|
uint64_t old_size = debug_infoSec->size;
|
|
uint64_t next_die_offset = 0;
|
|
Dwarf_Die next_die;
|
|
if (read_ref_attr (DW_AT_sibling, &next_die) == DW_DLV_OK)
|
|
{
|
|
next_die_offset = next_die + cu_offset;
|
|
if (next_die_offset <= debug_infoSec->offset)
|
|
{
|
|
Dprintf (DEBUG_ERR_MSG, NTXT ("DwrCU::parseChild: next_die(0x%llx) <= debug_infoSec->offset(%llx)\n"),
|
|
(long long) next_die, (long long) debug_infoSec->offset);
|
|
next_die_offset = 0;
|
|
}
|
|
else if (debug_infoSec->size > next_die_offset)
|
|
debug_infoSec->size = next_die_offset;
|
|
}
|
|
dwrTag.level++;
|
|
ctx->level++;
|
|
for (;;)
|
|
{
|
|
if (set_die (0) != DW_DLV_OK)
|
|
break;
|
|
Function *func;
|
|
char *old_name;
|
|
int hasChild = dwrTag.hasChild;
|
|
switch (dwrTag.tag)
|
|
{
|
|
case DW_TAG_imported_declaration:
|
|
if (Stabs::is_fortran (ctx->module->lang_code))
|
|
{
|
|
char *link_name = Dwarf_string (DW_AT_name);
|
|
ctx->fortranMAIN = NULL;
|
|
parseChild (ctx);
|
|
hasChild = 0;
|
|
if (ctx->fortranMAIN)
|
|
{
|
|
ctx->fortranMAIN->set_match_name (link_name);
|
|
ctx->fortranMAIN = NULL;
|
|
}
|
|
}
|
|
break;
|
|
case DW_TAG_subprogram:
|
|
if (dwrTag.get_attr (DW_AT_abstract_origin))
|
|
break;
|
|
if (dwrTag.get_attr (DW_AT_declaration))
|
|
{
|
|
// Only declaration
|
|
if (Stabs::is_fortran (ctx->module->lang_code))
|
|
{
|
|
char *link_name = Dwarf_string (DW_AT_name);
|
|
if (link_name && streq (link_name, NTXT ("MAIN")))
|
|
ctx->fortranMAIN = Stabs::find_func (NTXT ("MAIN"), ctx->module->functions, true, true);
|
|
}
|
|
if (get_linkage_name () == NULL)
|
|
break;
|
|
}
|
|
func = append_Function (ctx);
|
|
if (func)
|
|
{
|
|
if (Stabs::is_fortran (ctx->module->lang_code) &&
|
|
streq (func->get_match_name (), NTXT ("MAIN")))
|
|
ctx->fortranMAIN = func;
|
|
old_name = ctx->name;
|
|
Function *old_func = ctx->func;
|
|
ctx->name = func->get_match_name ();
|
|
ctx->func = func;
|
|
parseChild (ctx);
|
|
hasChild = 0;
|
|
ctx->name = old_name;
|
|
ctx->func = old_func;
|
|
}
|
|
break;
|
|
case DW_TAG_module:
|
|
old_name = ctx->name;
|
|
ctx->name = Dwarf_string (DW_AT_SUN_link_name);
|
|
parseChild (ctx);
|
|
hasChild = 0;
|
|
ctx->name = old_name;
|
|
break;
|
|
case DW_TAG_class_type:
|
|
old_name = ctx->name;
|
|
ctx->name = Dwarf_string (DW_AT_name);
|
|
parseChild (ctx);
|
|
hasChild = 0;
|
|
ctx->name = old_name;
|
|
break;
|
|
case DW_TAG_structure_type:
|
|
old_name = ctx->name;
|
|
ctx->name = NULL;
|
|
parseChild (ctx);
|
|
hasChild = 0;
|
|
ctx->name = old_name;
|
|
break;
|
|
case DW_TAG_namespace:
|
|
old_name = ctx->name;
|
|
ctx->name = Dwarf_string (DW_AT_name);
|
|
parseChild (ctx);
|
|
hasChild = 0;
|
|
ctx->name = old_name;
|
|
break;
|
|
case DW_TAG_lexical_block:
|
|
old_name = ctx->name;
|
|
ctx->name = NULL;
|
|
parseChild (ctx);
|
|
hasChild = 0;
|
|
ctx->name = old_name;
|
|
break;
|
|
case DW_TAG_SUN_memop_info:
|
|
isMemop = true;
|
|
break;
|
|
case DW_TAG_inlined_subroutine:
|
|
if (ctx->module)
|
|
{
|
|
parse_inlined_subroutine (ctx);
|
|
hasChild = 0;
|
|
}
|
|
break;
|
|
default: // No more special cases
|
|
break;
|
|
}
|
|
if (hasChild)
|
|
parseChild (ctx);
|
|
}
|
|
ctx->level--;
|
|
dwrTag.level--;
|
|
if (next_die_offset != 0)
|
|
debug_infoSec->offset = next_die_offset;
|
|
debug_infoSec->size = old_size;
|
|
}
|
|
|
|
bool
|
|
Dwarf::archive_Dwarf (LoadObject *lo)
|
|
{
|
|
if (debug_infoSec == NULL)
|
|
return false;
|
|
if (dwrCUs)
|
|
return true;
|
|
dwrCUs = new Vector<DwrCU *>;
|
|
|
|
debug_infoSec->offset = 0;
|
|
while (debug_infoSec->offset < debug_infoSec->sizeSec)
|
|
{
|
|
DwrCU *dwrCU = new DwrCU (this);
|
|
dwrCUs->append (dwrCU);
|
|
debug_infoSec->size = debug_infoSec->sizeSec;
|
|
debug_infoSec->offset = dwrCU->next_cu_offset;
|
|
|
|
if (dwrCU->set_die (dwrCU->cu_header_offset) != DW_DLV_OK)
|
|
{
|
|
Dprintf (1, "DwrCU::archive_Dwarf: CU=%lld (offset=0x%llx); set_die(0x%llx) failed\n",
|
|
(long long) dwrCUs->size (), (long long) dwrCU->cu_offset,
|
|
(long long) dwrCU->cu_header_offset);
|
|
continue;
|
|
}
|
|
|
|
Module *mod = dwrCU->parse_cu_header (lo);
|
|
if (mod)
|
|
{
|
|
mod->hdrOffset = dwrCUs->size ();
|
|
DwrLineRegs *lineReg = dwrCU->get_dwrLineReg ();
|
|
dwrCU->srcFiles = new Vector<SourceFile *> (VecSize (lineReg->file_names));
|
|
for (long i = 0, sz = VecSize (lineReg->file_names); i < sz; i++)
|
|
{
|
|
char *fname = lineReg->getPath (i + 1);
|
|
SourceFile *sf = mod->findSource (fname, true);
|
|
dwrCU->srcFiles->append (sf);
|
|
}
|
|
|
|
Dwarf_cnt ctx;
|
|
ctx.module = mod;
|
|
dwrCU->parseChild (&ctx);
|
|
if (dwrCU->dwrInlinedSubrs && DUMP_DWARFLIB)
|
|
{
|
|
char msg[128];
|
|
char *lo_name = mod->loadobject ? mod->loadobject->get_name ()
|
|
: NULL;
|
|
snprintf (msg, sizeof (msg), NTXT ("\ndwrCUs[%lld]: %s:%s\n"),
|
|
(long long) dwrCUs->size (),
|
|
STR (lo_name), STR (mod->get_name ()));
|
|
dwrCU->dwrInlinedSubrs->dump (msg);
|
|
}
|
|
}
|
|
}
|
|
return true;
|
|
}
|
|
|
|
void
|
|
Dwarf::srcline_Dwarf (Module *module)
|
|
{
|
|
if (module == NULL || module->hdrOffset == 0)
|
|
return;
|
|
DwrCU *dwrCU = dwrCUs->get (module->hdrOffset - 1);
|
|
dwrCU->map_dwarf_lines (module);
|
|
}
|
|
|
|
|
|
// parse hwcprof info for given module in loadobject
|
|
|
|
void
|
|
Dwarf::read_hwcprof_info (Module *module)
|
|
{
|
|
if (module->datatypes || (module->hdrOffset == 0))
|
|
return;
|
|
DwrCU *dwrCU = dwrCUs->get (module->hdrOffset - 1);
|
|
if (!dwrCU->isMemop)
|
|
return;
|
|
module->datatypes = new Vector<datatype_t*>;
|
|
if (dwrCU->set_die (dwrCU->cu_header_offset) != DW_DLV_OK)
|
|
{
|
|
Dprintf (1, "Dwarf::read_hwcprof_info: CU=%lld (offset=0x%llx); set_die(0x%llx) failed\n",
|
|
(long long) module->hdrOffset, (long long) dwrCU->cu_offset,
|
|
(long long) dwrCU->cu_header_offset);
|
|
return;
|
|
}
|
|
Dwarf_cnt ctx;
|
|
ctx.module = module;
|
|
ctx.cu_offset = dwrCU->cu_offset; // CU header offset;
|
|
ctx.dwr_types = new DefaultMap<int64_t, Dwr_type*>;
|
|
ctx.put_dwr_type (0, 0); // for DOBJ_UNSPECIFIED
|
|
dwrCU->read_hwcprof_info (&ctx);
|
|
|
|
Vector<inst_info_t*> *infoList = module->infoList;
|
|
Dprintf (DUMP_DWARFLIB,
|
|
"\n\n ### Dwarf::read_hwcprof_info: module: '%s' infoList->size()=%lld\n",
|
|
STR (module->get_name ()),
|
|
(long long) (infoList ? infoList->size () : -1));
|
|
for (int i = 0, sz = infoList ? infoList->size () : -1; i < sz; i++)
|
|
{
|
|
inst_info_t *ip = infoList->fetch (i);
|
|
memop_info_t *mp = ip->memop;
|
|
Dwr_type *t = ctx.get_dwr_type (mp->datatype_id);
|
|
t->get_dobj (&ctx);
|
|
}
|
|
|
|
#ifdef DEBUG
|
|
Dprintf (DUMP_DWARFLIB,
|
|
"\n\n ### Dwarf::read_hwcprof_info: '%s' infoList->size()=%lld\n",
|
|
STR (module->get_name ()),
|
|
(long long) (infoList ? infoList->size () : 1));
|
|
for (int i = 0, sz = infoList ? infoList->size () : -1; i < sz; i++)
|
|
{
|
|
inst_info_t *ip = infoList->fetch (i);
|
|
memop_info_t *mp = ip->memop;
|
|
Dprintf (DUMP_DWARFLIB,
|
|
" %d id=%lld offset=%lld signature=%lld datatype_id=%lld \n",
|
|
i, (long long) mp->id, (long long) mp->offset,
|
|
(long long) mp->signature, (long long) mp->datatype_id);
|
|
}
|
|
|
|
Vector<int64_t> *keys = ctx.dwr_types->keySet ();
|
|
Dprintf (DUMP_DWARFLIB,
|
|
"\n\n ### Dwarf::read_hwcprof_info: '%s' keys->size()=%lld\n",
|
|
STR (module->get_name ()), (long long) (keys ? keys->size () : -1));
|
|
for (int i = 0, sz = keys->size (); i < sz; i++)
|
|
{
|
|
int64_t ind = keys->fetch (i);
|
|
Dwr_type *t = ctx.get_dwr_type (ind);
|
|
Dprintf (DUMP_DWARFLIB, NTXT (" %d %lld %s\n"), i,
|
|
(long long) ind, t->dump ());
|
|
}
|
|
#endif
|
|
}
|
|
|
|
void
|
|
DwrCU::read_hwcprof_info (Dwarf_cnt *ctx)
|
|
{
|
|
if (!dwrTag.hasChild)
|
|
return;
|
|
uint64_t old_size = debug_infoSec->size;
|
|
uint64_t next_die_offset = 0;
|
|
Dwarf_Die next_die;
|
|
if (read_ref_attr (DW_AT_sibling, &next_die) == DW_DLV_OK)
|
|
{
|
|
next_die_offset = next_die + cu_offset;
|
|
if (next_die_offset <= debug_infoSec->offset)
|
|
next_die_offset = 0;
|
|
else if (debug_infoSec->size > next_die_offset)
|
|
debug_infoSec->size = next_die_offset;
|
|
}
|
|
dwrTag.level++;
|
|
ctx->level++;
|
|
for (;;)
|
|
{
|
|
if (set_die (0) != DW_DLV_OK)
|
|
break;
|
|
Dprintf (DUMP_DWARFLIB, NTXT ("%s:%d <%lld:%lld> cu_die=%lld %-15s\n"),
|
|
get_basename (__FILE__), (int) __LINE__, (long long) ctx->level,
|
|
(long long) dwrTag.die, (long long) dwrTag.offset,
|
|
DwrCU::tag2str (dwrTag.tag));
|
|
switch (dwrTag.tag)
|
|
{
|
|
case DW_TAG_SUN_memop_info:
|
|
{
|
|
if (ctx->func == NULL)
|
|
break;
|
|
Dwarf_Unsigned mid = Dwarf_data (DW_AT_SUN_profile_id);
|
|
Dwarf_Unsigned off = Dwarf_data (DW_AT_SUN_func_offset);
|
|
Dwarf_Unsigned sig = Dwarf_data (DW_AT_SUN_memop_signature);
|
|
Dwarf_Off ref = Dwarf_ref (DW_AT_SUN_memop_type_ref);
|
|
|
|
// define memop entry
|
|
memop_info_t *memop = new memop_info_t;
|
|
memop->id = (unsigned) mid;
|
|
memop->signature = (unsigned) sig;
|
|
memop->datatype_id = ref ? (unsigned) ref : 0;
|
|
memop->offset = (unsigned) (ctx->func->img_offset + off);
|
|
|
|
// define instop entry
|
|
inst_info_t *instop = new inst_info_t;
|
|
instop->type = CPF_INSTR_TYPE_PREFETCH; // XXXX UNKNOWN
|
|
instop->offset = memop->offset;
|
|
instop->memop = memop;
|
|
if (ctx->module->infoList == NULL)
|
|
ctx->module->infoList = new Vector<inst_info_t*>;
|
|
ctx->module->infoList->append (instop);
|
|
break;
|
|
}
|
|
case DW_TAG_SUN_codeflags:
|
|
{
|
|
if (ctx->func == NULL)
|
|
break;
|
|
Dwarf_Unsigned kind = Dwarf_data (DW_AT_SUN_cf_kind);
|
|
if (kind == DW_ATCF_SUN_branch_target)
|
|
{
|
|
DwrSec *secp = Dwarf_block (DW_AT_SUN_func_offsets);
|
|
if (secp)
|
|
{
|
|
int foffset = 0;
|
|
for (int i = 0; secp->offset < secp->size; i++)
|
|
{
|
|
int val = (int) secp->GetSLEB128 ();
|
|
if (i == 0 || val != 0)
|
|
{
|
|
foffset += val;
|
|
target_info_t *t = new target_info_t;
|
|
t->offset = (unsigned) (ctx->func->img_offset + foffset);
|
|
ctx->module->bTargets.incorporate (t, targetOffsetCmp);
|
|
}
|
|
}
|
|
delete(secp);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
case DW_TAG_subprogram:
|
|
{
|
|
Function *old_func = ctx->func;
|
|
if (dwrTag.get_attr (DW_AT_abstract_origin)
|
|
|| dwrTag.get_attr (DW_AT_declaration))
|
|
ctx->func = NULL;
|
|
else
|
|
ctx->func = append_Function (ctx);
|
|
read_hwcprof_info (ctx);
|
|
ctx->func = old_func;
|
|
break;
|
|
}
|
|
case DW_TAG_base_type:
|
|
{
|
|
Dwr_type *t = ctx->put_dwr_type (dwrTag.die, dwrTag.tag);
|
|
t->name = Dwarf_string (DW_AT_name);
|
|
t->size = Dwarf_data (DW_AT_byte_size);
|
|
break;
|
|
}
|
|
case DW_TAG_unspecified_type:
|
|
ctx->put_dwr_type (dwrTag.die, dwrTag.tag);
|
|
break;
|
|
case DW_TAG_enumeration_type:
|
|
{
|
|
Dwr_type *t = ctx->put_dwr_type (dwrTag.die, dwrTag.tag);
|
|
t->name = Dwarf_string (DW_AT_name);
|
|
t->size = Dwarf_data (DW_AT_byte_size);
|
|
break;
|
|
}
|
|
case DW_TAG_constant:
|
|
case DW_TAG_formal_parameter:
|
|
case DW_TAG_variable:
|
|
case DW_TAG_typedef:
|
|
case DW_TAG_const_type:
|
|
case DW_TAG_volatile_type:
|
|
{
|
|
Dwr_type *t = ctx->put_dwr_type (dwrTag.die, dwrTag.tag);
|
|
t->name = Dwarf_string (DW_AT_name);
|
|
t->ref_type = Dwarf_ref (DW_AT_type);
|
|
break;
|
|
}
|
|
case DW_TAG_pointer_type:
|
|
case DW_TAG_reference_type:
|
|
{
|
|
Dwr_type *t = ctx->put_dwr_type (dwrTag.die, dwrTag.tag);
|
|
t->name = Dwarf_string (DW_AT_name);
|
|
t->ref_type = Dwarf_ref (DW_AT_type);
|
|
t->size = (dwarf->stabs->get_class () == W64) ? 8 : 4;
|
|
break;
|
|
}
|
|
case DW_TAG_array_type:
|
|
{
|
|
Dwr_type *t = ctx->put_dwr_type (dwrTag.die, dwrTag.tag);
|
|
t->name = Dwarf_string (DW_AT_name);
|
|
t->ref_type = Dwarf_ref (DW_AT_type);
|
|
t->size = Dwarf_data (DW_AT_byte_size);
|
|
ctx->size = -1;
|
|
read_hwcprof_info (ctx);
|
|
t->elems = ctx->size;
|
|
break;
|
|
}
|
|
case DW_TAG_subrange_type:
|
|
{
|
|
int64_t ref_type = Dwarf_ref (DW_AT_type);
|
|
int64_t hi = Dwarf_data (DW_AT_upper_bound);
|
|
int64_t lo = Dwarf_data (DW_AT_lower_bound);
|
|
int64_t ss = Dwarf_data (DW_AT_stride_size);
|
|
ctx->size = 1 + hi - lo;
|
|
if (ss != 0)
|
|
ctx->size /= ss;
|
|
Dprintf (DUMP_DWARFLIB,
|
|
"Got subrange [%lld:%lld:%lld] indexed <%lld>: size=%lld\n",
|
|
(long long) lo, (long long) hi, (long long) ss,
|
|
(long long) ref_type, (long long) ctx->size);
|
|
break;
|
|
}
|
|
case DW_TAG_structure_type:
|
|
case DW_TAG_union_type:
|
|
case DW_TAG_class_type:
|
|
{
|
|
Dwr_type *t = ctx->put_dwr_type (dwrTag.die, dwrTag.tag);
|
|
t->name = Dwarf_string (DW_AT_name);
|
|
t->size = Dwarf_data (DW_AT_byte_size);
|
|
t->extent = Dwarf_ref (DW_AT_sibling);
|
|
int64_t old_parent = ctx->parent;
|
|
ctx->parent = t->cu_die_offset;
|
|
|
|
char *old_name = ctx->name;
|
|
ctx->name = (dwrTag.tag == DW_TAG_class_type) ? Dwarf_string (DW_AT_name) : NULL;
|
|
read_hwcprof_info (ctx);
|
|
ctx->name = old_name;
|
|
ctx->parent = old_parent;
|
|
// Reverse children
|
|
for (int64_t i = t->child, last = 0; i != 0;)
|
|
{
|
|
Dwr_type *t1 = ctx->get_dwr_type (i);
|
|
t->child = i;
|
|
i = t1->next;
|
|
t1->next = last;
|
|
last = t->child;
|
|
}
|
|
break;
|
|
}
|
|
case DW_TAG_member:
|
|
{
|
|
if (ctx->parent == 0)
|
|
{
|
|
Dprintf (DUMP_DWARFLIB, NTXT ("DWARF_ERROR: %s:%d %s cu_die_offset=%lld\n"),
|
|
get_basename (__FILE__), (int) __LINE__,
|
|
DwrCU::tag2str (dwrTag.tag), (long long) dwrTag.die);
|
|
break;
|
|
}
|
|
Dwr_type *t = ctx->put_dwr_type (dwrTag.die, dwrTag.tag);
|
|
t->name = Dwarf_string (DW_AT_name);
|
|
t->ref_type = Dwarf_ref (DW_AT_type);
|
|
t->offset = Dwarf_location (DW_AT_data_member_location);
|
|
Dwr_type *parent = ctx->get_dwr_type (ctx->parent);
|
|
t->parent = ctx->parent;
|
|
t->next = parent->child; // a reverse order of members
|
|
parent->child = t->cu_die_offset;
|
|
t->bit_size = (uint32_t) Dwarf_data (DW_AT_bit_size);
|
|
break;
|
|
}
|
|
case DW_TAG_module:
|
|
{
|
|
char *old_name = ctx->name;
|
|
ctx->name = Dwarf_string (DW_AT_SUN_link_name);
|
|
read_hwcprof_info (ctx);
|
|
ctx->name = old_name;
|
|
break;
|
|
}
|
|
case DW_TAG_namespace:
|
|
{
|
|
char *old_name = ctx->name;
|
|
ctx->name = Dwarf_string (DW_AT_name);
|
|
read_hwcprof_info (ctx);
|
|
ctx->name = old_name;
|
|
break;
|
|
}
|
|
case DW_TAG_lexical_block:
|
|
{
|
|
char *old_name = ctx->name;
|
|
ctx->name = NULL;
|
|
read_hwcprof_info (ctx);
|
|
ctx->name = old_name;
|
|
break;
|
|
}
|
|
default: // No more special cases
|
|
read_hwcprof_info (ctx);
|
|
break;
|
|
}
|
|
}
|
|
ctx->level--;
|
|
dwrTag.level--;
|
|
if (next_die_offset != 0)
|
|
debug_infoSec->offset = next_die_offset;
|
|
debug_infoSec->size = old_size;
|
|
}
|
|
|
|
// Append function to module
|
|
Function *
|
|
DwrCU::append_Function (Dwarf_cnt *ctx)
|
|
{
|
|
char *outerName = ctx->name, *name, tmpname[2048];
|
|
Function *func;
|
|
char *fname = Dwarf_string (DW_AT_name);
|
|
if (fname && outerName && !strchr (fname, '.'))
|
|
{
|
|
size_t outerlen = strlen (outerName);
|
|
if (outerlen > 0 && outerName[outerlen - 1] == '_')
|
|
{
|
|
outerlen--;
|
|
snprintf (tmpname, sizeof (tmpname), NTXT ("%s"), outerName);
|
|
snprintf (tmpname + outerlen, sizeof (tmpname) - outerlen, NTXT (".%s_"), fname);
|
|
}
|
|
else
|
|
snprintf (tmpname, sizeof (tmpname), NTXT ("%s.%s"), outerName, fname);
|
|
name = tmpname;
|
|
Dprintf (DUMP_DWARFLIB, NTXT ("Generated innerfunc name %s\n"), name);
|
|
}
|
|
else
|
|
name = fname;
|
|
|
|
char *link_name = get_linkage_name ();
|
|
if (link_name == NULL)
|
|
link_name = name;
|
|
|
|
uint64_t pc = get_low_pc ();
|
|
func = dwarf->stabs->append_Function (module, link_name, pc);
|
|
if (func != NULL)
|
|
{
|
|
int lineno = (int) Dwarf_data (DW_AT_decl_line);
|
|
func->set_match_name (name);
|
|
if (lineno > 0)
|
|
{
|
|
func->setLineFirst (lineno);
|
|
if (dwrLineReg == NULL)
|
|
dwrLineReg = new DwrLineRegs (new DwrSec (dwarf->debug_lineSec,
|
|
stmt_list_offset), comp_dir);
|
|
int fileno = ((int) Dwarf_data (DW_AT_decl_file)) - 1;
|
|
SourceFile *sf = ((fileno >= 0) && (fileno < VecSize (srcFiles))) ? srcFiles->get (fileno)
|
|
: module->getMainSrc ();
|
|
func->setDefSrc (sf);
|
|
func->pushSrcFile (func->def_source, 0);
|
|
func->popSrcFile ();
|
|
}
|
|
}
|
|
return func;
|
|
}
|
|
|
|
// Get language code
|
|
Sp_lang_code
|
|
DwrCU::Dwarf_lang ()
|
|
{
|
|
char *str = Dwarf_string (DW_AT_producer);
|
|
if (str && strncmp (str, NTXT ("GNU"), 3) == 0)
|
|
isGNU = true;
|
|
int64_t lang = Dwarf_data (DW_AT_language);
|
|
switch (lang)
|
|
{
|
|
case DW_LANG_C89:
|
|
case DW_LANG_C:
|
|
return Sp_lang_c; // Sp_lang_ansic?
|
|
case DW_LANG_C99:
|
|
return Sp_lang_c99;
|
|
case DW_LANG_C_plus_plus:
|
|
return isGNU ? Sp_lang_gcc : Sp_lang_cplusplus;
|
|
case DW_LANG_Fortran90:
|
|
return Sp_lang_fortran90;
|
|
case DW_LANG_Fortran77:
|
|
return Sp_lang_fortran;
|
|
case DW_LANG_Java:
|
|
return Sp_lang_java;
|
|
case DW_LANG_Mips_Assembler:
|
|
case DW_LANG_SUN_Assembler:
|
|
return Sp_lang_asm;
|
|
case DW_LANG_Pascal83:
|
|
return Sp_lang_pascal;
|
|
default:
|
|
case DW_LANG_Ada83:
|
|
case DW_LANG_Cobol74:
|
|
case DW_LANG_Cobol85:
|
|
case DW_LANG_Modula2:
|
|
case DW_LANG_Ada95:
|
|
case DW_LANG_Fortran95:
|
|
case DW_LANG_lo_user:
|
|
return Sp_lang_unknown;
|
|
}
|
|
}
|