From f00e8050b6c8f89cbdf71e8c967b8033e775b63a Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 19 Mar 2011 16:24:08 +0000
Subject: [PATCH] codetools: clean up

git-svn-id: trunk@29912 -
---
 components/codetools/eventcodetool.pas       |  7 ++++---
 components/codetools/finddeclarationtool.pas | 10 +++++-----
 2 files changed, 9 insertions(+), 8 deletions(-)

diff --git a/components/codetools/eventcodetool.pas b/components/codetools/eventcodetool.pas
index 7eb79bb71a..0e11bd6f8b 100644
--- a/components/codetools/eventcodetool.pas
+++ b/components/codetools/eventcodetool.pas
@@ -506,7 +506,7 @@ var
 begin
   Result:=false;
   MethodIsCompatible:=false;
-  IdentIsmethod:=false;
+  IdentIsMethod:=false;
   MethodIsPublished:=false;
   ActivateGlobalWriteLock;
   FreeAndNil(SearchedExprList);
@@ -518,9 +518,9 @@ begin
       Params.SetIdentifier(Self,@UpperMethodName[1],nil);
       Params.Flags:=[fdfSearchInAncestors];
       if FindIdentifierInContext(Params) then begin
-        IdentIsmethod:=(Params.NewNode.Desc=ctnProcedure);
+        IdentIsMethod:=(Params.NewNode.Desc=ctnProcedure);
         MethodIsPublished:=(Params.NewNode.Parent.Desc=ctnClassPublished);
-        if IdentIsmethod and MethodIsPublished then begin
+        if IdentIsMethod and MethodIsPublished then begin
           // published method with same name found
           FoundContext:=CreateFindContext(Params);
           // -> test for compatibility
@@ -530,6 +530,7 @@ begin
           if not CreateExprListFromMethodTypeData(TypeData,Params,SearchedExprList)
           then
             exit(false);
+          debugln(['TEventsCodeTool.PublishedMethodExists SearchedExprList=[',SearchedExprList.AsString,']']);
           // create compatibility list
           CompListSize:=SizeOf(TTypeCompatibility)*SearchedExprList.Count;
           if CompListSize>0 then begin
diff --git a/components/codetools/finddeclarationtool.pas b/components/codetools/finddeclarationtool.pas
index 7aa901b649..687520b2ef 100644
--- a/components/codetools/finddeclarationtool.pas
+++ b/components/codetools/finddeclarationtool.pas
@@ -7790,19 +7790,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}
-    DebugLn('[TFindDeclarationTool.IsParamNodeListCompatibleToExprList] B ',ExprTypeToString(TargetExprParamList.Items[i]),' ',TypeCompatibilityNames[ParamCompatibility]);
-    {$ENDIF}
+    { $IFDEF ShowExprEval}
+    DebugLn(['[TFindDeclarationTool.IsParamNodeListCompatibleToExprList] B ',i,' Source=[',ExprTypeToString(SourceExprType),'] Target=[',ExprTypeToString(TargetExprParamList.Items[i]),'] Result=',TypeCompatibilityNames[ParamCompatibility]]);
+    { $ENDIF}
     if CompatibilityList<>nil then
       CompatibilityList[i]:=ParamCompatibility;
     if ParamCompatibility=tcIncompatible then begin