paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 14:49:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't call the memory manager's functions, but instead call the Sys* functions directly

Browse Source 
git-svn-id: trunk@42797 -
This commit is contained in:
svenbarth 2019-08-24 10:37:20 +00:00
parent f88a98e976
commit c1e3c61af3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/heap.inc
View File

@ -1328,9 +1328,9 @@ end;
function SysAllocMem(size: ptruint): pointer;
begin
result := MemoryManager.GetMem(size);
result := SysGetMem(size);
if result<>nil then
FillChar(result^,MemoryManager.MemSize(result),0);
FillChar(result^,SysMemSize(result),0);
end;