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

* fixed writing the alignment for datablocks on darwin/aix based on

Browse Source 
the last section's alignment (lastalignment is log2(alignment) there,
    and writesection again takes log2() of its parameter)

git-svn-id: trunk@20964 -
This commit is contained in:
Jonas Maebe 2012-04-21 20:17:53 +00:00
parent 3380b58695
commit ec77b0f3ca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/aggas.pas
View File

@ -753,7 +753,7 @@ implementation
asmwrite(tai_datablock(hp).sym.name);
asmwriteln(', '+tostr(tai_datablock(hp).size)+','+tostr(last_align));
if not(LastSecType in [sec_data,sec_none]) then
writesection(LastSecType,'',secorder_default,last_align);
writesection(LastSecType,'',secorder_default,1 shl last_align);
end
else
begin
@ -775,7 +775,7 @@ implementation
asmwrite(#9'.space ');
asmwriteln(tostr(tai_datablock(hp).size));
if not(LastSecType in [sec_data,sec_none]) then
writesection(LastSecType,'',secorder_default,last_align);
writesection(LastSecType,'',secorder_default,1 shl last_align);
end
else
begin