paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 03:25:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ initialize heap in the system unit startup (but SysOSAlloc is not yet implemented)

Browse Source 
git-svn-id: branches/wasm@48289 -
This commit is contained in:
nickysn 2021-01-21 22:22:08 +00:00
parent 11ed6adf63
commit fe7fd69d5e
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/wasi/sysheap.inc
View File

@ -22,8 +22,11 @@
function SysOSAlloc(size: ptruint): pointer; function SysOSAlloc(size: ptruint): pointer;
begin begin
DebugWriteLn('SysOSAlloc');
SysOSAlloc:=nil;
end; end;
procedure SysOSFree(p: pointer; size: ptruint); procedure SysOSFree(p: pointer; size: ptruint);
begin begin
DebugWriteLn('SysOSFree');
end; end;

2
rtl/wasi/system.pp
View File

@ -171,5 +171,7 @@ begin
{ To be set if this is a library and not a program } { To be set if this is a library and not a program }
IsLibrary := FALSE; IsLibrary := FALSE;
{$endif def FPC_HAS_FEATURE_DYNLIBS} {$endif def FPC_HAS_FEATURE_DYNLIBS}
{ Setup heap }
InitHeap;
DebugWriteLn('System unit initialization end'); DebugWriteLn('System unit initialization end');
end. end.