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

+ write some debug info to the console in the wasm obj writer

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-19 20:46:45 +03:00
parent 967b721e4f
commit 429454c8f4
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ogwasm.pas
View File

@ -230,9 +230,20 @@ implementation
****************************************************************************}
function TWasmObjOutput.writeData(Data:TObjData):boolean;
var
i: Integer;
objsec: TObjSection;
begin
Writer.write(WasmModuleMagic,SizeOf(WasmModuleMagic));
Writer.write(WasmVersion,SizeOf(WasmVersion));
Writeln('ObjSectionList:');
for i:=0 to Data.ObjSectionList.Count-1 do
begin
objsec:=TObjSection(Data.ObjSectionList[i]);
Writeln(objsec.Name, ' Size=', objsec.Size, ' MemPos=', objsec.MemPos, ' Data.Size=', objsec.Data.size, ' DataPos=', objsec.DataPos);
end;
result:=true;
end;