* don't mess with the command line buffers if no command line is given

git-svn-id: trunk@4828 -

rtl/linux/system.pp

@@ -158,6 +158,9 @@ var
   end;
 
 begin
+  cmdline:=nil;
+  if i>=argc then
+    exit;
   GetMem(buf,ARG_MAX);
   size:=0;
   bufsize:=0;