paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ write the WebAssembly header in the WASM resource writer

Browse Source
This commit is contained in:
Nikolay Nikolov 2024-06-27 02:45:24 +03:00
parent 142c851b58
commit 025282ccb9
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -48,6 +48,10 @@ type
implementation implementation
const
WasmModuleMagic: array [0..3] of byte = ($00,$61,$73,$6D);
WasmVersion: array [0..3] of byte = ($01,$00,$00,$00);
{ TWasmResourceWriter } { TWasmResourceWriter }
function TWasmResourceWriter.GetExtensions: string; function TWasmResourceWriter.GetExtensions: string;
@ -62,7 +66,8 @@ end;
procedure TWasmResourceWriter.Write(aResources: TResources; aStream: TStream); procedure TWasmResourceWriter.Write(aResources: TResources; aStream: TStream);
begin begin
aStream.WriteBuffer(WasmModuleMagic,SizeOf(WasmModuleMagic));
aStream.WriteBuffer(WasmVersion,SizeOf(WasmVersion));
end; end;
constructor TWasmResourceWriter.Create; constructor TWasmResourceWriter.Create;