paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 09:09:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@45245 -
This commit is contained in:
nickysn 2020-05-03 23:16:23 +00:00
parent 92e86e7673
commit bba56d627f
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogrel.pas
View File

@ -174,8 +174,9 @@ implementation
function TRelObjOutput.writeData(Data: TObjData): boolean; function TRelObjOutput.writeData(Data: TObjData): boolean;
var var
global_symbols_count: Integer = 0; global_symbols_count: Integer = 0;
idx, i: Integer; secidx, idx, i: Integer;
objsym: TObjSymbol; objsym: TObjSymbol;
objsec: TObjSection;
begin begin
global_symbols_count:=0; global_symbols_count:=0;
for i:=0 to Data.ObjSymbolList.Count-1 do for i:=0 to Data.ObjSymbolList.Count-1 do
@ -199,6 +200,14 @@ implementation
Inc(idx); Inc(idx);
end; end;
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; result:=true;
end; end;