paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:39:39 +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; page_size = 65536;
err = high(longword); err = high(longword);
begin begin
DebugWriteLn('SysOSAlloc');
SysOSAlloc:=pointer(fpc_wasm32_memory_size*page_size); SysOSAlloc:=pointer(fpc_wasm32_memory_size*page_size);
if fpc_wasm32_memory_grow((size + page_size - 1) div page_size) = err then if fpc_wasm32_memory_grow((size + page_size - 1) div page_size) = err then
SysOSAlloc:=nil; SysOSAlloc:=nil;
DebugWriteLn('SysOSAlloc done');
end; end;
procedure SysOSFree(p: pointer; size: ptruint); procedure SysOSFree(p: pointer; size: ptruint);
begin begin
DebugWriteLn('SysOSFree');
end; end;