summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--dwarf_prototypes.c80
1 files changed, 46 insertions, 34 deletions
diff --git a/dwarf_prototypes.c b/dwarf_prototypes.c
index 1068bbb..c55fb99 100644
--- a/dwarf_prototypes.c
+++ b/dwarf_prototypes.c
@@ -43,13 +43,8 @@
if (res < 0) return false; /* error */ \
break /* no sibling exists */
-// A map from DIE addresses (Dwarf_Off) to type structures (struct
-// arg_type_info*). This is created and filled in at the start of each import,
-// and deleted when the import is complete
-static struct dict type_hash;
-
-
-static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct protolib* plib);
+static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct protolib* plib,
+ struct dict* type_hash);
#if 0
@@ -381,7 +376,8 @@ static bool get_enum(struct arg_type_info* enum_info, Dwarf_Die* parent)
return true;
}
-static bool get_array(struct arg_type_info* array_info, Dwarf_Die* parent, struct protolib* plib)
+static bool get_array(struct arg_type_info* array_info, Dwarf_Die* parent, struct protolib* plib,
+ struct dict* type_hash)
{
Dwarf_Die type_die;
if (!get_type_die(&type_die, parent)) {
@@ -390,7 +386,7 @@ static bool get_array(struct arg_type_info* array_info, Dwarf_Die* parent, struc
}
struct arg_type_info* info;
- if (!get_type(&info, &type_die, plib)) {
+ if (!get_type(&info, &type_die, plib, type_hash)) {
complain(parent, "Couldn't figure out array's type");
return false;
}
@@ -461,7 +457,8 @@ static bool get_array(struct arg_type_info* array_info, Dwarf_Die* parent, struc
return true;
}
-static bool get_structure(struct arg_type_info* struct_info, Dwarf_Die* parent, struct protolib* plib)
+static bool get_structure(struct arg_type_info* struct_info, Dwarf_Die* parent, struct protolib* plib,
+ struct dict* type_hash)
{
type_init_struct(struct_info);
@@ -486,7 +483,7 @@ static bool get_structure(struct arg_type_info* struct_info, Dwarf_Die* parent,
}
struct arg_type_info* member_info = NULL;
- if (!get_type(&member_info, &type_die, plib)) {
+ if (!get_type(&member_info, &type_die, plib, type_hash)) {
complain(&die, "Couldn't parse type from DWARF data");
return false;
}
@@ -500,10 +497,11 @@ static bool get_structure(struct arg_type_info* struct_info, Dwarf_Die* parent,
// Reads the type in the die into the given structure
// Returns true on sucess
-static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct protolib* plib)
+static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct protolib* plib,
+ struct dict* type_hash)
{
Dwarf_Off die_offset = dwarf_dieoffset(type_die);
- struct arg_type_info** found_type = dict_find(&type_hash, &die_offset);
+ struct arg_type_info** found_type = dict_find(type_hash, &die_offset);
if (found_type != NULL) {
*info = *found_type;
complain(type_die, "Read pre-computed type: %p", *info);
@@ -531,7 +529,7 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
case DW_TAG_base_type:
*info = type_get_simple(get_base_type(type_die));
complain(type_die, "Storing base type: %p", *info);
- dict_insert(&type_hash, &die_offset, info);
+ dict_insert(type_hash, &die_offset, info);
return true;
case DW_TAG_subroutine_type:
@@ -540,7 +538,7 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
// these, it'll get a segfault
*info = type_get_simple(ARGTYPE_VOID);
complain(type_die, "Storing subroutine type: %p", *info);
- dict_insert(&type_hash, &die_offset, info);
+ dict_insert(type_hash, &die_offset, info);
return true;
case DW_TAG_pointer_type:
@@ -549,7 +547,7 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
// the pointed-to type isn't defined, so I report a void*
*info = type_get_simple(ARGTYPE_VOID);
complain(type_die, "Storing void-pointer type: %p", *info);
- dict_insert(&type_hash, &die_offset, info);
+ dict_insert(type_hash, &die_offset, info);
return true;
}
@@ -561,8 +559,8 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
type_init_pointer(*info, NULL, 0);
complain(type_die, "Storing pointer type: %p", *info);
- dict_insert(&type_hash, &die_offset, info);
- return get_type(&(*info)->u.ptr_info.info, &next_die, plib);
+ dict_insert(type_hash, &die_offset, info);
+ return get_type(&(*info)->u.ptr_info.info, &next_die, plib, type_hash);
case DW_TAG_structure_type:
*info = calloc(1, sizeof(struct arg_type_info));
@@ -572,8 +570,8 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
}
complain(type_die, "Storing struct type: %p", *info);
- dict_insert(&type_hash, &die_offset, info);
- return get_structure(*info, type_die, plib);
+ dict_insert(type_hash, &die_offset, info);
+ return get_structure(*info, type_die, plib, type_hash);
case DW_TAG_typedef:
@@ -583,7 +581,7 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
bool res = true;
if (get_type_die(&next_die, type_die)) {
complain(type_die, "Storing const/typedef type: %p", *info);
- res = get_type(info, &next_die, plib);
+ res = get_type(info, &next_die, plib, type_hash);
} else {
// no type. Use 'void'. Normally I'd think this is bogus, but stdio
// typedefs something to void
@@ -591,7 +589,7 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
complain(type_die, "Storing void type: %p", *info);
}
if (res)
- dict_insert(&type_hash, &die_offset, info);
+ dict_insert(type_hash, &die_offset, info);
return res;
}
@@ -605,7 +603,7 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
}
complain(type_die, "Storing enum int: %p", *info);
- dict_insert(&type_hash, &die_offset, info);
+ dict_insert(type_hash, &die_offset, info);
return get_enum(*info, type_die);
case DW_TAG_array_type:
@@ -616,8 +614,8 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
}
complain(type_die, "Storing array: %p", *info);
- dict_insert(&type_hash, &die_offset, info);
- return get_array(*info, type_die, plib);
+ dict_insert(type_hash, &die_offset, info);
+ return get_array(*info, type_die, plib, type_hash);
case DW_TAG_union_type:
*info = type_get_simple(ARGTYPE_VOID);
@@ -632,7 +630,8 @@ static bool get_type(struct arg_type_info** info, Dwarf_Die* type_die, struct pr
return false;
}
-static bool get_prototype(struct prototype* proto, Dwarf_Die* subroutine, struct protolib* plib)
+static bool get_prototype(struct prototype* proto, Dwarf_Die* subroutine, struct protolib* plib,
+ struct dict* type_hash)
{
// First, look at the return type. This is stored in a DW_AT_type tag in the
// subroutine DIE. If there is no such tag, this function returns void
@@ -648,7 +647,7 @@ static bool get_prototype(struct prototype* proto, Dwarf_Die* subroutine, struct
}
proto->own_return_info = 0;
- if (!get_type(&proto->return_info, &return_type_die, plib)) {
+ if (!get_type(&proto->return_info, &return_type_die, plib, type_hash)) {
complain(subroutine, "Couldn't get return type");
return false;
}
@@ -674,7 +673,7 @@ static bool get_prototype(struct prototype* proto, Dwarf_Die* subroutine, struct
}
struct arg_type_info* arg_type_info = NULL;
- if (!get_type(&arg_type_info, &type_die, plib)) {
+ if (!get_type(&arg_type_info, &type_die, plib, type_hash)) {
complain(&arg_die, "Couldn't parse arg type from DWARF data");
return false;
}
@@ -699,6 +698,7 @@ static bool get_prototype(struct prototype* proto, Dwarf_Die* subroutine, struct
}
static bool import_subprogram(struct protolib* plib, struct library* lib,
+ struct dict* type_hash,
Dwarf_Die* die)
{
// I use the linkage function name if there is one, otherwise the
@@ -739,7 +739,7 @@ static bool import_subprogram(struct protolib* plib, struct library* lib,
}
prototype_init(proto);
- if (!get_prototype(proto, die, plib)) {
+ if (!get_prototype(proto, die, plib, type_hash)) {
complain(die, "couldn't get prototype");
return false;
}
@@ -749,6 +749,7 @@ static bool import_subprogram(struct protolib* plib, struct library* lib,
}
static bool process_die_compileunit(struct protolib* plib, struct library* lib,
+ struct dict* type_hash,
Dwarf_Die* parent)
{
Dwarf_Die die;
@@ -759,7 +760,7 @@ static bool process_die_compileunit(struct protolib* plib, struct library* lib,
while (1) {
if (dwarf_tag(&die) == DW_TAG_subprogram)
- if(!import_subprogram(plib, lib, &die))
+ if(!import_subprogram(plib, lib, type_hash, &die))
return false;
NEXT_SIBLING(&die);
@@ -770,27 +771,38 @@ static bool process_die_compileunit(struct protolib* plib, struct library* lib,
static bool import(struct protolib* plib, struct library* lib, Dwfl* dwfl)
{
+ // A map from DIE addresses (Dwarf_Off) to type structures (struct
+ // arg_type_info*). This is created and filled in at the start of each
+ // import, and deleted when the import is complete
+ struct dict type_hash;
+
dict_init(&type_hash, sizeof(Dwarf_Off), sizeof(struct arg_type_info*),
dwarf_die_hash, dwarf_die_eq, NULL);
+ bool result = true;
+
Dwarf_Addr bias;
Dwarf_Die* die = NULL;
while ((die = dwfl_nextcu(dwfl, die, &bias)) != NULL) {
if (dwarf_tag(die) == DW_TAG_compile_unit) {
- if (!process_die_compileunit(plib, lib, die)) {
+ if (!process_die_compileunit(plib, lib, &type_hash, die)) {
complain(die, "Error reading compile unit");
exit(1);
- return false;
+
+ result = false;
+ break;
}
} else {
complain(die, "DW_TAG_compile_unit expected");
exit(1);
- return false;
+
+ result = false;
+ break;
}
}
dict_destroy(&type_hash, NULL, NULL, NULL);
- return true;
+ return result;
}
bool import_DWARF_prototypes(struct library* lib)
generated by cgit v1.2.3 (git 2.25.1) at 2024-11-22 10:20:34 +0000