github.com/mikpe.pdp10-tools
1
0
Fork 0
mirror of https://github.com/mikpe/pdp10-tools.git synced 2026-04-11 23:02:58 +00:00
Code Issues Projects Releases Wiki Activity

ld_assign: make .text start in section 2 not 1

Browse Source
This commit is contained in:
Mikael Pettersson
2023-08-21 21:18:00 +02:00
parent cdd7fb386e
commit 828522d5ef
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
erlang/apps/ld/src/ld_assign.erl
View File

@@ -36,8 +36,8 @@
assign(Segments) ->
PhNum = length(Segments),
true = PhNum < ?PN_XNUM, % assert; TODO: otherwise store PhNum in Shdr0.sh_info
%% TODO: assumes KL10B-compatible "small" code model output
VAddr = 8#00001001000 bsl 2, % section 1, page 1, word address to byte address
%% TODO: assumes large or small code model output, not tiny
VAddr = 8#00002001000 bsl 2, % section 2, page 1, word address to byte address
Offset = ?ELF36_EHDR_SIZEOF + ?ELF36_PHDR_SIZEOF * PhNum,
{_Offset, _VAddr, NewSegments} = lists:foldl(fun assign/2, {Offset, VAddr, []}, Segments),
lists:reverse(NewSegments).