+ added class type property CObjSymbol to TExeOutput as well

git-svn-id: trunk@31426 -

compiler/mips/cpuelf.pas

@@ -502,7 +502,7 @@ implementation
               if (tmp>=numpages) then
                 InternalError(2013030402);
               { replace relocation symbol with one pointing to GOT slot }
-              objsym:=TObjSymbol.Create(local_got_slots,hexstr(addr,8));
+              objsym:=CObjSymbol.Create(local_got_slots,hexstr(addr,8));
               objsym.offset:=(got_local_area_start+tmp+1)*sizeof(pint);
               objsym.bind:=AB_LOCAL;
               if (source_info.endian=target_info.endian) then

compiler/ogbase.pas

@@ -521,6 +521,7 @@ interface
       TExeOutput = class
       private
         { ExeSectionList }
+        FCObjSymbol       : TObjSymbolClass;
         FCObjData         : TObjDataClass;
         FCExeSection      : TExeSectionClass;
         FCurrExeSec       : TExeSection;
@@ -557,6 +558,7 @@ interface
         function  writeData:boolean;virtual;abstract;
         property CExeSection:TExeSectionClass read FCExeSection write FCExeSection;
         property CObjData:TObjDataClass read FCObjData write FCObjData;
+        property CObjSymbol:TObjSymbolClass read FCObjSymbol write FCObjSymbol;
         procedure Order_ObjSectionList(ObjSectionList : TFPObjectList; const aPattern:string);virtual;
         procedure WriteExeSectionContent;
         procedure DoRelocationFixup(objsec:TObjSection);virtual;abstract;
@@ -1788,6 +1790,7 @@ implementation
         FixedSectionAlign:=True;
         FCExeSection:=TExeSection;
         FCObjData:=TObjData;
+        FCObjSymbol:=TObjSymbol;
       end;
 
 

compiler/ogomf.pas

@@ -2545,6 +2545,7 @@ implementation
         inherited create;
         CExeSection:=TMZExeSection;
         CObjData:=TOmfObjData;
+        CObjSymbol:=TOmfObjSymbol;
         { "640K ought to be enough for anybody" :) }
         MaxMemPos:=$9FFFF;
         FExeUnifiedLogicalSegments:=TFPHashObjectList.Create;