+ added class TRelObjData

git-svn-id: trunk@45241 -

compiler/ogrel.pas

@@ -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
 *****************************************************************************}