paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

- removed the heap alloc/free function debug output

Browse Source 
git-svn-id: branches/wasm@48342 -
This commit is contained in:
nickysn 2021-01-23 06:37:22 +00:00
parent 0077b16cc3
commit a6d332d092
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/wasi/sysheap.inc
View File

@ -25,14 +25,11 @@ const
page_size = 65536;
err = high(longword);
begin
DebugWriteLn('SysOSAlloc');
SysOSAlloc:=pointer(fpc_wasm32_memory_size*page_size);
if fpc_wasm32_memory_grow((size + page_size - 1) div page_size) = err then
SysOSAlloc:=nil;
DebugWriteLn('SysOSAlloc done');
end;
procedure SysOSFree(p: pointer; size: ptruint);
begin
DebugWriteLn('SysOSFree');
end;