+ override TObjSection.ToString to help with debugging

compiler/ogbase.pas

@@ -343,6 +343,7 @@ interface
        VTRefList : TFPObjectList;
        constructor create(AList:TFPHashObjectList;const Aname:string;Aalign:longint;Aoptions:TObjSectionOptions);virtual;
        destructor  destroy;override;
+       function  ToString:ansistring;override;
        function  write(const d;l:TObjSectionOfs):TObjSectionOfs;
        procedure writeInt8(v: int8);
        procedure writeInt16LE(v: int16);
@@ -1067,6 +1068,14 @@ implementation
       end;
 
 
+    function TObjSection.ToString: ansistring;
+      begin
+        System.WriteStr(Result,'(Name:',Name,';index',index,';SecSymIdx:',SecSymIdx,
+          ';SecAlign:',SecAlign,';Size:',Size,';DataPos:',DataPos,';MemPos:',
+          MemPos,';DataAlignBytes:',DataAlignBytes,';Used:',Used,')');
+      end;
+
+
     procedure TObjSection.SetSecOptions(Aoptions:TObjSectionOptions);
       begin
         FSecOptions:=FSecOptions+AOptions;