mirror of
https://github.com/Ed94/raddebugger.git
synced 2026-06-12 23:31:38 -07:00
deleted rdi_dump, all features of this dumper are now part of raddump
This commit is contained in:
Nikita Smith
@@ -111,7 +111,6 @@ if "%radcon%"=="1" set didbuild=1 && %compile% ..\src\radcon
|
||||
if "%raddump%"=="1" set didbuild=1 && %compile% ..\src\raddump\raddump_main.c %compile_link% %out%raddump.exe || exit /b 1
|
||||
if "%rdi_from_pdb%"=="1" set didbuild=1 && %compile% ..\src\rdi_from_pdb\rdi_from_pdb_main.c %compile_link% %out%rdi_from_pdb.exe || exit /b 1
|
||||
if "%rdi_from_dwarf%"=="1" set didbuild=1 && %compile% ..\src\rdi_from_dwarf\rdi_from_dwarf_main.c %compile_link% %out%rdi_from_dwarf.exe || exit /b 1
|
||||
if "%rdi_dump%"=="1" set didbuild=1 && %compile% ..\src\rdi_dump\rdi_dump_main.c %compile_link% %out%rdi_dump.exe || exit /b 1
|
||||
if "%rdi_breakpad_from_pdb%"=="1" set didbuild=1 && %compile% ..\src\rdi_breakpad_from_pdb\rdi_breakpad_from_pdb_main.c %compile_link% %out%rdi_breakpad_from_pdb.exe || exit /b 1
|
||||
if "%tester%"=="1" set didbuild=1 && %compile% ..\src\tester\tester_main.c %compile_link% %out%tester.exe || exit /b 1
|
||||
if "%ryan_scratch%"=="1" set didbuild=1 && %compile% ..\src\scratch\ryan_scratch.c %compile_link% %out%ryan_scratch.exe || exit /b 1
|
||||
|
||||
@@ -1,843 +0,0 @@
|
||||
// Copyright (c) 2024 Epic Games Tools
|
||||
// Licensed under the MIT license (https://opensource.org/license/mit/)
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: RDI Enum -> String Functions
|
||||
|
||||
internal String8
|
||||
rdi_string_from_reg_code_x86(U64 reg_code)
|
||||
{
|
||||
#define X(name, value) case RDI_RegCodeX86_##name: return str8_lit(#name);
|
||||
switch (reg_code) {
|
||||
RDI_RegCodeX86_XList
|
||||
}
|
||||
#undef X
|
||||
return str8_lit("");
|
||||
}
|
||||
|
||||
internal String8
|
||||
rdi_string_from_reg_code_x64(U64 reg_code)
|
||||
{
|
||||
#define X(name, value) case RDI_RegCodeX64_##name: return str8_lit(#name);
|
||||
switch (reg_code) {
|
||||
RDI_RegCodeX64_XList
|
||||
}
|
||||
#undef X
|
||||
return str8_lit("");
|
||||
}
|
||||
|
||||
internal String8
|
||||
rdi_string_from_reg_code(RDI_Arch arch, U64 reg_code)
|
||||
{
|
||||
switch (arch) {
|
||||
case RDI_Arch_NULL: break;
|
||||
case RDI_Arch_X86: return rdi_string_from_reg_code_x86(reg_code);
|
||||
case RDI_Arch_X64: return rdi_string_from_reg_code_x64(reg_code);
|
||||
default: InvalidPath;
|
||||
}
|
||||
return str8_lit("");
|
||||
}
|
||||
|
||||
internal String8
|
||||
rdi_string_from_data_section_kind(RDI_SectionKind v)
|
||||
{
|
||||
String8 result = str8_lit("<invalid RDI_SectionKind>");
|
||||
switch(v)
|
||||
{
|
||||
default:{}break;
|
||||
#define X(name, lower, type) case RDI_SectionKind_##name:{result = str8_lit(#name);}break;
|
||||
RDI_SectionKind_XList
|
||||
#undef X
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
internal String8
|
||||
rdi_string_from_arch(RDI_Arch v)
|
||||
{
|
||||
String8 result = str8_lit("<invalid RDI_Arch>");
|
||||
switch(v)
|
||||
{
|
||||
default:{}break;
|
||||
#define X(name) case RDI_Arch_##name:{result = str8_lit(#name);}break;
|
||||
RDI_Arch_XList
|
||||
#undef X
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
internal String8
|
||||
rdi_string_from_language(RDI_Language v)
|
||||
{
|
||||
String8 result = str8_lit("<invalid RDI_Language>");
|
||||
switch(v)
|
||||
{
|
||||
default:{}break;
|
||||
#define X(name) case RDI_Language_##name:{result = str8_lit(#name);}break;
|
||||
RDI_Language_XList
|
||||
#undef X
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
internal String8
|
||||
rdi_string_from_type_kind(RDI_TypeKind v)
|
||||
{
|
||||
String8 result = str8_lit("<invalid RDI_TypeKind>");
|
||||
switch(v)
|
||||
{
|
||||
default:{}break;
|
||||
#define X(name) case RDI_TypeKind_##name:{result = str8_lit(#name);}break;
|
||||
RDI_TypeKind_XList
|
||||
#undef X
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
internal String8
|
||||
rdi_string_from_member_kind(RDI_MemberKind v)
|
||||
{
|
||||
String8 result = str8_lit("<invalid RDI_MemberKind>");
|
||||
switch(v)
|
||||
{
|
||||
default:{}break;
|
||||
#define X(name) case RDI_MemberKind_##name:{result = str8_lit(#name);}break;
|
||||
RDI_MemberKind_XList
|
||||
#undef X
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
internal String8
|
||||
rdi_string_from_local_kind(RDI_LocalKind v)
|
||||
{
|
||||
String8 result = str8_lit("<invalid RDI_LocalKind>");
|
||||
switch(v)
|
||||
{
|
||||
default:{}break;
|
||||
#define X(name) case RDI_LocalKind_##name:{result = str8_lit(#name);}break;
|
||||
RDI_LocalKind_XList
|
||||
#undef X
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: RDI Flags -> String Functions
|
||||
|
||||
internal void
|
||||
rdi_stringize_binary_section_flags(Arena *arena, String8List *out, RDI_BinarySectionFlags flags)
|
||||
{
|
||||
if(flags == 0) { str8_list_push(arena, out, str8_lit("0")); }
|
||||
#define X(name) if(flags & RDI_BinarySectionFlag_##name) { str8_list_push(arena, out, str8_lit(#name " ")); }
|
||||
RDI_BinarySectionFlags_XList;
|
||||
#undef X
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_type_modifier_flags(Arena *arena, String8List *out,
|
||||
RDI_TypeModifierFlags flags)
|
||||
{
|
||||
if(flags == 0) { str8_list_push(arena, out, str8_lit("0")); }
|
||||
#define X(name) if(flags & RDI_TypeModifierFlag_##name) { str8_list_push(arena, out, str8_lit(#name " ")); }
|
||||
RDI_TypeModifierFlags_XList;
|
||||
#undef X
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_udt_flags(Arena *arena, String8List *out, RDI_UDTFlags flags)
|
||||
{
|
||||
if(flags == 0) { str8_list_push(arena, out, str8_lit("0")); }
|
||||
#define X(name) if(flags & RDI_UDTFlag_##name) { str8_list_push(arena, out, str8_lit(#name " ")); }
|
||||
RDI_UDTFlags_XList;
|
||||
#undef X
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_link_flags(Arena *arena, String8List *out, RDI_LinkFlags flags)
|
||||
{
|
||||
if(flags == 0) { str8_list_push(arena, out, str8_lit("0")); }
|
||||
#define X(name) if(flags & RDI_LinkFlag_##name) { str8_list_push(arena, out, str8_lit(#name " ")); }
|
||||
RDI_LinkFlags_XList;
|
||||
#undef X
|
||||
}
|
||||
|
||||
////////////////////////////////
|
||||
|
||||
internal String8
|
||||
rdi_format_reg_code(Arena *arena, RDI_Arch arch, U64 reg_code)
|
||||
{
|
||||
String8 result = {0};
|
||||
String8 reg_name = rdi_string_from_reg_code(arch, reg_code);
|
||||
if (reg_name.size) {
|
||||
result = push_str8f(arena, "%S", reg_name, reg_code);
|
||||
} else {
|
||||
result = push_str8f(arena, "??? (%llu)", reg_code);
|
||||
}
|
||||
return result;
|
||||
}
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: RADDBG Compound Stringize Functions
|
||||
|
||||
global char rdi_stringize_spaces[] = " ";
|
||||
|
||||
internal void
|
||||
rdi_stringize_data_sections(Arena *arena, String8List *out, RDI_Parsed *rdi, U32 indent_level)
|
||||
{
|
||||
for(U64 idx = 0; idx < rdi->sections_count; idx += 1)
|
||||
{
|
||||
RDI_SectionKind kind = (RDI_SectionKind)idx;
|
||||
RDI_Section *section = &rdi->sections[idx];
|
||||
String8 kind_str = rdi_string_from_data_section_kind(kind);
|
||||
str8_list_pushf(arena, out, "%.*sdata_section[%5I64u] = {0x%08llx, %7u, %7u} %S\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
idx, section->off, section->encoded_size, section->unpacked_size, kind_str);
|
||||
}
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_top_level_info(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_TopLevelInfo *tli, U32 indent_level)
|
||||
{
|
||||
String8 arch_str = rdi_string_from_arch(tli->arch);
|
||||
String8 exe_name = {0};
|
||||
exe_name.str = rdi_string_from_idx(rdi, tli->exe_name_string_idx, &exe_name.size);
|
||||
String8 producer_name = {0};
|
||||
producer_name.str = rdi_string_from_idx(rdi, tli->producer_name_string_idx, &producer_name.size);
|
||||
str8_list_pushf(arena, out, "%.*sarch=%S\n", indent_level, rdi_stringize_spaces, arch_str);
|
||||
str8_list_pushf(arena, out, "%.*sexe_name='%S'\n", indent_level, rdi_stringize_spaces, exe_name);
|
||||
str8_list_pushf(arena, out, "%.*svoff_max=0x%08llx\n", indent_level, rdi_stringize_spaces, tli->voff_max);
|
||||
str8_list_pushf(arena, out, "%.*sproducer_name='%S'\n", indent_level, rdi_stringize_spaces, producer_name);
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_binary_section(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_BinarySection *bin_section, U32 indent_level)
|
||||
{
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, bin_section->name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*sname='%.*s'\n", indent_level, rdi_stringize_spaces, str8_varg(name));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*sflags=", indent_level, rdi_stringize_spaces);
|
||||
rdi_stringize_binary_section_flags(arena, out, bin_section->flags);
|
||||
str8_list_pushf(arena, out, "\n");
|
||||
|
||||
str8_list_pushf(arena, out, "%.*svoff_first=0x%08x\n", indent_level, rdi_stringize_spaces, bin_section->voff_first);
|
||||
str8_list_pushf(arena, out, "%.*svoff_opl =0x%08x\n", indent_level, rdi_stringize_spaces, bin_section->voff_opl);
|
||||
str8_list_pushf(arena, out, "%.*sfoff_first=0x%08x\n", indent_level, rdi_stringize_spaces, bin_section->foff_first);
|
||||
str8_list_pushf(arena, out, "%.*sfoff_opl =0x%08x\n", indent_level, rdi_stringize_spaces, bin_section->foff_opl);
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_file_path(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_FilePathBundle *bundle, RDI_FilePathNode *file_path, U32 indent_level)
|
||||
{
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, file_path->name_string_idx, &name.size);
|
||||
U32 this_idx = (U32)(file_path - bundle->file_paths);
|
||||
if(file_path->source_file_idx == 0)
|
||||
{
|
||||
str8_list_pushf(arena, out, "%.*s[%u] '%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
this_idx, str8_varg(name));
|
||||
}
|
||||
else
|
||||
{
|
||||
str8_list_pushf(arena, out, "%.*s[%u] '%.*s'; source_file=%u\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
this_idx, str8_varg(name), file_path->source_file_idx);
|
||||
}
|
||||
|
||||
for(U32 child = file_path->first_child; child != 0;)
|
||||
{
|
||||
// get node for child
|
||||
RDI_FilePathNode *child_node = 0;
|
||||
if (child < bundle->file_path_count){
|
||||
child_node = bundle->file_paths + child;
|
||||
}
|
||||
if (child_node == 0){
|
||||
break;
|
||||
}
|
||||
|
||||
// stringize child
|
||||
rdi_stringize_file_path(arena, out, rdi, bundle, child_node, indent_level + 1);
|
||||
|
||||
// increment iterator
|
||||
child = child_node->next_sibling;
|
||||
}
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_source_file(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_SourceFile *source_file, U32 indent_level)
|
||||
{
|
||||
// file path node idx
|
||||
str8_list_pushf(arena, out, "%.*sfile_path_node_idx: %u\n", indent_level, rdi_stringize_spaces, source_file->file_path_node_idx);
|
||||
|
||||
// normal source path
|
||||
String8 path = {0};
|
||||
path.str = rdi_string_from_idx(rdi, source_file->normal_full_path_string_idx, &path.size);
|
||||
str8_list_pushf(arena, out, "%.*spath: \"%S\"\n", indent_level, rdi_stringize_spaces, path);
|
||||
|
||||
// rjf: source line map idx
|
||||
str8_list_pushf(arena, out, "%.*ssource_line_map: %u\n", indent_level, rdi_stringize_spaces, source_file->source_line_map_idx);
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_line_table(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_LineTable *line_table, U32 indent_level)
|
||||
{
|
||||
// rjf: parse line table
|
||||
RDI_ParsedLineTable parsed_line_table = {0};
|
||||
rdi_parsed_from_line_table(rdi, line_table, &parsed_line_table);
|
||||
|
||||
// rjf: stringize lines
|
||||
str8_list_pushf(arena, out, "%.*slines:\n", indent_level, rdi_stringize_spaces);
|
||||
for(U32 i = 0; i < parsed_line_table.count; i += 1)
|
||||
{
|
||||
U64 first = parsed_line_table.voffs[i];
|
||||
U64 opl = parsed_line_table.voffs[i + 1];
|
||||
RDI_Line *line = parsed_line_table.lines + i;
|
||||
RDI_Column *col = 0;
|
||||
if(i < parsed_line_table.col_count)
|
||||
{
|
||||
col = parsed_line_table.cols + i;
|
||||
}
|
||||
if(col == 0)
|
||||
{
|
||||
str8_list_pushf(arena, out, "%.*s [0x%08llx,0x%08llx) file=%u; line=%u\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
first, opl, line->file_idx, line->line_num);
|
||||
}
|
||||
else
|
||||
{
|
||||
str8_list_pushf(arena, out, "%.*s [0x%08llx,0x%08llx) file=%u; line=%u; columns=[%u,%u)\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
first, opl, line->file_idx, line->line_num,
|
||||
col->col_first, col->col_opl);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_source_line_map(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_SourceLineMap *map, U32 indent_level)
|
||||
{
|
||||
RDI_ParsedSourceLineMap line_map = {0};
|
||||
rdi_parsed_from_source_line_map(rdi, map, &line_map);
|
||||
str8_list_pushf(arena, out, "%.*slines:\n", indent_level, rdi_stringize_spaces);
|
||||
|
||||
for(U32 i = 0; i < line_map.count; i += 1)
|
||||
{
|
||||
U32 line_num = line_map.nums[i];
|
||||
U32 digit_count = 1;
|
||||
if(line_num > 0)
|
||||
{
|
||||
U32 x = line_num;
|
||||
for(;;)
|
||||
{
|
||||
x /= 10;
|
||||
if(x == 0)
|
||||
{
|
||||
break;
|
||||
}
|
||||
digit_count += 1;
|
||||
}
|
||||
}
|
||||
|
||||
str8_list_pushf(arena, out, "%.*s %u: ", indent_level, rdi_stringize_spaces, line_num);
|
||||
|
||||
U32 first = line_map.ranges[i];
|
||||
U32 opl_raw = line_map.ranges[i + 1];
|
||||
U32 opl = ClampTop(opl_raw, line_map.voff_count);
|
||||
for(U32 j = first; j < opl; j += 1)
|
||||
{
|
||||
if(j == first)
|
||||
{
|
||||
str8_list_pushf(arena, out, "0x%08x\n", line_map.voffs[j]);
|
||||
}
|
||||
else
|
||||
{
|
||||
str8_list_pushf(arena, out, "%.*s0x%08x\n",
|
||||
indent_level + digit_count + 3, rdi_stringize_spaces,
|
||||
line_map.voffs[j]);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_unit(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_Unit *unit, U32 indent_level)
|
||||
{
|
||||
String8 unit_name = {0};
|
||||
unit_name.str = rdi_string_from_idx(rdi, unit->unit_name_string_idx, &unit_name.size);
|
||||
String8 compiler_name = {0};
|
||||
compiler_name.str = rdi_string_from_idx(rdi, unit->compiler_name_string_idx, &compiler_name.size);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*sunit_name='%.*s'\n", indent_level, rdi_stringize_spaces, str8_varg(unit_name));
|
||||
str8_list_pushf(arena, out, "%.*scompiler_name='%.*s'\n", indent_level, rdi_stringize_spaces, str8_varg(compiler_name));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*ssource_file_path=%u\n", indent_level, rdi_stringize_spaces, unit->source_file_path_node);
|
||||
str8_list_pushf(arena, out, "%.*sobject_file_path=%u\n", indent_level, rdi_stringize_spaces, unit->object_file_path_node);
|
||||
str8_list_pushf(arena, out, "%.*sarchive_file_path=%u\n", indent_level, rdi_stringize_spaces, unit->archive_file_path_node);
|
||||
str8_list_pushf(arena, out, "%.*sbuild_path=%u\n", indent_level, rdi_stringize_spaces, unit->build_path_node);
|
||||
|
||||
String8 language_str = rdi_string_from_language(unit->language);
|
||||
str8_list_pushf(arena, out, "%.*slanguage=%.*s\n", indent_level, rdi_stringize_spaces, str8_varg(language_str));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*sline_table_idx=%u\n", indent_level, rdi_stringize_spaces, unit->line_table_idx);
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_type_node(Arena *arena, String8List *out, RDI_Parsed *rdi,
|
||||
RDI_TypeNode *type, U32 indent_level){
|
||||
RDI_TypeKind kind = type->kind;
|
||||
String8 type_kind_str = rdi_string_from_type_kind(kind);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*skind=%.*s\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(type_kind_str));
|
||||
|
||||
switch (type->kind){
|
||||
case RDI_TypeKind_Modifier:
|
||||
{
|
||||
str8_list_pushf(arena, out, "%.*sflags=", indent_level, rdi_stringize_spaces);
|
||||
rdi_stringize_type_modifier_flags(arena, out, type->flags);
|
||||
str8_list_push(arena, out, str8_lit("\n"));
|
||||
}break;
|
||||
|
||||
default:
|
||||
{
|
||||
if (type->flags != 0){
|
||||
str8_list_pushf(arena, out, "%.*sflags=%x (missing stringizer path)",
|
||||
indent_level, rdi_stringize_spaces, type->flags);
|
||||
}
|
||||
}break;
|
||||
}
|
||||
|
||||
str8_list_pushf(arena, out, "%.*sbyte_size=%u\n",
|
||||
indent_level, rdi_stringize_spaces, type->byte_size);
|
||||
|
||||
if (RDI_TypeKind_FirstBuiltIn <= kind &&
|
||||
kind <= RDI_TypeKind_LastBuiltIn){
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, type->built_in.name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*sbuilt_in.name='%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(name));
|
||||
}
|
||||
|
||||
else if (RDI_TypeKind_FirstConstructed <= kind &&
|
||||
kind <= RDI_TypeKind_LastConstructed){
|
||||
str8_list_pushf(arena, out, "%.*sconstructed.direct_type=%u\n",
|
||||
indent_level, rdi_stringize_spaces, type->constructed.direct_type_idx);
|
||||
|
||||
if (type->kind == RDI_TypeKind_Array){
|
||||
str8_list_pushf(arena, out, "%.*sconstructed.array_count=%u\n",
|
||||
indent_level, rdi_stringize_spaces, type->constructed.count);
|
||||
}
|
||||
|
||||
if (type->kind == RDI_TypeKind_Function ||
|
||||
type->kind == RDI_TypeKind_Method){
|
||||
U32 run_first = type->constructed.param_idx_run_first;
|
||||
U32 run_count_raw = type->constructed.count;
|
||||
|
||||
U32 run_count = 0;
|
||||
U32 *run = rdi_idx_run_from_first_count(rdi, run_first, run_count_raw, &run_count);
|
||||
|
||||
U32 this_type_idx = 0;
|
||||
if (run_count > 0 && type->kind == RDI_TypeKind_Method){
|
||||
this_type_idx = run[0];
|
||||
run += 1;
|
||||
run_count -= 1;
|
||||
}
|
||||
|
||||
if (this_type_idx != 0){
|
||||
str8_list_pushf(arena, out, "%.*sconstructed.this_type=%u\n",
|
||||
indent_level, rdi_stringize_spaces, this_type_idx);
|
||||
}
|
||||
|
||||
str8_list_pushf(arena, out, "%.*sconstructed.params={",
|
||||
indent_level, rdi_stringize_spaces);
|
||||
|
||||
if (run_count > 0){
|
||||
U32 last = run_count - 1;
|
||||
for (U32 j = 0; j < last; j += 1){
|
||||
str8_list_pushf(arena, out, " %u,", run[j]);
|
||||
}
|
||||
str8_list_pushf(arena, out, " %u ", run[last]);
|
||||
}
|
||||
|
||||
str8_list_push(arena, out, str8_lit("}\n"));
|
||||
}
|
||||
}
|
||||
|
||||
else if (RDI_TypeKind_FirstUserDefined <= kind &&
|
||||
kind <= RDI_TypeKind_LastUserDefined){
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, type->user_defined.name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*suser_defined.name='%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(name));
|
||||
str8_list_pushf(arena, out, "%.*suser_defined.direct_type=%u\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
type->user_defined.direct_type_idx);
|
||||
str8_list_pushf(arena, out, "%.*suser_defined.udt=%u\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
type->user_defined.udt_idx);
|
||||
}
|
||||
|
||||
else if (kind == RDI_TypeKind_Bitfield){
|
||||
str8_list_pushf(arena, out, "%.*sbitfield.off=%u\n",
|
||||
indent_level, rdi_stringize_spaces, type->bitfield.off);
|
||||
str8_list_pushf(arena, out, "%.*sbitfield.size=%u\n",
|
||||
indent_level, rdi_stringize_spaces, type->bitfield.size);
|
||||
}
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_udt(Arena *arena, String8List *out, RDI_Parsed *rdi,
|
||||
RDI_UDTMemberBundle *member_bundle, RDI_UDT *udt,
|
||||
U32 indent_level){
|
||||
str8_list_pushf(arena, out, "%.*sself_type=%u\n",
|
||||
indent_level, rdi_stringize_spaces, udt->self_type_idx);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*sflags=", indent_level, rdi_stringize_spaces);
|
||||
rdi_stringize_udt_flags(arena, out, udt->flags);
|
||||
str8_list_push(arena, out, str8_lit("\n"));
|
||||
|
||||
if (udt->file_idx != 0){
|
||||
str8_list_pushf(arena, out, "%.*sloc={file=%u; line=%u; col=%u}\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
udt->file_idx, udt->line, udt->col);
|
||||
}
|
||||
|
||||
// enum members
|
||||
if (udt->flags & RDI_UDTFlag_EnumMembers){
|
||||
U32 first_raw = udt->member_first;
|
||||
U32 opl_raw = first_raw + udt->member_count;
|
||||
U32 opl = ClampTop(opl_raw, member_bundle->enum_member_count);
|
||||
U32 first = ClampTop(first_raw, opl);
|
||||
|
||||
if (first < opl){
|
||||
str8_list_pushf(arena, out, "%.*smembers={\n", indent_level, rdi_stringize_spaces);
|
||||
RDI_EnumMember *enum_member = member_bundle->enum_members + first;
|
||||
for (U32 i = first; i < opl; i += 1, enum_member += 1){
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, enum_member->name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*s '%.*s' %llu\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
str8_varg(name), enum_member->val);
|
||||
}
|
||||
str8_list_pushf(arena, out, "%.*s}\n", indent_level, rdi_stringize_spaces);
|
||||
}
|
||||
}
|
||||
|
||||
// field members
|
||||
else{
|
||||
U32 first_raw = udt->member_first;
|
||||
U32 opl_raw = first_raw + udt->member_count;
|
||||
U32 opl = ClampTop(opl_raw, member_bundle->member_count);
|
||||
U32 first = ClampTop(first_raw, opl);
|
||||
|
||||
if (first < opl){
|
||||
str8_list_pushf(arena, out, "%.*smembers={\n", indent_level, rdi_stringize_spaces);
|
||||
RDI_Member *member = member_bundle->members + first;
|
||||
for (U32 i = first; i < opl; i += 1, member += 1){
|
||||
str8_list_pushf(arena, out, "%.*s {\n", indent_level, rdi_stringize_spaces);
|
||||
|
||||
String8 kind_str = rdi_string_from_member_kind(member->kind);
|
||||
str8_list_pushf(arena, out, "%.*s kind=%.*s\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(kind_str));
|
||||
|
||||
if (member->name_string_idx != 0){
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, member->name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*s name='%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(name));
|
||||
}
|
||||
|
||||
str8_list_pushf(arena, out, "%.*s type=%u\n",
|
||||
indent_level, rdi_stringize_spaces, member->type_idx);
|
||||
str8_list_pushf(arena, out, "%.*s off=%u\n",
|
||||
indent_level, rdi_stringize_spaces, member->off);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*s }\n", indent_level, rdi_stringize_spaces);
|
||||
}
|
||||
str8_list_pushf(arena, out, "%.*s}\n", indent_level, rdi_stringize_spaces);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_global_variable(Arena *arena, String8List *out, RDI_Parsed *rdi,
|
||||
RDI_GlobalVariable *global_variable, U32 indent_level){
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, global_variable->name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*sname='%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(name));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*slink_flags=", indent_level, rdi_stringize_spaces);
|
||||
rdi_stringize_link_flags(arena, out, global_variable->link_flags);
|
||||
str8_list_push(arena, out, str8_lit("\n"));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*svoff=0x%08llx\n",
|
||||
indent_level, rdi_stringize_spaces, global_variable->voff);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*stype_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, global_variable->type_idx);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*scontainer_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, global_variable->container_idx);
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_thread_variable(Arena *arena, String8List *out, RDI_Parsed *rdi,
|
||||
RDI_ThreadVariable *thread_var,
|
||||
U32 indent_level){
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, thread_var->name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*sname='%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(name));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*slink_flags=", indent_level, rdi_stringize_spaces);
|
||||
rdi_stringize_link_flags(arena, out, thread_var->link_flags);
|
||||
str8_list_push(arena, out, str8_lit("\n"));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*stls_off=0x%08x\n",
|
||||
indent_level, rdi_stringize_spaces, thread_var->tls_off);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*stype_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, thread_var->type_idx);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*scontainer_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, thread_var->container_idx);
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_procedure(Arena *arena, String8List *out, RDI_Parsed *rdi,
|
||||
RDI_Procedure *proc, U32 indent_level){
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, proc->name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*sname='%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(name));
|
||||
|
||||
String8 link_name = {0};
|
||||
link_name.str = rdi_string_from_idx(rdi, proc->link_name_string_idx, &link_name.size);
|
||||
str8_list_pushf(arena, out, "%.*slink_name='%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(link_name));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*slink_flags=", indent_level, rdi_stringize_spaces);
|
||||
rdi_stringize_link_flags(arena, out, proc->link_flags);
|
||||
str8_list_push(arena, out, str8_lit("\n"));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*stype_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, proc->type_idx);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*sroot_scope_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, proc->root_scope_idx);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*scontainer_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, proc->container_idx);
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_scope(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_Arch arch,
|
||||
RDI_ScopeBundle *bundle, RDI_Scope *scope, U32 indent_level)
|
||||
{
|
||||
Temp scratch = scratch_begin(&arena, 1);
|
||||
|
||||
U32 this_idx = (U32)(scope - bundle->scopes);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*s[%u]\n",
|
||||
indent_level, rdi_stringize_spaces, this_idx);
|
||||
|
||||
str8_list_pushf(arena, out, "%.*s proc_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, scope->proc_idx);
|
||||
|
||||
if(scope->inline_site_idx != 0)
|
||||
{
|
||||
str8_list_pushf(arena, out, "%.*s inline_site_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, scope->inline_site_idx);
|
||||
}
|
||||
|
||||
// voff ranges
|
||||
{
|
||||
U32 voff_range_first_raw = scope->voff_range_first;
|
||||
U32 voff_range_opl_raw = scope->voff_range_opl;
|
||||
U32 voff_range_opl_clamped = ClampTop(voff_range_opl_raw, bundle->scope_voff_count);
|
||||
U32 voff_range_first = ClampTop(voff_range_first_raw, voff_range_opl_clamped);
|
||||
U32 voff_range_opl = voff_range_opl_clamped;
|
||||
if ((voff_range_opl - voff_range_first) % 2 == 1){
|
||||
voff_range_opl -= 1;
|
||||
}
|
||||
|
||||
U64 *voff_ptr = bundle->scope_voffs + voff_range_first;
|
||||
|
||||
if (voff_range_opl - voff_range_first > 2){
|
||||
str8_list_pushf(arena, out, "%.*s voff_ranges={\n",
|
||||
indent_level, rdi_stringize_spaces);
|
||||
for (U32 i = voff_range_first; i < voff_range_opl; i += 2, voff_ptr += 2){
|
||||
str8_list_pushf(arena, out, "%.*s [0x%08llx, 0x%08llx)\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
voff_ptr[0], voff_ptr[1]);
|
||||
}
|
||||
str8_list_pushf(arena, out, "%.*s }\n",
|
||||
indent_level, rdi_stringize_spaces);
|
||||
}
|
||||
else if (voff_range_opl - voff_range_first == 2){
|
||||
str8_list_pushf(arena, out, "%.*s voff_range=[0x%08llx, 0x%08llx)\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
voff_ptr[0], voff_ptr[1]);
|
||||
}
|
||||
}
|
||||
|
||||
// locals
|
||||
{
|
||||
U32 local_first = scope->local_first;
|
||||
U32 local_opl_raw = local_first + scope->local_count;
|
||||
U32 local_opl = ClampTop(local_opl_raw, bundle->local_count);
|
||||
|
||||
if (local_first < local_opl){
|
||||
RDI_Local *local_ptr = bundle->locals + local_first;
|
||||
for (U32 i = local_first; i < local_opl; i += 1, local_ptr += 1){
|
||||
str8_list_pushf(arena, out, "%.*s local[%u]\n",
|
||||
indent_level, rdi_stringize_spaces, i);
|
||||
|
||||
String8 local_kind_str = rdi_string_from_local_kind(local_ptr->kind);
|
||||
str8_list_pushf(arena, out, "%.*s kind=%.*s\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(local_kind_str));
|
||||
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, local_ptr->name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*s name='%.*s'\n",
|
||||
indent_level, rdi_stringize_spaces, str8_varg(name));
|
||||
|
||||
str8_list_pushf(arena, out, "%.*s type_idx=%u\n",
|
||||
indent_level, rdi_stringize_spaces, local_ptr->type_idx);
|
||||
|
||||
U32 location_first = local_ptr->location_first;
|
||||
U32 location_opl_raw = local_ptr->location_opl;
|
||||
U32 location_opl = ClampTop(location_opl_raw, bundle->location_block_count);
|
||||
|
||||
if (location_first < location_opl){
|
||||
str8_list_pushf(arena, out, "%.*s locations:\n", indent_level, rdi_stringize_spaces);
|
||||
RDI_LocationBlock *block_ptr = bundle->location_blocks + location_first;
|
||||
for (U32 j = location_first; j < location_opl; j += 1, block_ptr += 1){
|
||||
if (block_ptr->scope_off_first == 0 && block_ptr->scope_off_opl == max_U32){
|
||||
str8_list_pushf(arena, out, "%.*s case *always*:\n", indent_level, rdi_stringize_spaces);
|
||||
}
|
||||
else{
|
||||
str8_list_pushf(arena, out, "%.*s case [0x%08x, 0x%08x):\n",
|
||||
indent_level, rdi_stringize_spaces,
|
||||
block_ptr->scope_off_first, block_ptr->scope_off_opl);
|
||||
}
|
||||
|
||||
if (block_ptr->location_data_off >= bundle->location_data_size){
|
||||
str8_list_pushf(arena, out, "%.*s <bad-location-data-offset>\n",
|
||||
indent_level, rdi_stringize_spaces);
|
||||
}
|
||||
else{
|
||||
str8_list_pushf(arena, out, "%.*s ", indent_level, rdi_stringize_spaces);
|
||||
|
||||
U8 *loc_data_opl = bundle->location_data + bundle->location_data_size;
|
||||
U8 *loc_base_ptr = bundle->location_data + block_ptr->location_data_off;
|
||||
RDI_LocationKind kind = (RDI_LocationKind)*loc_base_ptr;
|
||||
switch (kind){
|
||||
default:
|
||||
{
|
||||
str8_list_pushf(arena, out, "<invalid-location-kind>\n");
|
||||
}break;
|
||||
|
||||
case RDI_LocationKind_AddrBytecodeStream:
|
||||
{
|
||||
str8_list_pushf(arena, out, "AddrBytecodeStream\n");
|
||||
str8_list_pushf(arena, out, "%.*s ", indent_level, rdi_stringize_spaces);
|
||||
U8 *bytecode_ptr = loc_base_ptr + 1;
|
||||
for (;bytecode_ptr < loc_data_opl && *bytecode_ptr != 0; bytecode_ptr += 1){
|
||||
str8_list_pushf(arena, out, "%02x ", *bytecode_ptr);
|
||||
}
|
||||
str8_list_pushf(arena, out, "\n");
|
||||
}break;
|
||||
|
||||
case RDI_LocationKind_ValBytecodeStream:
|
||||
{
|
||||
str8_list_pushf(arena, out, "ValBytecodeStream\n");
|
||||
str8_list_pushf(arena, out, "%.*s ", indent_level, rdi_stringize_spaces);
|
||||
U8 *bytecode_ptr = loc_base_ptr + 1;
|
||||
for (;bytecode_ptr < loc_data_opl && *bytecode_ptr != 0; bytecode_ptr += 1){
|
||||
str8_list_pushf(arena, out, "%02x ", *bytecode_ptr);
|
||||
}
|
||||
str8_list_pushf(arena, out, "\n");
|
||||
}break;
|
||||
|
||||
case RDI_LocationKind_AddrRegPlusU16:
|
||||
{
|
||||
if (loc_base_ptr + sizeof(RDI_LocationRegPlusU16) > loc_data_opl){
|
||||
str8_list_pushf(arena, out, "AddrRegPlusU16( <invalid-encoding> )\n");
|
||||
}
|
||||
else{
|
||||
RDI_LocationRegPlusU16 *loc = (RDI_LocationRegPlusU16*)loc_base_ptr;
|
||||
str8_list_pushf(arena, out, "AddrRegPlusU16(reg: %S, off: %u)\n",
|
||||
rdi_format_reg_code(scratch.arena, arch, loc->reg_code), loc->offset);
|
||||
}
|
||||
}break;
|
||||
|
||||
case RDI_LocationKind_AddrAddrRegPlusU16:
|
||||
{
|
||||
if (loc_base_ptr + sizeof(RDI_LocationRegPlusU16) > loc_data_opl){
|
||||
str8_list_pushf(arena, out, "AddrAddrRegPlusU16( <invalid-encoding> )\n");
|
||||
}
|
||||
else{
|
||||
RDI_LocationRegPlusU16 *loc = (RDI_LocationRegPlusU16*)loc_base_ptr;
|
||||
str8_list_pushf(arena, out, "AddrAddrRegisterPlusU16(reg: %S, off: %u)\n",
|
||||
rdi_format_reg_code(scratch.arena, arch, loc->reg_code), loc->offset);
|
||||
}
|
||||
}break;
|
||||
|
||||
case RDI_LocationKind_ValReg:
|
||||
{
|
||||
if (loc_base_ptr + sizeof(RDI_LocationReg) > loc_data_opl){
|
||||
str8_list_pushf(arena, out, "ValReg( <invalid-encoding> )\n");
|
||||
}
|
||||
else{
|
||||
RDI_LocationReg *loc = (RDI_LocationReg*)loc_base_ptr;
|
||||
str8_list_pushf(arena, out, "ValReg(reg: %S)\n", rdi_format_reg_code(scratch.arena, arch, loc->reg_code));
|
||||
}
|
||||
}break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
// TODO(allen): static locals
|
||||
|
||||
for (U32 child = scope->first_child_scope_idx;
|
||||
child != 0;){
|
||||
// get scope for child
|
||||
RDI_Scope *child_scope = 0;
|
||||
if (child < bundle->scope_count){
|
||||
child_scope = bundle->scopes + child;
|
||||
}
|
||||
if (child_scope == 0){
|
||||
break;
|
||||
}
|
||||
|
||||
// stringize child
|
||||
rdi_stringize_scope(arena, out, rdi, arch, bundle, child_scope, indent_level + 1);
|
||||
|
||||
// increment iterator
|
||||
child = child_scope->next_sibling_scope_idx;
|
||||
}
|
||||
|
||||
str8_list_pushf(arena, out, "%.*s[/%u]\n",
|
||||
indent_level, rdi_stringize_spaces, this_idx);
|
||||
|
||||
scratch_end(scratch);
|
||||
}
|
||||
|
||||
internal void
|
||||
rdi_stringize_inline_site(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_InlineSite *inline_site, U32 indent_level)
|
||||
{
|
||||
String8 name = {0};
|
||||
name.str = rdi_string_from_idx(rdi, inline_site->name_string_idx, &name.size);
|
||||
str8_list_pushf(arena, out, "%.*sname='%S'\n", indent_level, rdi_stringize_spaces, name);
|
||||
str8_list_pushf(arena, out, "%.*stype_idx=%u\n", indent_level, rdi_stringize_spaces, inline_site->type_idx);
|
||||
str8_list_pushf(arena, out, "%.*sowner_type_idx=%u\n", indent_level, rdi_stringize_spaces, inline_site->owner_type_idx);
|
||||
str8_list_pushf(arena, out, "%.*sline_table_idx=%u\n", indent_level, rdi_stringize_spaces, inline_site->line_table_idx);
|
||||
}
|
||||
@@ -1,85 +0,0 @@
|
||||
// Copyright (c) 2024 Epic Games Tools
|
||||
// Licensed under the MIT license (https://opensource.org/license/mit/)
|
||||
|
||||
#ifndef RDI_DUMP_H
|
||||
#define RDI_DUMP_H
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: RADDBG Stringize Helper Types
|
||||
|
||||
typedef struct RDI_FilePathBundle RDI_FilePathBundle;
|
||||
struct RDI_FilePathBundle
|
||||
{
|
||||
RDI_FilePathNode *file_paths;
|
||||
U64 file_path_count;
|
||||
};
|
||||
|
||||
typedef struct RDI_UDTMemberBundle RDI_UDTMemberBundle;
|
||||
struct RDI_UDTMemberBundle
|
||||
{
|
||||
RDI_Member *members;
|
||||
RDI_EnumMember *enum_members;
|
||||
U32 member_count;
|
||||
U32 enum_member_count;
|
||||
};
|
||||
|
||||
typedef struct RDI_ScopeBundle RDI_ScopeBundle;
|
||||
struct RDI_ScopeBundle
|
||||
{
|
||||
RDI_Scope *scopes;
|
||||
U64 *scope_voffs;
|
||||
RDI_Local *locals;
|
||||
RDI_LocationBlock *location_blocks;
|
||||
U8 *location_data;
|
||||
U32 scope_count;
|
||||
U32 scope_voff_count;
|
||||
U32 local_count;
|
||||
U32 location_block_count;
|
||||
U32 location_data_size;
|
||||
};
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: RDI Enum -> String Functions
|
||||
|
||||
internal String8 rdi_string_from_reg_code_x86(U64 reg_code);
|
||||
internal String8 rdi_string_from_reg_code_x64(U64 reg_code);
|
||||
internal String8 rdi_string_from_reg_code(RDI_Arch arch, U64 reg_code);
|
||||
internal String8 rdi_string_from_data_section_kind(RDI_SectionKind v);
|
||||
internal String8 rdi_string_from_arch(RDI_Arch v);
|
||||
internal String8 rdi_string_from_language(RDI_Language v);
|
||||
internal String8 rdi_string_from_type_kind(RDI_TypeKind v);
|
||||
internal String8 rdi_string_from_member_kind(RDI_MemberKind v);
|
||||
internal String8 rdi_string_from_local_kind(RDI_LocalKind v);
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: RDI Flags -> String Functions
|
||||
|
||||
internal void rdi_stringize_binary_section_flags(Arena *arena, String8List *out, RDI_BinarySectionFlags flags);
|
||||
internal void rdi_stringize_type_modifier_flags(Arena *arena, String8List *out, RDI_TypeModifierFlags flags);
|
||||
internal void rdi_stringize_udt_flags(Arena *arena, String8List *out, RDI_UDTFlags flags);
|
||||
internal void rdi_stringize_link_flags(Arena *arena, String8List *out, RDI_LinkFlags flags);
|
||||
|
||||
////////////////////////////////
|
||||
|
||||
internal String8 rdi_format_reg_code(Arena *arena, RDI_Arch arch, U64 reg_code);
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: RDI Compound Stringize Functions
|
||||
|
||||
internal void rdi_stringize_data_sections(Arena *arena, String8List *out, RDI_Parsed *rdi, U32 indent_level);
|
||||
internal void rdi_stringize_top_level_info(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_TopLevelInfo *tli, U32 indent_level);
|
||||
internal void rdi_stringize_binary_section(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_BinarySection *bin_section, U32 indent_level);
|
||||
internal void rdi_stringize_file_path(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_FilePathBundle *bundle, RDI_FilePathNode *file_path, U32 indent_level);
|
||||
internal void rdi_stringize_source_file(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_SourceFile *source_file, U32 indent_level);
|
||||
internal void rdi_stringize_line_table(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_LineTable *line_table, U32 indent_level);
|
||||
internal void rdi_stringize_source_line_map(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_SourceLineMap *map, U32 indent_level);
|
||||
internal void rdi_stringize_unit(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_Unit *unit, U32 indent_level);
|
||||
internal void rdi_stringize_type_node(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_TypeNode *type, U32 indent_level);
|
||||
internal void rdi_stringize_udt(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_UDTMemberBundle *bundle, RDI_UDT *udt, U32 indent_level);
|
||||
internal void rdi_stringize_global_variable(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_GlobalVariable *global_variable, U32 indent_level);
|
||||
internal void rdi_stringize_thread_variable(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_ThreadVariable *thread_var, U32 indent_level);
|
||||
internal void rdi_stringize_procedure(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_Procedure *proc, U32 indent_level);
|
||||
internal void rdi_stringize_scope(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_Arch arch, RDI_ScopeBundle *bundle, RDI_Scope *scope, U32 indent_level);
|
||||
internal void rdi_stringize_inline_site(Arena *arena, String8List *out, RDI_Parsed *rdi, RDI_InlineSite *inline_site, U32 indent_level);
|
||||
|
||||
#endif // RDI_DUMP_H
|
||||
@@ -1,515 +0,0 @@
|
||||
// Copyright (c) 2024 Epic Games Tools
|
||||
// Licensed under the MIT license (https://opensource.org/license/mit/)
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: Build Options
|
||||
|
||||
#define BUILD_TITLE "rdi_dump"
|
||||
#define BUILD_CONSOLE_INTERFACE 1
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: Includes
|
||||
|
||||
//- rjf: [lib]
|
||||
#include "third_party/rad_lzb_simple/rad_lzb_simple.h"
|
||||
#include "third_party/rad_lzb_simple/rad_lzb_simple.c"
|
||||
|
||||
//- rjf: [h]
|
||||
#include "base/base_inc.h"
|
||||
#include "os/os_inc.h"
|
||||
#include "rdi_format/rdi_format_local.h"
|
||||
#include "rdi_dump.h"
|
||||
|
||||
//- rjf: [c]
|
||||
#include "base/base_inc.c"
|
||||
#include "os/os_inc.c"
|
||||
#include "rdi_format/rdi_format_local.c"
|
||||
#include "rdi_dump.c"
|
||||
|
||||
////////////////////////////////
|
||||
//~ rjf: Entry Point
|
||||
|
||||
internal void
|
||||
entry_point(CmdLine *cmd_line)
|
||||
{
|
||||
//////////////////////////////
|
||||
//- rjf: set up
|
||||
//
|
||||
Arena *arena = arena_alloc();
|
||||
String8List errors = {0};
|
||||
|
||||
//////////////////////////////
|
||||
//- rjf: extract command line parameters
|
||||
//
|
||||
typedef U32 DumpFlags;
|
||||
enum
|
||||
{
|
||||
DumpFlag_DataSections = (1<<0),
|
||||
DumpFlag_TopLevelInfo = (1<<1),
|
||||
DumpFlag_BinarySections = (1<<2),
|
||||
DumpFlag_FilePaths = (1<<3),
|
||||
DumpFlag_SourceFiles = (1<<4),
|
||||
DumpFlag_LineTables = (1<<5),
|
||||
DumpFlag_SourceLineMaps = (1<<6),
|
||||
DumpFlag_Units = (1<<7),
|
||||
DumpFlag_UnitVMap = (1<<8),
|
||||
DumpFlag_TypeNodes = (1<<9),
|
||||
DumpFlag_UDTs = (1<<10),
|
||||
DumpFlag_GlobalVariables = (1<<11),
|
||||
DumpFlag_GlobalVMap = (1<<12),
|
||||
DumpFlag_ThreadVariables = (1<<13),
|
||||
DumpFlag_Procedures = (1<<14),
|
||||
DumpFlag_Scopes = (1<<15),
|
||||
DumpFlag_ScopeVMap = (1<<16),
|
||||
DumpFlag_InlineSites = (1<<17),
|
||||
DumpFlag_NameMaps = (1<<18),
|
||||
DumpFlag_Strings = (1<<19),
|
||||
};
|
||||
String8 input_name = {0};
|
||||
DumpFlags dump_flags = (U32)0xffffffff;
|
||||
{
|
||||
// rjf: extract input file path
|
||||
input_name = str8_list_first(&cmd_line->inputs);
|
||||
|
||||
// rjf: extract "only" options
|
||||
{
|
||||
String8List dump_options = cmd_line_strings(cmd_line, str8_lit("only"));
|
||||
if(dump_options.first != 0)
|
||||
{
|
||||
dump_flags = 0;
|
||||
for(String8Node *n = dump_options.first; n != 0; n = n->next)
|
||||
{
|
||||
if(0){}
|
||||
else if(str8_match(n->string, str8_lit("data_sections"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_DataSections; }
|
||||
else if(str8_match(n->string, str8_lit("top_level_info"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_TopLevelInfo; }
|
||||
else if(str8_match(n->string, str8_lit("binary_sections"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_BinarySections; }
|
||||
else if(str8_match(n->string, str8_lit("file_paths"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_FilePaths; }
|
||||
else if(str8_match(n->string, str8_lit("source_files"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_SourceFiles; }
|
||||
else if(str8_match(n->string, str8_lit("line_tables"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_LineTables; }
|
||||
else if(str8_match(n->string, str8_lit("source_line_maps"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_SourceLineMaps; }
|
||||
else if(str8_match(n->string, str8_lit("units"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_Units; }
|
||||
else if(str8_match(n->string, str8_lit("unit_vmap"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_UnitVMap; }
|
||||
else if(str8_match(n->string, str8_lit("type_nodes"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_TypeNodes; }
|
||||
else if(str8_match(n->string, str8_lit("udt_data"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_UDTs; }
|
||||
else if(str8_match(n->string, str8_lit("global_variables"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_GlobalVariables; }
|
||||
else if(str8_match(n->string, str8_lit("global_vmap"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_GlobalVMap; }
|
||||
else if(str8_match(n->string, str8_lit("thread_variables"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_ThreadVariables; }
|
||||
else if(str8_match(n->string, str8_lit("procedures"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_Procedures; }
|
||||
else if(str8_match(n->string, str8_lit("scopes"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_Scopes; }
|
||||
else if(str8_match(n->string, str8_lit("scope_vmap"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_ScopeVMap; }
|
||||
else if(str8_match(n->string, str8_lit("inline_sites"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_InlineSites; }
|
||||
else if(str8_match(n->string, str8_lit("name_maps"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_NameMaps; }
|
||||
else if(str8_match(n->string, str8_lit("strings"), StringMatchFlag_CaseInsensitive)) { dump_flags |= DumpFlag_Strings; }
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
//////////////////////////////
|
||||
//- rjf: load file
|
||||
//
|
||||
String8 input_data = os_data_from_file_path(arena, input_name);
|
||||
if(input_name.size == 0)
|
||||
{
|
||||
str8_list_pushf(arena, &errors, "error (input): No input RDI file specified.");
|
||||
}
|
||||
else if(input_data.size == 0)
|
||||
{
|
||||
str8_list_pushf(arena, &errors, "error (input): No input RDI file successfully loaded; either the path or file contents are invalid.");
|
||||
}
|
||||
|
||||
//////////////////////////////
|
||||
//- rjf: obtain initial rdi parse
|
||||
//
|
||||
RDI_Parsed rdi_ = {0};
|
||||
RDI_Parsed *rdi = &rdi_;
|
||||
RDI_ParseStatus status = rdi_parse(input_data.str, input_data.size, rdi);
|
||||
|
||||
//////////////////////////////
|
||||
//- rjf: decompress rdi if necessary
|
||||
//
|
||||
{
|
||||
U64 decompressed_size = rdi_decompressed_size_from_parsed(rdi);
|
||||
if(decompressed_size > input_data.size)
|
||||
{
|
||||
U8 *decompressed_data = push_array_no_zero(arena, U8, decompressed_size);
|
||||
rdi_decompress_parsed(decompressed_data, decompressed_size, rdi);
|
||||
status = rdi_parse(decompressed_data, decompressed_size, rdi);
|
||||
}
|
||||
}
|
||||
|
||||
//////////////////////////////
|
||||
//- rjf: error on bad parse status
|
||||
//
|
||||
if(status != RDI_ParseStatus_Good)
|
||||
{
|
||||
str8_list_pushf(arena, &errors, "error (input): RDI file could not be successfully decoded.");
|
||||
}
|
||||
|
||||
//////////////////////////////
|
||||
//- rjf: output error strings to stderr
|
||||
//
|
||||
for(String8Node *n = errors.first; n != 0; n = n->next)
|
||||
{
|
||||
fwrite(n->string.str, 1, n->string.size, stderr);
|
||||
fprintf(stderr, "\n");
|
||||
}
|
||||
|
||||
//////////////////////////////
|
||||
//- rjf: build dump strings
|
||||
//
|
||||
String8List dump = {0};
|
||||
if(errors.node_count == 0)
|
||||
{
|
||||
//- rjf: DATA SECTIONS
|
||||
if(dump_flags & DumpFlag_DataSections)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# DATA SECTIONS:\n");
|
||||
rdi_stringize_data_sections(arena, &dump, rdi, 1);
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: TOP LEVEL INFO
|
||||
RDI_TopLevelInfo *tli = rdi_element_from_name_idx(rdi, TopLevelInfo, 0);
|
||||
if(dump_flags & DumpFlag_TopLevelInfo)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# TOP LEVEL INFO:\n");
|
||||
rdi_stringize_top_level_info(arena, &dump, rdi, tli, 1);
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: BINARY SECTIONS
|
||||
if(dump_flags & DumpFlag_BinarySections)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# BINARY SECTIONS:\n");
|
||||
U64 count = 0;
|
||||
RDI_BinarySection *v = rdi_table_from_name(rdi, BinarySections, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " section[%I64u]:\n", idx);
|
||||
rdi_stringize_binary_section(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: FILE PATHS
|
||||
if(dump_flags & DumpFlag_FilePaths)
|
||||
{
|
||||
RDI_FilePathBundle file_path_bundle = {0};
|
||||
file_path_bundle.file_paths = rdi_table_from_name(rdi, FilePathNodes, &file_path_bundle.file_path_count);
|
||||
str8_list_pushf(arena, &dump, "# FILE PATHS\n");
|
||||
RDI_FilePathNode *ptr = file_path_bundle.file_paths;
|
||||
for(U32 i = 0; i < file_path_bundle.file_path_count; i += 1, ptr += 1)
|
||||
{
|
||||
if(ptr->parent_path_node == 0)
|
||||
{
|
||||
rdi_stringize_file_path(arena, &dump, rdi, &file_path_bundle, ptr, 1);
|
||||
}
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: SOURCE FILES
|
||||
if(dump_flags & DumpFlag_SourceFiles)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# SOURCE FILES\n");
|
||||
U64 count = 0;
|
||||
RDI_SourceFile *v = rdi_table_from_name(rdi, SourceFiles, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " source_file[%I64u]:\n", idx);
|
||||
rdi_stringize_source_file(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: LINE TABLES
|
||||
if(dump_flags & DumpFlag_LineTables)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# LINE TABLES\n");
|
||||
U64 count = 0;
|
||||
RDI_LineTable *v = rdi_table_from_name(rdi, LineTables, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " line_table[%I64u]:\n", idx);
|
||||
rdi_stringize_line_table(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: SOURCE LINE MAPS
|
||||
if(dump_flags & DumpFlag_SourceLineMaps)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# SOURCE LINE MAPS\n");
|
||||
U64 count = 0;
|
||||
RDI_SourceLineMap *v = rdi_table_from_name(rdi, SourceLineMaps, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " source_line_map[%I64u]:\n", idx);
|
||||
rdi_stringize_source_line_map(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: UNITS
|
||||
if(dump_flags & DumpFlag_Units)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# UNITS\n");
|
||||
U64 count = 0;
|
||||
RDI_Unit *v = rdi_table_from_name(rdi, Units, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " unit[%I64u]:\n", idx);
|
||||
rdi_stringize_unit(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: UNIT VMAP
|
||||
if(dump_flags & DumpFlag_UnitVMap)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# UNIT VMAP\n");
|
||||
U64 count = 0;
|
||||
RDI_VMapEntry *v = rdi_table_from_name(rdi, UnitVMap, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " 0x%08x: %llu\n", v[idx].voff, v[idx].idx);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: TYPE NODES
|
||||
if(dump_flags & DumpFlag_TypeNodes)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# TYPE NODES:\n");
|
||||
U64 count = 0;
|
||||
RDI_TypeNode *v = rdi_table_from_name(rdi, TypeNodes, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " type[%I64u]:\n", idx);
|
||||
rdi_stringize_type_node(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: UDT DATA
|
||||
if(dump_flags & DumpFlag_UDTs)
|
||||
{
|
||||
U64 all_members_count = 0;
|
||||
RDI_Member *all_members = rdi_table_from_name(rdi, Members, &all_members_count);
|
||||
U64 all_enum_members_count = 0;
|
||||
RDI_EnumMember *all_enum_members = rdi_table_from_name(rdi, EnumMembers, &all_enum_members_count);
|
||||
U64 all_udts_count = 0;
|
||||
RDI_UDT *all_udts = rdi_table_from_name(rdi, UDTs, &all_udts_count);
|
||||
RDI_UDTMemberBundle member_bundle = {0};
|
||||
{
|
||||
member_bundle.members = all_members;
|
||||
member_bundle.enum_members = all_enum_members;
|
||||
member_bundle.member_count = (RDI_U32)all_members_count;
|
||||
member_bundle.enum_member_count = (RDI_U32)all_enum_members_count;
|
||||
}
|
||||
str8_list_pushf(arena, &dump, "# UDTS:\n");
|
||||
for(U64 idx = 0; idx < all_udts_count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " udt[%I64u]:\n", idx);
|
||||
rdi_stringize_udt(arena, &dump, rdi, &member_bundle, &all_udts[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: GLOBAL VARIABLES
|
||||
if(dump_flags & DumpFlag_GlobalVariables)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# GLOBAL VARIABLES:\n");
|
||||
RDI_U64 count = 0;
|
||||
RDI_GlobalVariable *v = rdi_table_from_name(rdi, GlobalVariables, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " global_variable[%I64u]:\n", idx);
|
||||
rdi_stringize_global_variable(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: GLOBAL VMAP
|
||||
if(dump_flags & DumpFlag_GlobalVMap)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# GLOBAL VMAP:\n");
|
||||
U64 count = 0;
|
||||
RDI_VMapEntry *v = rdi_table_from_name(rdi, GlobalVMap, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " 0x%08x: %llu\n", v[idx].voff, v[idx].idx);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: THREAD LOCAL VARIABLES
|
||||
if(dump_flags & DumpFlag_ThreadVariables)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# THREAD VARIABLES:\n");
|
||||
U64 count = 0;
|
||||
RDI_ThreadVariable *v = rdi_table_from_name(rdi, ThreadVariables, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " thread_variable[%I64u]:\n", idx);
|
||||
rdi_stringize_thread_variable(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: PROCEDURES
|
||||
if(dump_flags & DumpFlag_Procedures)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# PROCEDURES:\n");
|
||||
U64 count = 0;
|
||||
RDI_Procedure *v = rdi_table_from_name(rdi, Procedures, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " procedure[%I64u]:\n", idx);
|
||||
rdi_stringize_procedure(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: SCOPES
|
||||
if(dump_flags & DumpFlag_Scopes)
|
||||
{
|
||||
U64 scopes_count = 0;
|
||||
RDI_Scope *scopes = rdi_table_from_name(rdi, Scopes, &scopes_count);
|
||||
U64 scopes_voffs_count = 0;
|
||||
U64 *scopes_voffs = rdi_table_from_name(rdi, ScopeVOffData, &scopes_voffs_count);
|
||||
U64 locals_count = 0;
|
||||
RDI_Local *locals = rdi_table_from_name(rdi, Locals, &locals_count);
|
||||
U64 location_block_count = 0;
|
||||
RDI_LocationBlock *location_blocks = rdi_table_from_name(rdi, LocationBlocks, &location_block_count);
|
||||
U64 location_data_size = 0;
|
||||
RDI_U8 *location_data = rdi_table_from_name(rdi, LocationData, &location_data_size);
|
||||
RDI_ScopeBundle scope_bundle = {0};
|
||||
{
|
||||
scope_bundle.scopes = scopes;
|
||||
scope_bundle.scope_count = scopes_count;
|
||||
scope_bundle.scope_voffs = scopes_voffs;
|
||||
scope_bundle.scope_voff_count = scopes_voffs_count;
|
||||
scope_bundle.locals = locals;
|
||||
scope_bundle.local_count = locals_count;
|
||||
scope_bundle.location_blocks = location_blocks;
|
||||
scope_bundle.location_block_count = location_block_count;
|
||||
scope_bundle.location_data = location_data;
|
||||
scope_bundle.location_data_size = location_data_size;
|
||||
}
|
||||
str8_list_pushf(arena, &dump, "# SCOPES:\n");
|
||||
for(U64 idx = 0; idx < scopes_count; idx += 1)
|
||||
{
|
||||
if(scopes[idx].parent_scope_idx == 0)
|
||||
{
|
||||
rdi_stringize_scope(arena, &dump, rdi, tli->arch, &scope_bundle, &scopes[idx], 1);
|
||||
}
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: SCOPE VMAP
|
||||
if(dump_flags & DumpFlag_ScopeVMap)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# SCOPE VMAP:\n");
|
||||
U64 count = 0;
|
||||
RDI_VMapEntry *v = rdi_table_from_name(rdi, ScopeVMap, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " 0x%08x: %llu\n", v[idx].voff, v[idx].idx);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: INLINE SITES
|
||||
if(dump_flags & DumpFlag_InlineSites)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# INLINE SITES:\n");
|
||||
U64 count = 0;
|
||||
RDI_InlineSite *v = rdi_table_from_name(rdi, InlineSites, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " inline_site[%I64u]:\n", idx);
|
||||
rdi_stringize_inline_site(arena, &dump, rdi, &v[idx], 2);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: NAME MAPS
|
||||
if(dump_flags & DumpFlag_NameMaps)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# NAME MAP:\n");
|
||||
U64 count = 0;
|
||||
RDI_NameMap *v = rdi_table_from_name(rdi, NameMaps, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
RDI_ParsedNameMap name_map = {0};
|
||||
rdi_parsed_from_name_map(rdi, &v[idx], &name_map);
|
||||
str8_list_pushf(arena, &dump, " name_map[%I64u]:\n", idx);
|
||||
RDI_NameMapBucket *bucket = name_map.buckets;
|
||||
for(U32 j = 0; j < name_map.bucket_count; j += 1, bucket += 1)
|
||||
{
|
||||
if(bucket->node_count > 0)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, " bucket[%u]:\n", j);
|
||||
RDI_NameMapNode *node = name_map.nodes + bucket->first_node;
|
||||
RDI_NameMapNode *node_opl = node + bucket->node_count;
|
||||
for(;node < node_opl; node += 1)
|
||||
{
|
||||
String8 string = {0};
|
||||
string.str = rdi_string_from_idx(rdi, node->string_idx, &string.size);
|
||||
str8_list_pushf(arena, &dump, " match \"%.*s\": ", str8_varg(string));
|
||||
if(node->match_count == 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "%u", node->match_idx_or_idx_run_first);
|
||||
}
|
||||
else
|
||||
{
|
||||
RDI_U32 idx_count = 0;
|
||||
RDI_U32 *idx_run =
|
||||
rdi_idx_run_from_first_count(rdi, node->match_idx_or_idx_run_first,
|
||||
node->match_count, &idx_count);
|
||||
if(idx_count > 0)
|
||||
{
|
||||
RDI_U32 last = idx_count - 1;
|
||||
for(U32 k = 0; k < last; k += 1)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "%u, ", idx_run[k]);
|
||||
}
|
||||
str8_list_pushf(arena, &dump, "%u", idx_run[last]);
|
||||
}
|
||||
}
|
||||
str8_list_pushf(arena, &dump, "\n");
|
||||
}
|
||||
}
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
|
||||
//- rjf: STRINGS
|
||||
if(dump_flags & DumpFlag_Strings)
|
||||
{
|
||||
str8_list_pushf(arena, &dump, "# STRINGS:\n");
|
||||
U64 count = 0;
|
||||
U32 *v = rdi_table_from_name(rdi, StringTable, &count);
|
||||
for(U64 idx = 0; idx < count; idx += 1)
|
||||
{
|
||||
String8 string = {0};
|
||||
string.str = rdi_string_from_idx(rdi, (RDI_U32)idx, &string.size);
|
||||
str8_list_pushf(arena, &dump, " string[%I64u]: \"%S\"\n", idx, string);
|
||||
}
|
||||
str8_list_push(arena, &dump, str8_lit("\n"));
|
||||
}
|
||||
}
|
||||
|
||||
//////////////////////////////
|
||||
//- rjf: write dump to stdout
|
||||
//
|
||||
for(String8Node *n = dump.first; n != 0; n = n->next)
|
||||
{
|
||||
fwrite(n->string.str, 1, n->string.size, stdout);
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user