From aa4b6036a550a67a7d8cf9d9679208f57fce96f9 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 24 Jul 2010 23:55:32 +0000
Subject: [PATCH] codetools: check fpc paths: show candidates for missing
 source files

git-svn-id: trunk@26825 -
---
 components/codetools/examples/testfpcsrcunitrules.lpr | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/components/codetools/examples/testfpcsrcunitrules.lpr b/components/codetools/examples/testfpcsrcunitrules.lpr
index 183ce219b9..292d759430 100644
--- a/components/codetools/examples/testfpcsrcunitrules.lpr
+++ b/components/codetools/examples/testfpcsrcunitrules.lpr
@@ -265,9 +265,12 @@ var
   aUnitName: String;
   Cnt: Integer;
   Filename: String;
+  SourceCache: TFPCSourceCache;
+  i: Integer;
 begin
   UnitToSrc:=UnitSet.GetUnitToSourceTree(false);
   ConfigCache:=UnitSet.GetConfigCache(false);
+  SourceCache:=UnitSet.GetSourceCache(false);
   if ConfigCache.Units<>nil then begin
     Cnt:=0;
     Node:=ConfigCache.Units.Tree.FindLowest;
@@ -281,6 +284,11 @@ begin
           inc(Cnt);
           if Cnt=1 then writeln;
           writeln('WARNING: no source found for PPU file: '+Filename);
+          for i:=0 to SourceCache.Files.Count-1 do begin
+            if SysUtils.CompareText(ExtractFileNameOnly(SourceCache.Files[i]),aUnitName)=0
+            then
+              writeln('      Candidate: ',SourceCache.Files[i]);
+          end;
         end;
       end;
       Node:=ConfigCache.Units.Tree.FindSuccessor(Node);