mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 10:19:17 +02:00
* Reallocmem uses installed memory manager
git-svn-id: trunk@34487 -
This commit is contained in:
parent
8ef43da4ee
commit
480d22a4aa
@ -162,10 +162,15 @@ var
|
|||||||
buf : pchar;
|
buf : pchar;
|
||||||
|
|
||||||
procedure AddBuf;
|
procedure AddBuf;
|
||||||
|
var
|
||||||
|
p : Pchar;
|
||||||
begin
|
begin
|
||||||
sysreallocmem(calculated_cmdline,size+bufsize);
|
p:=SysGetmem(size+bufsize);
|
||||||
move(buf^,calculated_cmdline[size],bufsize);
|
move(calculated_cmdline^,p^,size);
|
||||||
|
move(buf^,p[size],bufsize);
|
||||||
inc(size,bufsize);
|
inc(size,bufsize);
|
||||||
|
sysfreemem(calculated_cmdline);
|
||||||
|
calculated_cmdline:=p;
|
||||||
bufsize:=0;
|
bufsize:=0;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user