paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 20:29:23 +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 } { section data }
layoutsections(datapos); layoutsections(datapos);
{ section headers } { section headers }
shoffset:=datapos; shoffset:=align(datapos,dword(Sizeof(AInt)));
inc(datapos,(nsections+1)*sizeof(telfsechdr)); inc(datapos,(nsections+1)*sizeof(telfsechdr));
{ Write ELF Header } { Write ELF Header }
@ -1298,6 +1298,9 @@ implementation
writer.writezeros($40-sizeof(header)); { align } writer.writezeros($40-sizeof(header)); { align }
{ Sections } { Sections }
WriteSectionContent(data); WriteSectionContent(data);
{ Align header }
Writer.Writezeros(Align(Writer.Size,Sizeof(AInt))-Writer.Size);
{ section headers, start with an empty header for sh_undef } { section headers, start with an empty header for sh_undef }
writer.writezeros(sizeof(telfsechdr)); writer.writezeros(sizeof(telfsechdr));
ObjSectionList.ForEachCall(@section_write_sechdr,nil); ObjSectionList.ForEachCall(@section_write_sechdr,nil);