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

* Reallocmem uses installed memory manager

Browse Source 
git-svn-id: trunk@34487 -
This commit is contained in:
michael 2016-09-10 17:56:17 +00:00
parent 8ef43da4ee
commit 480d22a4aa
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/linux/system.pp
View File

@ -162,10 +162,15 @@ var
buf : pchar;
procedure AddBuf;
var
p : Pchar;
begin
sysreallocmem(calculated_cmdline,size+bufsize);
move(buf^,calculated_cmdline[size],bufsize);
p:=SysGetmem(size+bufsize);
move(calculated_cmdline^,p^,size);
move(buf^,p[size],bufsize);
inc(size,bufsize);
sysfreemem(calculated_cmdline);
calculated_cmdline:=p;
bufsize:=0;
end;