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

+ prevent certain special omf sections from being smartlinked out

Browse Source 
git-svn-id: trunk@31394 -
This commit is contained in:
nickysn 2015-08-24 18:10:50 +00:00
parent fe69e3324c
commit 18cdc08c26
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ogomf.pas
View File

@ -1189,6 +1189,11 @@ implementation
exit;
end;
objsec.Size:=SegDefRec.SegmentLength;
if (SegClassName='HEAP') or
(SegClassName='STACK') or (SegDefRec.Combination=scStack) or
(SegClassName='BEGDATA') or
(SegmentName='FPC') then
objsec.SecOptions:=objsec.SecOptions+[oso_keep];
SegDefRec.Free;
Result:=True;
end;