From b226bae7a4784f7065e004ff9431cef36b2fd51f Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 1 May 2010 18:09:10 +0000
Subject: [PATCH] codetools: debugging

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

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 63a9dbf43a..199ff10e16 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -6876,8 +6876,8 @@ var
 begin
   {$IFDEF CheckNodeTool}CheckNodeTool(Node);{$ENDIF}
   {$IFDEF ShowExprEval}
-  DebugLn('[TFindDeclarationTool.ConvertNodeToExpressionType] A',
-  ' Node=',Node.DescAsString);
+  DebugLn(['[TFindDeclarationTool.ConvertNodeToExpressionType] A',
+  ' Node=',Node.DescAsString,' "',dbgstr(copy(ExtractNode(Node,[]),1,30)),'"']);
   {$ENDIF}
   BaseContext:=FindBaseTypeOfNode(Params,Node);
   Node:=BaseContext.Node;
@@ -6966,6 +6966,11 @@ begin
       Result.Context:=CreateFindContext(Self,Node);
     end;
   end;
+
+  {$IFDEF ShowExprEval}
+  DebugLn('[TFindDeclarationTool.ConvertNodeToExpressionType] END',
+  ' Expr=',ExprTypeToString(Result));
+  {$ENDIF}
 end;
 
 function TFindDeclarationTool.ReadOperandTypeAtCursor(