From f99cfe35561004f20a132ba821999d71d1e63931 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Tue, 17 May 2011 12:47:25 +0000
Subject: [PATCH] codetools: clean up

git-svn-id: trunk@30784 -
---
 components/codetools/finddeclarationtool.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index e5295d9bb4..ead8dd6847 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -6058,7 +6058,7 @@ var
   OldInput: TFindDeclarationInput;
 begin
   Result:=false;
-  debugln(['TFindDeclarationTool.FindIdentifierInTypeOfConstant ',VarConstNode.DescAsString]);
+  //debugln(['TFindDeclarationTool.FindIdentifierInTypeOfConstant ',VarConstNode.DescAsString]);
   TypeNode:=VarConstNode.FirstChild;
   if TypeNode=nil then exit;
   if TypeNode.Desc=ctnIdentifier then begin
@@ -7853,19 +7853,19 @@ begin
 
   // check each parameter for compatibility
   
-  { $IFDEF ShowExprEval}
+  {$IFDEF ShowExprEval}
   DebugLn('[TFindDeclarationTool.IsParamNodeListCompatibleToExprList] ',
     ' ExprParamList=[',TargetExprParamList.AsString,']');
-  { $ENDIF}
+  {$ENDIF}
   ParamNode:=FirstSourceParameterNode;
   i:=0;
   while (ParamNode<>nil) and (i<TargetExprParamList.Count) do begin
     SourceExprType:=ConvertNodeToExpressionType(ParamNode,Params);
     ParamCompatibility:=IsCompatible(TargetExprParamList.Items[i],
                                      SourceExprType,Params);
-    { $IFDEF ShowExprEval}
+    {$IFDEF ShowExprEval}
     DebugLn(['[TFindDeclarationTool.IsParamNodeListCompatibleToExprList] B ',i,' Source=[',ExprTypeToString(SourceExprType),'] Target=[',ExprTypeToString(TargetExprParamList.Items[i]),'] Result=',TypeCompatibilityNames[ParamCompatibility]]);
-    { $ENDIF}
+    {$ENDIF}
     if CompatibilityList<>nil then
       CompatibilityList[i]:=ParamCompatibility;
     if ParamCompatibility=tcIncompatible then begin