paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 21:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: search unit first in current directory, issue #37466

Browse Source 
git-svn-id: branches/fixes_2_0@63676 -
This commit is contained in:
mattias 2020-08-02 16:28:12 +00:00
parent 08002f607e
commit e400755e2b
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/codetools/directorycacher.pas
View File

@ -1314,6 +1314,11 @@ begin
if Directory='' then begin if Directory='' then begin
// virtual directory => search virtual unit // virtual directory => search virtual unit
Result:=Pool.FindVirtualUnit(AUnitName); Result:=Pool.FindVirtualUnit(AUnitName);
end else begin
// search in current directory
Result:=FindUnitSource(AUnitName,AnyCase);
if Result<>'' then
Result:=Directory+Result;
end; end;
if Result='' then begin if Result='' then begin
// search in search path // search in search path