paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-25 16:46:03 +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; members: array of TObjSection;
iscomdat: boolean; iscomdat: boolean;
end; end;
TObjSectionGroupClass = class of TObjSectionGroup;
TString80 = string[80]; TString80 = string[80];
@ -290,6 +291,7 @@ interface
FCurrObjSec : TObjSection; FCurrObjSec : TObjSection;
FObjSectionList : TFPHashObjectList; FObjSectionList : TFPHashObjectList;
FCObjSection : TObjSectionClass; FCObjSection : TObjSectionClass;
FCObjSectionGroup: TObjSectionGroupClass;
{ Symbols that will be defined in this object file } { Symbols that will be defined in this object file }
FObjSymbolList : TObjSymbolList; FObjSymbolList : TObjSymbolList;
FCachedAsmSymbolList : TFPObjectList; FCachedAsmSymbolList : TFPObjectList;
@ -303,6 +305,7 @@ interface
protected protected
FName : TString80; FName : TString80;
property CObjSection:TObjSectionClass read FCObjSection write FCObjSection; property CObjSection:TObjSectionClass read FCObjSection write FCObjSection;
property CObjSectionGroup: TObjSectionGroupClass read FCObjSectionGroup write FCObjSectionGroup;
public public
CurrPass : byte; CurrPass : byte;
ExecStack : boolean; ExecStack : boolean;
@ -1027,6 +1030,7 @@ implementation
FCachedAsmSymbolList:=TFPObjectList.Create(false); FCachedAsmSymbolList:=TFPObjectList.Create(false);
{ section class type for creating of new sections } { section class type for creating of new sections }
FCObjSection:=TObjSection; FCObjSection:=TObjSection;
FCObjSectionGroup:=TObjSectionGroup;
{$ifdef ARM} {$ifdef ARM}
ThumbFunc:=false; ThumbFunc:=false;
{$endif ARM} {$endif ARM}
@ -1186,7 +1190,7 @@ implementation
begin begin
if FGroupsList=nil then if FGroupsList=nil then
FGroupsList:=TFPHashObjectList.Create(true); FGroupsList:=TFPHashObjectList.Create(true);
result:=TObjSectionGroup.Create(FGroupsList,aname); result:=CObjSectionGroup.Create(FGroupsList,aname);
end; end;