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

as: assemble: create sections for relocations

Browse Source
This commit is contained in:
Mikael Pettersson 2020-02-23 17:13:15 +01:00
parent 09886c1979
commit 09810abe18
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
erlang/apps/as/src/assemble.erl
View File

@ -95,10 +95,29 @@ stmts(Section = #section{name = Name, data = {stmts, Stmts}}, Tunit0) ->
, st_name = 0
, st_shndx = 0
},
Tunit = tunit:put_symbol(Tunit0, SectionSymbol),
case stmts_image(lists:reverse(Stmts), Tunit, Name) of
{ok, {Image, _Relocs = []}} ->
{ok, tunit:put_section(Tunit, Section#section{data = {image, Image}})};
Tunit1 = tunit:put_symbol(Tunit0, SectionSymbol),
case stmts_image(lists:reverse(Stmts), Tunit1, Name) of
{ok, {Image, Relocs}} ->
Tunit = tunit:put_section(Tunit1, Section#section{data = {image, Image}}),
case Relocs of
[] -> {ok, Tunit};
_ ->
RelocationSection =
#section{ name = ".rela" ++ Name
, data = {relocs, Name, Relocs}
, dot = ?ELF36_RELA_SIZEOF * length(Relocs)
, shndx = 0
, sh_name = 0
, sh_type = ?SHT_RELA
, sh_offset = 0
, sh_flags = ?SHF_INFO_LINK
, sh_link = ?SHN_UNDEF % assigned during output
, sh_info = ?SHN_UNDEF % assigned during output
, sh_addralign = 4
, sh_entsize = ?ELF36_RELA_SIZEOF
},
{ok, tunit:put_section(Tunit, RelocationSection)}
end;
{error, _Reason} = Error -> Error
end.