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

+ added class TRelObjData

Browse Source 
git-svn-id: trunk@45241 -
This commit is contained in:
nickysn 2020-05-03 22:16:21 +00:00
parent 66a72cfb72
commit 244f1dd83c
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ogrel.pas
View File

@ -39,11 +39,18 @@ interface
type
{ TRelObjData }
TRelObjData = class(TObjData)
end;
{ TRelObjOutput }
TRelObjOutput = class(tObjOutput)
protected
function writeData(Data:TObjData):boolean;override;
public
constructor create(AWriter:TObjectWriter);override;
end;
{ TRelAssembler }
@ -72,6 +79,12 @@ implementation
result:=true;
end;
constructor TRelObjOutput.create(AWriter: TObjectWriter);
begin
inherited;
cobjdata:=TRelObjData;
end;
{*****************************************************************************
TRelAssembler
*****************************************************************************}