paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-29 12:23:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* align data, bss and text sections to 16 byte boundaries

Browse Source 
git-svn-id: trunk@3286 -
This commit is contained in:
florian 2006-04-19 21:54:43 +00:00
parent 76534b1888
commit 83f4ab0f4a
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ogbase.pas
View File

@ -774,10 +774,16 @@ implementation
function TObjData.sectiontype2align(atype:TAsmSectiontype):shortint;
begin
if atype in [sec_stabstr,sec_debug_info,sec_debug_line,sec_debug_abbrev] then
result:=1
else
result:=sizeof(aint);
case atype of
sec_stabstr,sec_debug_info,sec_debug_line,sec_debug_abbrev:
result:=1;
sec_code,
sec_bss,
sec_data:
result:=16;
else
result:=sizeof(aint);
end;
end;