mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-15 09:09:09 +02:00
+ added an override of the abstract method TRelObjOutput.writeData (not implemented, yet)
git-svn-id: trunk@45216 -
This commit is contained in:
parent
950c1d1693
commit
aa6209ab51
@ -42,6 +42,8 @@ interface
|
|||||||
{ TRelObjOutput }
|
{ TRelObjOutput }
|
||||||
|
|
||||||
TRelObjOutput = class(tObjOutput)
|
TRelObjOutput = class(tObjOutput)
|
||||||
|
protected
|
||||||
|
function writeData(Data:TObjData):boolean;override;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{ TRelAssembler }
|
{ TRelAssembler }
|
||||||
@ -60,6 +62,15 @@ implementation
|
|||||||
version
|
version
|
||||||
;
|
;
|
||||||
|
|
||||||
|
{*****************************************************************************
|
||||||
|
TRelObjOutput
|
||||||
|
*****************************************************************************}
|
||||||
|
|
||||||
|
function TRelObjOutput.writeData(Data: TObjData): boolean;
|
||||||
|
begin
|
||||||
|
{ todo: implement }
|
||||||
|
result:=true;
|
||||||
|
end;
|
||||||
|
|
||||||
{*****************************************************************************
|
{*****************************************************************************
|
||||||
TRelAssembler
|
TRelAssembler
|
||||||
|
Loading…
Reference in New Issue
Block a user