paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 18:19:45 +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

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

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