* Free hidden cmdline instead of cmdline property.

git-svn-id: trunk@4968 -

rtl/inc/system.inc

@@ -708,7 +708,11 @@ Begin
     sysfreemem(argv[i]);
   sysfreemem(argv);
 {$endif}
-{$if defined(LINUX) or defined(BSD)}
+{$ifdef LINUX}
+  {sysfreemem already checks for nil}
+  sysfreemem(calculated_cmdline);
+{$endif}
+{$ifdef BSD}
   sysfreemem(cmdline);
 {$endif}
 {$if not (defined(HAS_MEMORYMANAGER) or defined(HAS_MT_MEMORYMANAGER))}

rtl/linux/system.pp

@@ -52,10 +52,10 @@ property cmdline:Pchar read get_cmdline;
 {$i elfres32.inc}
 {$endif}
 
-{$I system.inc}
-
 const calculated_cmdline:Pchar=nil;
 
+{$I system.inc}
+
 {*****************************************************************************
                        Misc. System Dependent Functions
 *****************************************************************************}