paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 16:19:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* elf section alignment, patch by Florian, mantis #32900

Browse Source 
M    ogelf.pas

git-svn-id: trunk@38251 -
This commit is contained in:
marco 2018-02-16 18:01:29 +00:00
parent 14b14f3bda
commit 9a136836fd
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogelf.pas
View File

@ -1260,7 +1260,7 @@ implementation
{ section data }
layoutsections(datapos);
{ section headers }
shoffset:=datapos;
shoffset:=align(datapos,dword(Sizeof(AInt)));
inc(datapos,(nsections+1)*sizeof(telfsechdr));
{ Write ELF Header }
@ -1298,6 +1298,9 @@ implementation
writer.writezeros($40-sizeof(header)); { align }
{ Sections }
WriteSectionContent(data);
{ Align header }
Writer.Writezeros(Align(Writer.Size,Sizeof(AInt))-Writer.Size);
{ section headers, start with an empty header for sh_undef }
writer.writezeros(sizeof(telfsechdr));
ObjSectionList.ForEachCall(@section_write_sechdr,nil);