From 32f1e69fdd449fa216ed606c96335c29121e9898 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sun, 2 Aug 2020 16:27:24 +0000
Subject: [PATCH] codetools: search unit first in current directory, issue
 #37466

git-svn-id: trunk@63675 -
---
 components/codetools/directorycacher.pas | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/components/codetools/directorycacher.pas b/components/codetools/directorycacher.pas
index d7571ae71f..d425f5384c 100644
--- a/components/codetools/directorycacher.pas
+++ b/components/codetools/directorycacher.pas
@@ -1277,6 +1277,11 @@ begin
       if Directory='' then begin
         // virtual directory => search virtual unit
         Result:=Pool.FindVirtualUnit(AUnitName);
+      end else begin
+        // search in current directory
+        Result:=FindUnitSource(AUnitName,AnyCase);
+        if Result<>'' then
+          Result:=Directory+Result;
       end;
       if Result='' then begin
         // search in search path