Browse Source

+ print more symbol properties to the console

Nikolay Nikolov 3 years ago
parent
commit
92592be8e4
1 changed files with 6 additions and 1 deletions
  1. 6 1
      compiler/ogwasm.pas

+ 6 - 1
compiler/ogwasm.pas

@@ -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:');