Browse Source

* Reallocmem uses installed memory manager

git-svn-id: trunk@34487 -
michael 9 years ago
parent
commit
480d22a4aa
1 changed files with 7 additions and 2 deletions
  1. 7 2
      rtl/linux/system.pp

+ 7 - 2
rtl/linux/system.pp

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