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

* made the constructor of TObjSymbol virtual, so it can be overriden

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-26 10:17:19 +03:00
parent cb3ac37fb3
commit 07461d0fc3
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogbase.pas
View File

@ -268,7 +268,7 @@ interface
ThumbFunc : boolean;
{$endif ARM}
constructor create(AList:TFPHashObjectList;const AName:string);
constructor create(AList:TFPHashObjectList;const AName:string);virtual;
function address:qword;
procedure SetAddress(apass:byte;aobjsec:TObjSection;abind:TAsmsymbind;atyp:Tasmsymtype);
function ObjData: TObjData;

2
compiler/ogwasm.pas
View File

@ -49,7 +49,7 @@ interface
SymbolIndex: Integer;
AliasOf: string;
ExtraData: TWasmObjSymbolExtraData;
constructor create(AList:TFPHashObjectList;const AName:string);
constructor create(AList:TFPHashObjectList;const AName:string);override;
function ImportOrFuncIndex: Integer;
function IsAlias: Boolean;
end;