diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas index 6fb2f1934a..1ce2983a90 100644 --- a/compiler/ogrel.pas +++ b/compiler/ogrel.pas @@ -100,6 +100,7 @@ interface TRelObjInput = class(TObjInput) public + constructor create;override; function ReadObjData(AReader:TObjectreader;out Data:TObjData):boolean;override; class function CanReadObjData(AReader:TObjectreader):boolean;override; end; @@ -534,6 +535,12 @@ implementation TRelObjInput *****************************************************************************} + constructor TRelObjInput.create; + begin + inherited create; + cobjdata:=TRelObjData; + end; + function TRelObjInput.ReadObjData(AReader: TObjectreader; out Data: TObjData): boolean; begin result:=false;