paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 13:59:34 +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;
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;