+ override TObjSymbol.ToString to aid in debugging

compiler/ogbase.pas

@@ -271,6 +271,7 @@ interface
 {$endif ARM}
 
        constructor create(AList:TFPHashObjectList;const AName:string);virtual;
+       function  ToString:ansistring;override;
        function  address:qword;
        procedure SetAddress(apass:byte;aobjsec:TObjSection;abind:TAsmsymbind;atyp:Tasmsymtype);
        function  ObjData: TObjData;
@@ -861,6 +862,20 @@ implementation
       end;
 
 
+    function TObjSymbol.ToString: ansistring;
+      var
+        objsectionstr: ansistring;
+      begin
+        if Assigned(objsection) then
+          objsectionstr:=objsection.ToString
+        else
+          objsectionstr:='nil';
+        WriteStr(Result,'(Name:',Name,';bind:',bind,';typ:',typ,';pass:',pass,
+          ';refs:',refs,';symidx:',symidx,';objsection:',objsectionstr,';offset:',
+          offset,';size:',size,')');
+      end;
+
+
     function TObjSymbol.address:qword;
       begin
         if assigned(objsection) then