paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ set the oso_debug section flags when reading an OMF section, which belongs to

Browse Source 
the 'DWARF' class

git-svn-id: trunk@39222 -
This commit is contained in:
nickysn 2018-06-14 15:27:08 +00:00
parent b7bfac11cb
commit 7103e3cb5c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogomf.pas
View File

@ -1302,6 +1302,8 @@ implementation
exit; exit;
end; end;
objsec.Size:=SegDefRec.SegmentLength; objsec.Size:=SegDefRec.SegmentLength;
if SegClassName='DWARF' then
objsec.SecOptions:=objsec.SecOptions+[oso_debug];
if (SegClassName='HEAP') or if (SegClassName='HEAP') or
(SegClassName='STACK') or (SegDefRec.Combination=scStack) or (SegClassName='STACK') or (SegDefRec.Combination=scStack) or
(SegClassName='BEGDATA') or (SegClassName='BEGDATA') or