paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 01:36:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

external tools are now searched in PATH

Browse Source 
git-svn-id: trunk@3425 -
This commit is contained in:
mattias 2002-10-01 15:45:55 +00:00
parent c5786f8b63
commit 1ad9311c59
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/ideprocs.pp
View File

@ -1115,6 +1115,13 @@ var
SearchPath: string;
Delim: char;
begin
if FilenameIsAbsolute(Programname) then begin
if FileExists(Programname) then
Result:=Programname
else
Result:='';
exit;
end;
Flags:=[];
if not WithBaseDirectory then
Include(Flags,sffDontSearchInBasePath);