+ write the areas (sections) in the .rel output

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

1 files changed, 10 insertions, 1 deletions

diff --git a/compiler/ogrel.pas b/compiler/ogrel.pas
index e5e91340bb..134a421278 100644
--- a/compiler/ogrel.pas
+++ b/compiler/ogrel.pas
@@ -174,8 +174,9 @@ implementation
     function TRelObjOutput.writeData(Data: TObjData): boolean;
       var
         global_symbols_count: Integer = 0;
-        idx, i: Integer;
+        secidx, idx, i: Integer;
         objsym: TObjSymbol;
+        objsec: TObjSection;
       begin
         global_symbols_count:=0;
         for i:=0 to Data.ObjSymbolList.Count-1 do
@@ -199,6 +200,14 @@ implementation
                 Inc(idx);
               end;
           end;
+        secidx:=0;
+        for i:=0 to Data.ObjSectionList.Count-1 do
+          begin
+            objsec:=TObjSection(Data.ObjSectionList[i]);
+            writeLine('A '+objsec.Name+' size '+tohex(objsec.Size)+' flags 0 addr 0');
+            objsec.SecSymIdx:=secidx;
+            Inc(secidx);
+          end;
         result:=true;
       end;