paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 11:10:48 +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
{ stricly conforming POSIX applications }
{ have the executing filename as argv[0] }
if l=0 then
begin
paramstr := execpathstr;
end
else
// if l=0 then
// begin
// paramstr := execpathstr;
// end
// else
paramstr:=strpas(argv[l]);
end;
@ -613,7 +613,10 @@ End.
{
$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.