paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 11:20:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed searching lazarus in current dir

Browse Source 
git-svn-id: trunk@3839 -
This commit is contained in:
mattias 2003-02-07 19:13:57 +00:00
parent 0a3aaf8cc3
commit 04762a6bc3
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/include/linux/lazconf.inc
View File

@ -135,7 +135,8 @@ end;
---------------------------------------------------------------------------}
function FindDefaultCompilerPath: string;
begin
Result:=SearchFileInPath('ppc386','',GetEnv('PATH'),':');
Result:=SearchFileInPath('ppc386','',GetEnv('PATH'),':',
[sffSearchNotInBasePath]);
end;
{---------------------------------------------------------------------------
@ -143,7 +144,8 @@ end;
---------------------------------------------------------------------------}
function FindDefaultMakePath: string;
begin
Result:=SearchFileInPath('make','',GetEnv('PATH'),':');
Result:=SearchFileInPath('make','',GetEnv('PATH'),':',
[sffSearchNotInBasePath]);
end;
{---------------------------------------------------------------------------
@ -159,6 +161,9 @@ end;
{
$Log$
Revision 1.12 2003/02/07 19:13:57 mattias
fixed searching lazarus in current dir
Revision 1.11 2003/02/07 17:49:21 mattias
added ReadAllLinks

3
ide/outputfilter.pas
View File

@ -538,7 +538,8 @@ begin
if Assigned(OnGetIncludePath) then begin
// search with include path of directory
IncludePath:=OnGetIncludePath(FullDir);
Result:=IDEProcs.SearchFileInPath(ShortIncFilename,FullDir,IncludePath,';');
Result:=IDEProcs.SearchFileInPath(ShortIncFilename,FullDir,IncludePath,
';',[]);
if Result<>'' then begin
if LeftStr(Result,length(fCurrentDirectory))=fCurrentDirectory then
Result:=RightStr(Result,length(Result)-length(fCurrentDirectory));