raddebugger/src/rdi_dump/rdi_dump.c

// 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);
}