codetools: fixed FindMissingUnits

git-svn-id: branches/fixes_1_8@56270 -
This commit is contained in:
mattias 2017-11-03 23:05:10 +00:00
parent 4149cf0778
commit c6b2fe6ef4

View File

@ -1579,7 +1579,7 @@ begin
if FixCase then
SourceChangeCache.MainScanner:=Scanner;
try
if not CheckUsesSection(FindMainUsesNode(true)) then exit;
if not CheckUsesSection(FindMainUsesNode) then exit;
if SearchImplementation
and not CheckUsesSection(FindImplementationUsesNode) then exit;
except