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

+ wasm resource writer: implemented AddEmptySections

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-06-27 10:23:40 +03:00
parent 729840ca6f
commit 0e0c98f564
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-res/src/wasmwriter.pp
View File

@ -65,6 +65,7 @@ type
procedure WriteResStringTable;
procedure WriteRawData;
procedure WriteResData(aStream : TStream; aNode : TResourceTreeNode);
procedure AddEmptySections(aResources : TResources);
procedure WriteWasmSection(aStream: TStream; wsid: TWasmSectionID);
procedure WriteWasmSectionIfNotEmpty(aStream: TStream; wsid: TWasmSectionID);
procedure WriteWasmCustomSection(aStream: TStream; wcst: TWasmCustomSectionType);
@ -357,6 +358,14 @@ begin
WriteResData(aStream,aNode.IDEntries[i]);
end;
procedure TWasmResourceWriter.AddEmptySections(aResources: TResources);
begin
Align(fDataAlignment,FDataSegments[wrdsResources]);
//fSections.Add(HandlesSectName,SHT_NOBITS,SHF_ALLOC or SHF_WRITE,
// aStream.Position,fDataAlignment*aResources.Count,fDataAlignment);
FDataSegments[wrdsResHandles].SetSize(fDataAlignment*aResources.Count);
end;
procedure TWasmResourceWriter.WriteWasmSection(aStream: TStream;
wsid: TWasmSectionID);
var
@ -476,6 +485,7 @@ begin
WriteNodeInfos;
WriteResStringTable;
WriteRawData;
AddEmptySections(aResources);
WriteImportSection;
WriteDataSegments;