* group T and R records together and call a function (not implemented yet) to handle them in pairs

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

1 files changed, 22 insertions, 2 deletions

diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas
index bd19010063..745dfa2e75 100644
--- a/compiler/ogrel.pas
+++ b/compiler/ogrel.pas
@@ -657,6 +657,13 @@ implementation
       end;
 
     function TRelObjInput.ReadObjData(AReader: TObjectreader; out Data: TObjData): boolean;
+
+      function HandleTR(const T,R: string): boolean;
+        begin
+          { todo: implement }
+          result:=true;
+        end;
+
       const
         GenericRelErrMsg='Error reading REL file';
       var
@@ -668,6 +675,7 @@ implementation
         tmpint: SizeInt;
         CurrSec: TObjSection=nil;
         objsym: TObjSymbol;
+        LastT: string='';
       begin
         FReader:=AReader;
         InputFileName:=AReader.FileName;
@@ -891,11 +899,23 @@ implementation
                     end;
                   'T': { T line () }
                     begin
-                      { todo: implement }
+                      if LastT<>'' then
+                        begin
+                          InputError('T record not followed by R record');
+                          exit;
+                        end;
+                      LastT:=s;
                     end;
                   'R': { R line (relocation information) }
                     begin
-                      { todo: implement }
+                      if LastT='' then
+                        begin
+                          InputError('R record without T record');
+                          exit;
+                        end;
+                      if not HandleTR(LastT,s) then
+                        exit;
+                      LastT:='';
                     end;
                   'P': { P line (paging information) }
                     begin