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

* replaced TWasmObjData(Data) with FData in TWasmObjOutput.writeData

Browse Source
This commit is contained in:
Nikolay Nikolov 2021-09-25 17:49:19 +03:00
parent 6d1df899e6
commit dbb6f95ea7
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ogwasm.pas
View File

@ -589,10 +589,10 @@ implementation
Inc(functions_count); Inc(functions_count);
end; end;
types_count:=Length(TWasmObjData(Data).FFuncTypes); types_count:=Length(FData.FFuncTypes);
WriteUleb(FWasmSections[wsiType],types_count); WriteUleb(FWasmSections[wsiType],types_count);
for i:=0 to types_count-1 do for i:=0 to types_count-1 do
with TWasmObjData(Data).FFuncTypes[i] do with FData.FFuncTypes[i] do
begin begin
WriteByte(FWasmSections[wsiType],$60); WriteByte(FWasmSections[wsiType],$60);
WriteWasmResultType(FWasmSections[wsiType],params); WriteWasmResultType(FWasmSections[wsiType],params);
@ -661,7 +661,7 @@ implementation
WriteName(FWasmSections[wsiImport],'env'); WriteName(FWasmSections[wsiImport],'env');
WriteName(FWasmSections[wsiImport],objsym.Name); WriteName(FWasmSections[wsiImport],objsym.Name);
WriteByte(FWasmSections[wsiImport],$00); { func } WriteByte(FWasmSections[wsiImport],$00); { func }
WriteUleb(FWasmSections[wsiImport],TWasmObjSymbolExtraData(TWasmObjData(Data).FObjSymbolsExtraDataList.Find(objsym.Name)).TypeIdx); WriteUleb(FWasmSections[wsiImport],TWasmObjSymbolExtraData(FData.FObjSymbolsExtraDataList.Find(objsym.Name)).TypeIdx);
end; end;
end; end;
{ import[imports_count-1] } { import[imports_count-1] }
@ -679,7 +679,7 @@ implementation
objsym:=TObjSymbol(Data.ObjSymbolList[i]); objsym:=TObjSymbol(Data.ObjSymbolList[i]);
if objsym.typ=AT_FUNCTION then if objsym.typ=AT_FUNCTION then
begin begin
WriteUleb(FWasmSections[wsiFunction],TWasmObjSymbolExtraData(TWasmObjData(Data).FObjSymbolsExtraDataList.Find(objsym.Name)).TypeIdx); WriteUleb(FWasmSections[wsiFunction],TWasmObjSymbolExtraData(FData.FObjSymbolsExtraDataList.Find(objsym.Name)).TypeIdx);
WriteFunctionCode(FWasmSections[wsiCode],objsym); WriteFunctionCode(FWasmSections[wsiCode],objsym);
end; end;
end; end;