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

* progname fix.

Browse Source
This commit is contained in:
marco 2003-05-29 20:54:09 +00:00
parent dc3b985838
commit 50917559bd
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/bsd/osmain.inc
View File

@ -67,11 +67,11 @@ function paramstr(l: longint) : string;
begin begin
{ stricly conforming POSIX applications } { stricly conforming POSIX applications }
{ have the executing filename as argv[0] } { have the executing filename as argv[0] }
if l=0 then // if l=0 then
begin // begin
paramstr := execpathstr; // paramstr := execpathstr;
end // end
else // else
paramstr:=strpas(argv[l]); paramstr:=strpas(argv[l]);
end; end;
@ -613,7 +613,10 @@ End.
{ {
$Log$ $Log$
Revision 1.1 2003-01-05 19:01:28 marco Revision 1.2 2003-05-29 20:54:09 marco
* progname fix.
Revision 1.1 2003/01/05 19:01:28 marco
* FreeBSD compiles now with baseunix mods. * FreeBSD compiles now with baseunix mods.