|
@@ -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
|
svenbarth