paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 19:19:24 +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
;
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
*****************************************************************************}
@ -179,7 +186,7 @@ implementation
end;
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;
for i:=0 to Data.ObjSymbolList.Count-1 do