mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 06:29:16 +02:00
* fixed r4828
git-svn-id: trunk@5207 -
This commit is contained in:
parent
47c16e33c1
commit
43ed587de0
@ -130,7 +130,7 @@ var
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
begin
|
begin
|
||||||
if i>=argc then
|
if argc<=0 then
|
||||||
exit;
|
exit;
|
||||||
GetMem(buf,ARG_MAX);
|
GetMem(buf,ARG_MAX);
|
||||||
size:=0;
|
size:=0;
|
||||||
|
Loading…
Reference in New Issue
Block a user