paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 06:07:37 +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; FEnv : PPChar;
Argv : PPChar; Argv : PPChar;
fd : Integer; fd : Integer;
PName,p2 : String; PName : String;
begin begin
If (poUsePipes in FProcessOptions) then If (poUsePipes in FProcessOptions) then
@ -271,16 +271,13 @@ begin
PName:=CommandLine; PName:=CommandLine;
end; end;
if not FileExists(PName) then if not FileExists(PName) then begin
P2 := FileSearch(Pname,fpgetenv('PATH')) PName := FileSearch(Pname,fpgetenv('PATH'));
else
P2 := PName; if Length(PName) = 0 then
raise EProcess.CreateFmt(SErrNoSuchProgram,[PName]);
If (P2='') then end;
Raise EProcess.CreateFmt(SErrNoSuchProgram,[PName])
else
PName:=P2;
Pid:=fpfork; Pid:=fpfork;
if Pid<0 then if Pid<0 then
Raise EProcess.Create('Failed to Fork process'); Raise EProcess.Create('Failed to Fork process');