paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-07-22 11:57:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix executable not found exception

Browse Source 
git-svn-id: trunk@9239 -
This commit is contained in:
peter 2007-11-13 19:23:34 +00:00
parent 80008b5146
commit e07b0ee147
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-process/src/unix/process.inc
View File

@ -248,6 +248,7 @@ Var
FEnv : PPChar; FEnv : PPChar;
Argv : PPChar; Argv : PPChar;
fd : Integer; fd : Integer;
FoundName,
PName : String; PName : String;
begin begin
@ -272,9 +273,10 @@ begin
end; end;
if not FileExists(PName) then begin if not FileExists(PName) then begin
PName := FileSearch(Pname,fpgetenv('PATH')); FoundName := FileSearch(Pname,fpgetenv('PATH'));
if FoundName<>'' then
if Length(PName) = 0 then PName:=FoundName
else
raise EProcess.CreateFmt(SErrNoSuchProgram,[PName]); raise EProcess.CreateFmt(SErrNoSuchProgram,[PName]);
end; end;