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

* instantiate TObjSectionGroup through a class type, to allow using a child

Browse Source 
class for certain object formats

git-svn-id: trunk@31360 -
This commit is contained in:
nickysn 2015-08-22 11:27:22 +00:00
parent 9aeb94676c
commit b74a104e48
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogbase.pas
View File

@ -277,6 +277,7 @@ interface
members: array of TObjSection;
iscomdat: boolean;
end;
TObjSectionGroupClass = class of TObjSectionGroup;
TString80 = string[80];
@ -290,6 +291,7 @@ interface
FCurrObjSec : TObjSection;
FObjSectionList : TFPHashObjectList;
FCObjSection : TObjSectionClass;
FCObjSectionGroup: TObjSectionGroupClass;
{ Symbols that will be defined in this object file }
FObjSymbolList : TObjSymbolList;
FCachedAsmSymbolList : TFPObjectList;
@ -303,6 +305,7 @@ interface
protected
FName : TString80;
property CObjSection:TObjSectionClass read FCObjSection write FCObjSection;
property CObjSectionGroup: TObjSectionGroupClass read FCObjSectionGroup write FCObjSectionGroup;
public
CurrPass : byte;
ExecStack : boolean;
@ -1027,6 +1030,7 @@ implementation
FCachedAsmSymbolList:=TFPObjectList.Create(false);
{ section class type for creating of new sections }
FCObjSection:=TObjSection;
FCObjSectionGroup:=TObjSectionGroup;
{$ifdef ARM}
ThumbFunc:=false;
{$endif ARM}
@ -1186,7 +1190,7 @@ implementation
begin
if FGroupsList=nil then
FGroupsList:=TFPHashObjectList.Create(true);
result:=TObjSectionGroup.Create(FGroupsList,aname);
result:=CObjSectionGroup.Create(FGroupsList,aname);
end;