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

* fix for Mantis #35988: the internal heap uses directly the Sys* functions, not the memory manager

Browse Source 
git-svn-id: trunk@42774 -
This commit is contained in:
svenbarth 2019-08-23 14:59:15 +00:00
parent 33f6adfab6
commit db2a5285a9
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

@ -1530,7 +1530,7 @@ begin
{$endif}
if not SysTryResizeMem(p,size) then
begin
oldsize:=MemoryManager.MemSize(p);
oldsize:=SysMemSize(p);
{ Grow with bigger steps to prevent the need for
multiple getmem/freemem calls for fixed blocks. It might cost a bit
of extra memory, but in most cases a reallocmem is done multiple times. }
@ -1549,7 +1549,7 @@ begin
p2 := SysGetMem(newsize);
if p2<>nil then
Move(p^,p2^,minsize);
MemoryManager.FreeMem(p);
SysFreeMem(p);
p := p2;
{$ifdef DUMP_MEM_USAGE}
end else begin