From bd775267cab4f2d0e83b43f81578e109f3e9bd59 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sat, 10 Sep 2016 17:08:07 +0000
Subject: [PATCH] * Fix bug #30310

git-svn-id: trunk@34484 -
---
 rtl/linux/system.pp | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/rtl/linux/system.pp b/rtl/linux/system.pp
index 66e8c70a5d..7713e09d4f 100644
--- a/rtl/linux/system.pp
+++ b/rtl/linux/system.pp
@@ -33,7 +33,7 @@ Unit System;
 
 {$I sysunixh.inc}
 
-function get_cmdline:Pchar; 
+function get_cmdline:Pchar; deprecated 'use paramstr' ;
 property cmdline:Pchar read get_cmdline;
 
 {$if defined(CPUARM) or defined(CPUM68K) or (defined(CPUSPARC) and defined(VER2_6))}
@@ -57,7 +57,8 @@ var
   sysenter_supported: LongInt = 0;
 {$endif}
 
-const calculated_cmdline:Pchar=nil;
+const 
+  calculated_cmdline:Pchar=nil;
 
 {$if defined(CPUARM) or defined(CPUM68K) or (defined(CPUSPARC) and defined(VER2_6))}
 
@@ -162,7 +163,7 @@ var
 
   procedure AddBuf;
   begin
-    reallocmem(calculated_cmdline,size+bufsize);
+    sysreallocmem(calculated_cmdline,size+bufsize);
     move(buf^,calculated_cmdline[size],bufsize);
     inc(size,bufsize);
     bufsize:=0;
@@ -171,7 +172,7 @@ var
 begin
   if argc<=0 then
     exit;
-  GetMem(buf,ARG_MAX);
+  Buf:=SysGetMem(ARG_MAX);
   size:=0;
   bufsize:=0;
   i:=0;
@@ -213,7 +214,7 @@ begin
      inc(i);
    end;
   AddBuf;
-  FreeMem(buf,ARG_MAX);
+  SysFreeMem(buf);
 end;
 
 function get_cmdline:Pchar;