paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +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} {$endif}
if not SysTryResizeMem(p,size) then if not SysTryResizeMem(p,size) then
begin begin
oldsize:=MemoryManager.MemSize(p); oldsize:=SysMemSize(p);
{ Grow with bigger steps to prevent the need for { Grow with bigger steps to prevent the need for
multiple getmem/freemem calls for fixed blocks. It might cost a bit 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. } of extra memory, but in most cases a reallocmem is done multiple times. }
@ -1549,7 +1549,7 @@ begin
p2 := SysGetMem(newsize); p2 := SysGetMem(newsize);
if p2<>nil then if p2<>nil then
Move(p^,p2^,minsize); Move(p^,p2^,minsize);
MemoryManager.FreeMem(p); SysFreeMem(p);
p := p2; p := p2;
{$ifdef DUMP_MEM_USAGE} {$ifdef DUMP_MEM_USAGE}
end else begin end else begin