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

+ Small edit in paramstr

Browse Source
This commit is contained in:
michael 1999-07-07 10:04:43 +00:00
parent 74c446f9f3
commit 8d19cb94db
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/win32/syswin32.pp
View File

@ -219,7 +219,7 @@ end;
function paramstr(l : longint) : string;
begin
if (l>=0) and (l+1<=argc) then
if (l>=0) and (l<argc) then
paramstr:=strpas(argv[l])
else
paramstr:='';
@ -1009,7 +1009,10 @@ end.
{
$Log$
Revision 1.42 1999-07-07 09:43:16 michael
Revision 1.43 1999-07-07 10:04:43 michael
+ Small edit in paramstr
Revision 1.42 1999/07/07 09:43:16 michael
Better construction of commandline argv
Revision 1.41 1999/07/05 20:04:30 peter