paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +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; function paramstr(l : longint) : string;
begin begin
if (l>=0) and (l+1<=argc) then if (l>=0) and (l<argc) then
paramstr:=strpas(argv[l]) paramstr:=strpas(argv[l])
else else
paramstr:=''; paramstr:='';
@ -1009,7 +1009,10 @@ end.
{ {
$Log$ $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 Better construction of commandline argv
Revision 1.41 1999/07/05 20:04:30 peter Revision 1.41 1999/07/05 20:04:30 peter