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

+ print more symbol properties to the console

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-20 04:16:25 +03:00
parent 628fcb9b1c
commit 92592be8e4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/ogwasm.pas
View File

@ -518,7 +518,12 @@ implementation
for i:=0 to Data.ObjSymbolList.Count-1 do for i:=0 to Data.ObjSymbolList.Count-1 do
begin begin
objsym:=TObjSymbol(Data.ObjSymbolList[i]); objsym:=TObjSymbol(Data.ObjSymbolList[i]);
Writeln(objsym.Name, ' bind=', objsym.Bind); Write(objsym.Name, ' bind=', objsym.Bind, ' typ=', objsym.typ, ' address=', objsym.address, ' objsection=');
if assigned(objsym.objsection) then
Write(objsym.objsection.Name)
else
Write('nil');
Writeln;
end; end;
Writeln('ObjSectionList:'); Writeln('ObjSectionList:');