paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-02 18:37:18 +01:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup of previous stuff

Browse Source 
git-svn-id: trunk@5619 -
This commit is contained in:
Almindor 2006-12-17 10:57:36 +00:00
parent 39b718f62a
commit a21e39ae16
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fcl/unix/process.inc
View File

@ -248,7 +248,7 @@ Var
FEnv : PPChar;
Argv : PPChar;
fd : Integer;
PName,p2 : String;
PName : String;
begin
If (poUsePipes in FProcessOptions) then
@ -271,16 +271,13 @@ begin
PName:=CommandLine;
end;
if not FileExists(PName) then
P2 := FileSearch(Pname,fpgetenv('PATH'))
else
P2 := PName;
If (P2='') then
Raise EProcess.CreateFmt(SErrNoSuchProgram,[PName])
else
PName:=P2;
if not FileExists(PName) then begin
PName := FileSearch(Pname,fpgetenv('PATH'));
if Length(PName) = 0 then
raise EProcess.CreateFmt(SErrNoSuchProgram,[PName]);
end;
Pid:=fpfork;
if Pid<0 then
Raise EProcess.Create('Failed to Fork process');