github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-04-30 05:25:59 +00:00
Code Issues Projects Releases Wiki Activity

readelf: add support for printing program header tables

Browse Source
This commit is contained in:
Mikael Pettersson
2020-05-28 19:36:44 +02:00
parent c0c4f491ca
commit ec21b92348
1 changed files with 54 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

54
erlang/apps/readelf/src/readelf.erl
View File

@@ -201,6 +201,7 @@ readelf_shtab(Opts, FP, Ehdr) ->
case pdp10_elf36:read_ShTab(FP, Ehdr) of
{ok, ShTab} ->
print_shtab(Opts, ShTab),
print_phtab(Opts, FP, Ehdr),
readelf_symtab(Opts, FP, ShTab);
{error, _Reason} = Error -> Error
end.
@@ -433,6 +434,59 @@ sh_flags([], _I, ShFlags, Mask, Acc) ->
_ -> io_lib:format("0x~.16b", [ShFlags])
end.
%% print_phtab =================================================================
print_phtab(#options{segments = false}, _FP, _Ehdr) -> ok;
print_phtab(_Opts, FP, Ehdr) ->
case pdp10_elf36:read_PhTab(FP, Ehdr) of
{ok, []} ->
io:format("There are no program headers in this file.\n\n");
{ok, PhTab} ->
io:format("Program Headers:\n"),
io:format(" Type Offset VirtAddr PhysAddr FileSiz MemSiz Flg Align\n"),
lists:foreach(fun print_phdr/1, PhTab),
io:format("\n");
{error, Reason} ->
escript_runtime:errmsg("Error reading program headers: ~s\n",
[error:format(Reason)])
end.
print_phdr(Phdr) ->
io:format(" ~-6s 0x~9.16.0b 0x~9.16.0b 0x~9.16.0b 0x~9.16.0b 0x~9.16.0b ~-3s 0x~.16b\n",
[ p_type(Phdr)
, Phdr#elf36_Phdr.p_offset
, Phdr#elf36_Phdr.p_vaddr
, Phdr#elf36_Phdr.p_paddr
, Phdr#elf36_Phdr.p_filesz
, Phdr#elf36_Phdr.p_memsz
, p_flags(Phdr)
, Phdr#elf36_Phdr.p_align
]).
p_type(#elf36_Phdr{p_type = PType}) ->
case PType of
?PT_NULL -> "NULL";
?PT_LOAD -> "LOAD";
?PT_DYNAMIC -> "DYNAMIC";
?PT_INTERP -> "INTERP";
?PT_NOTE -> "NOTE";
?PT_SHLIB -> "SHLIB";
?PT_PHDR -> "PHDR";
?PT_TLS -> "TLS";
_ -> io_lib:format("~.10b", [PType])
end.
p_flags(#elf36_Phdr{p_flags = PFlags0}) ->
case lists:foldl(fun({Bit, Ch}, {PFlags, Acc}) ->
case PFlags band Bit of
0 -> {PFlags, [$\s | Acc]};
_ -> {PFlags band bnot Bit, [Ch | Acc]}
end
end, {PFlags0, []}, [{?PF_R, $R}, {?PF_W, $W}, {?PF_X, $E}]) of
{0, Acc} -> lists:reverse(Acc);
{_, _Acc} -> io_lib:format("0x~.16b", [PFlags0])
end.
%% print_relatab ===============================================================
print_relatab(#options{relocs = false}, _FP, _SymTab, _ShNdx, _ShTab) -> ok;