mirror of
https://gitlab.com/freepascal.org/fpc/pas2js.git
synced 2025-04-10 00:57:58 +02:00
21 lines
317 B
ObjectPascal
21 lines
317 B
ObjectPascal
program testmem;
|
|
|
|
uses wasmtypes, webassembly, wasm.http.api, wasm.memutils;
|
|
|
|
procedure DoGrow(aPages : longint);
|
|
|
|
begin
|
|
writeln('Growing wasm memory with ',aPages,' pages of 64k');
|
|
end;
|
|
|
|
var
|
|
i : integer;
|
|
p : pointer;
|
|
|
|
begin
|
|
MemGrowNotifyCallBack:=@DoGrow;
|
|
for I:=1 to 20 do
|
|
getmem(p,1024*256*i);
|
|
end.
|
|
|