paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 17:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ introduce align_objsecofs; use it to align integers of type TObjSectionOfs

Browse Source 
git-svn-id: trunk@39086 -
This commit is contained in:
nickysn 2018-05-22 00:20:21 +00:00
parent f9748e928b
commit 584635c591
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/ogbase.pas
View File

@ -696,6 +696,7 @@ interface
function align_aword(v:aword;a:longword):aword;
function align_qword(v:qword;a:longword):qword;
function align_objsecofs(v:TObjSectionOfs;a:longword):TObjSectionOfs;
implementation
@ -734,6 +735,15 @@ implementation
end;
function align_objsecofs(v:TObjSectionOfs;a:longword):TObjSectionOfs;
begin
if a<=1 then
result:=v
else
result:=((v+a-1) div a) * a;
end;
procedure MaybeSwapStab(var v:TObjStabEntry);
begin
if source_info.endian<>target_info.endian then
@ -1421,14 +1431,14 @@ implementation
begin
if not assigned(CurrObjSec) then
internalerror(200402253);
CurrObjSec.alloc(align_aword(CurrObjSec.size,len)-CurrObjSec.size);
CurrObjSec.alloc(align_objsecofs(CurrObjSec.size,len)-CurrObjSec.size);
end;
procedure TObjData.section_afteralloc(p:TObject;arg:pointer);
begin
with TObjSection(p) do
alloc(align_aword(size,secalign)-size);
alloc(align_objsecofs(size,secalign)-size);
end;
@ -1437,7 +1447,7 @@ implementation
with TObjSection(p) do
begin
if assigned(Data) then
writezeros(align_aword(size,secalign)-size);
writezeros(align_objsecofs(size,secalign)-size);
end;
end;