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

* initialization of stack and dwarf debug omf sections moved from

Browse Source 
TOmfObjSection.create to TOmfObjData.createsection and is now based on the
  section type (TAsmSectionType) instead of name (string)

git-svn-id: trunk@31485 -
This commit is contained in:
nickysn 2015-09-03 11:38:51 +00:00
parent efef3882a0
commit 3abfa177c4
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogomf.pas
View File

@ -473,13 +473,6 @@ implementation
inherited create(AList, Aname, Aalign, Aoptions); inherited create(AList, Aname, Aalign, Aoptions);
FCombination:=scPublic; FCombination:=scPublic;
FUse:=suUse16; FUse:=suUse16;
if Aname='stack' then
FCombination:=scStack
else if (Aname='debug_frame') or
(Aname='debug_info') or
(Aname='debug_line') or
(Aname='debug_abbrev') then
FUse:=suUse32;
end; end;
function TOmfObjSection.MemPosStr(AImageBase: qword): string; function TOmfObjSection.MemPosStr(AImageBase: qword): string;
@ -563,6 +556,10 @@ implementation
begin begin
Result:=inherited createsection(atype, aname, aorder); Result:=inherited createsection(atype, aname, aorder);
TOmfObjSection(Result).FClassName:=sectiontype2class(atype); TOmfObjSection(Result).FClassName:=sectiontype2class(atype);
if atype=sec_stack then
TOmfObjSection(Result).FCombination:=scStack
else if atype in [sec_debug_frame,sec_debug_info,sec_debug_line,sec_debug_abbrev] then
TOmfObjSection(Result).FUse:=suUse32;
if section_belongs_to_dgroup(atype) then if section_belongs_to_dgroup(atype) then
TOmfObjSection(Result).FPrimaryGroup:='DGROUP'; TOmfObjSection(Result).FPrimaryGroup:='DGROUP';
end; end;