From 8298e344f3450c99775e64402869c26ed0d09853 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 3 Jan 2013 13:56:50 +0000
Subject: [PATCH] codetools: added flag -dVerboseFindDeclarationFail

git-svn-id: trunk@39749 -
---
 components/codetools/finddeclarationtool.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index a88459e8fb..700a9f55bd 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -64,6 +64,7 @@ interface
 { $DEFINE ShowCacheDependencies}
 { $DEFINE ShowCollect}
 { $DEFINE ShowProcSearch}
+{ $DEFINE VerboseFindDeclarationFail}
 { $DEFINE DebugAddToolDependency}
 
 {$IFDEF CTDEBUG}{$DEFINE DebugPrefix}{$ENDIF}
@@ -1582,6 +1583,14 @@ begin
   finally
     ClearIgnoreErrorAfter;
     DeactivateGlobalWriteLock;
+    {$IFDEF VerboseFindDeclarationFail}
+    debugln(['TFindDeclarationTool.FindDeclaration failed',
+      ' CursorPos=X=',CursorPos.X,',Y=',CursorPos.Y,
+      ',File=',CursorPos.Code.Filename,
+      ',LineCount=',CursorPos.Code.LineCount]);
+    if CursorPos.Y<=CursorPos.Code.LineCount then
+      debugln([' Line="',dbgstr(CursorPos.Code.GetLine(CursorPos.Y-1),1,CursorPos.X-1),'|',dbgstr(CursorPos.Code.GetLine(CursorPos.Y-1),CursorPos.X,1000),'"']);
+    {$ENDIF}
   end;
 end;