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

* the areas global symbols count must be in hex in the .rel format

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

9
compiler/ogrel.pas
View File

@ -75,6 +75,13 @@ implementation
version version
; ;
function tohex(q: qword): string;
begin
result:=HexStr(q,16);
while (Length(result)>1) and (result[1]='0') do
delete(result,1,1);
end;
{***************************************************************************** {*****************************************************************************
TRelObjData TRelObjData
*****************************************************************************} *****************************************************************************}
@ -179,7 +186,7 @@ implementation
end; end;
writeLine('XL2'); writeLine('XL2');
writeLine('H '+tostr(data.ObjSectionList.Count)+' areas '+tostr(global_symbols_count)+' global symbols'); writeLine('H '+tohex(data.ObjSectionList.Count)+' areas '+tohex(global_symbols_count)+' global symbols');
idx:=0; idx:=0;
for i:=0 to Data.ObjSymbolList.Count-1 do for i:=0 to Data.ObjSymbolList.Count-1 do