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

* Fix bug #30310

Browse Source 
git-svn-id: trunk@34484 -
This commit is contained in:
michael 2016-09-10 17:08:07 +00:00
parent b504cc4131
commit bd775267ca
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/linux/system.pp
View File

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