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

* allow using a TObjSymbol subclass via using a "class of" type

Browse Source 
git-svn-id: trunk@31424 -
This commit is contained in:
nickysn 2015-08-25 14:32:08 +00:00
parent f41692710f
commit 046a4e4114
3 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/assemble.pas
View File

@ -1259,7 +1259,7 @@ Implementation
begin
{ it's possible that indirect symbol is not present in the list,
so we must create it as undefined }
indsym:=TObjSymbol.Create(ObjData.ObjSymbolList, indirectname);
indsym:=ObjData.CObjSymbol.Create(ObjData.ObjSymbolList, indirectname);
indsym.typ:=AT_NONE;
indsym.bind:=AB_NONE;
end;

2
compiler/mips/cpuelf.pas
View File

@ -274,7 +274,7 @@ implementation
procedure TElfExeOutputMIPS.CreateGOTSection;
begin
nullstub:=TObjSymbol.Create(internalobjdata.ObjSymbolList,'*null_pic_stub*');
nullstub:=internalobjdata.CObjSymbol.Create(internalobjdata.ObjSymbolList,'*null_pic_stub*');
nullstub.bind:=AB_LOCAL;
nullstub.typ:=AT_FUNCTION;

8
compiler/ogbase.pas
View File

@ -195,6 +195,7 @@ interface
{ string representation for the linker map file }
function AddressStr(AImageBase: qword): string;
end;
TObjSymbolClass = class of TObjSymbol;
{ Stabs is common for all targets }
TObjStabEntry=packed record
@ -292,6 +293,7 @@ interface
private
FCurrObjSec : TObjSection;
FObjSectionList : TFPHashObjectList;
FCObjSymbol : TObjSymbolClass;
FCObjSection : TObjSectionClass;
FCObjSectionGroup: TObjSectionGroupClass;
{ Symbols that will be defined in this object file }
@ -351,6 +353,7 @@ interface
property GroupsList:TFPHashObjectList read FGroupsList;
property StabsSec:TObjSection read FStabsObjSec write FStabsObjSec;
property StabStrSec:TObjSection read FStabStrObjSec write FStabStrObjSec;
property CObjSymbol: TObjSymbolClass read FCObjSymbol write FCObjSymbol;
end;
TObjDataClass = class of TObjData;
@ -1033,6 +1036,7 @@ implementation
FStabsObjSec:=nil;
FStabStrObjSec:=nil;
{ symbols }
FCObjSymbol:=TObjSymbol;
FObjSymbolList:=TObjSymbolList.Create(true);
FObjSymbolList.Owner:=Self;
FCachedAsmSymbolList:=TFPObjectList.Create(false);
@ -1225,7 +1229,7 @@ implementation
begin
result:=TObjSymbol(FObjSymbolList.Find(aname));
if not assigned(result) then
result:=TObjSymbol.Create(FObjSymbolList,aname);
result:=CObjSymbol.Create(FObjSymbolList,aname);
{$ifdef ARM}
result.ThumbFunc:=ThumbFunc;
@ -1276,7 +1280,7 @@ implementation
result:=TObjSymbol(FObjSymbolList.Find(s));
if result=nil then
begin
result:=TObjSymbol.Create(FObjSymbolList,s);
result:=CObjSymbol.Create(FObjSymbolList,s);
if asmsym.bind=AB_WEAK_EXTERNAL then
result.bind:=AB_WEAK_EXTERNAL;
end;