github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-01-22 18:42:34 +00:00
Code Issues Projects Releases Wiki Activity

pdp10_elf36: read_Ehdr/1: more sanity checks

Browse Source
This commit is contained in:
Mikael Pettersson 2020-04-19 16:30:44 +02:00
parent d60f570258
commit 198bf54c7c
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
erlang/apps/lib/src/pdp10_elf36.erl
View File

@ -100,10 +100,12 @@ check_Ehdr(Ehdr) ->
, fun check_Ehdr_ei_version/1
, fun check_Ehdr_ei_osabi/1
, fun check_Ehdr_ei_abiversion/1
, fun check_Ehdr_ei_pad/1
, fun check_Ehdr_e_type/1
, fun check_Ehdr_e_machine/1
, fun check_Ehdr_e_version/1
, fun check_Ehdr_e_ehsize/1
, fun check_Ehdr_e_phentsize/1
, fun check_Ehdr_e_shentsize/1
]).
@ -187,6 +189,15 @@ check_Ehdr_ei_abiversion(Ehdr) ->
_ -> {error, {?MODULE, {wrong_ei_abiversion, ABIVersion}}}
end.
check_Ehdr_ei_pad(Ehdr) ->
#elf36_Ehdr{e_ident = Ident} = Ehdr,
Pad = lists:nthtail(?EI_PAD, Ident),
Zeroes = lists:duplicate(?EI_NIDENT - ?EI_PAD, 0),
case Pad of
Zeroes -> ok;
_ -> {error, {?MODULE, {wrong_ei_pad, Pad}}}
end.
check_Ehdr_e_type(Ehdr) ->
#elf36_Ehdr{e_type = Type} = Ehdr,
case Type of
@ -218,6 +229,14 @@ check_Ehdr_e_ehsize(Ehdr) ->
_ -> {error, {?MODULE, {wrong_e_ehsize, EhSize}}}
end.
check_Ehdr_e_phentsize(Ehdr) ->
#elf36_Ehdr{e_phoff = PhOff, e_phentsize = PhEntSize} = Ehdr,
case {PhOff, PhEntSize} of
{0, _} -> ok;
{_, ?ELF36_PHDR_SIZEOF} -> ok;
_ -> {error, {?MODULE, {wrong_e_phentsize, PhEntSize}}}
end.
check_Ehdr_e_shentsize(Ehdr) ->
#elf36_Ehdr{e_shoff = ShOff, e_shentsize = ShEntSize} = Ehdr,
case {ShOff, ShEntSize} of
@ -546,6 +565,8 @@ format_error(Reason) ->
io_lib:format("wrong ei_osabi ~p", [OSABI]);
{wrong_ei_abiversion, ABIVersion} ->
io_lib:format("wrong ei_abiversion ~p", [ABIVersion]);
{wrong_ei_pad, Pad} ->
io_lib:format("wrong ei_pad ~p", [Pad]);
{wrong_e_type, Type} ->
io_lib:format("wrong e_type ~p", [Type]);
{wrong_e_machine, Machine} ->
@ -554,6 +575,8 @@ format_error(Reason) ->
io_lib:format("wrong e_version ~p", [Version]);
{wrong_e_ehsize, EhSize} ->
io_lib:format("wrong e_ehsize ~p", [EhSize]);
{wrong_e_phentsize, PhEntSize} ->
io_lib:format("wrong e_phentsize ~p", [PhEntSize]);
{wrong_e_shentsize, ShEntSize} ->
io_lib:format("wrong e_shentsize ~p", [ShEntSize]);
{eof_in_strtab, Index} ->