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

+ set cobjdata in TRelObjInput.create

Browse Source 
git-svn-id: trunk@45547 -
This commit is contained in:
nickysn 2020-06-01 13:14:46 +00:00
parent b2714052d1
commit 6104cd321c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogrel.pas
View File

@ -100,6 +100,7 @@ interface
TRelObjInput = class(TObjInput) TRelObjInput = class(TObjInput)
public public
constructor create;override;
function ReadObjData(AReader:TObjectreader;out Data:TObjData):boolean;override; function ReadObjData(AReader:TObjectreader;out Data:TObjData):boolean;override;
class function CanReadObjData(AReader:TObjectreader):boolean;override; class function CanReadObjData(AReader:TObjectreader):boolean;override;
end; end;
@ -534,6 +535,12 @@ implementation
TRelObjInput TRelObjInput
*****************************************************************************} *****************************************************************************}
constructor TRelObjInput.create;
begin
inherited create;
cobjdata:=TRelObjData;
end;
function TRelObjInput.ReadObjData(AReader: TObjectreader; out Data: TObjData): boolean; function TRelObjInput.ReadObjData(AReader: TObjectreader; out Data: TObjData): boolean;
begin begin
result:=false; result:=false;