paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Fix for command-line property

Browse Source
This commit is contained in:
michael 2004-08-13 10:00:52 +00:00
parent 29bae36989
commit 973bf7028d
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/unix/process.inc
View File

@ -304,9 +304,15 @@ begin
Try
Argv:=MakeCommand(Self);
Try
PName:=ApplicationName;
If (PName='') then
PName:=CommandLine;
If (Argv<>Nil) and (ArgV[0]<>Nil) then
PName:=StrPas(Argv[0])
else
begin
// This should never happen, actually.
PName:=ApplicationName;
If (PName='') then
PName:=CommandLine;
end;
if (pos('/',PName)<>1) then
PName:=FileSearch(Pname,fpgetenv('PATH'));
Pid:=fpfork;