Procházet zdrojové kódy

+ print more symbol properties to the console

Nikolay Nikolov před 4 roky
rodič
revize
92592be8e4
1 změnil soubory, kde provedl 6 přidání a 1 odebrání
  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:');