+ added class TRelObjOutput

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@45195 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 16 insertions, 0 deletions

diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas
index 1eee62e7a4..e375cd4bc3 100644
--- a/compiler/ogrel.pas
+++ b/compiler/ogrel.pas
@@ -39,9 +39,15 @@ interface
 
     type
 
+      { TRelObjOutput }
+
+      TRelObjOutput = class(tObjOutput)
+      end;
+
       { TRelAssembler }
 
       TRelAssembler = class(tinternalassembler)
+        constructor create(info: pasminfo; smart:boolean);override;
       end;
 
 implementation
@@ -56,6 +62,16 @@ implementation
 
 
 {*****************************************************************************
+                                TRelAssembler
+*****************************************************************************}
+
+    constructor TRelAssembler.create(info: pasminfo; smart: boolean);
+      begin
+        inherited;
+        CObjOutput:=TRelObjOutput;
+      end;
+
+{*****************************************************************************
                                   Initialize
 *****************************************************************************}
     const