paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-10 05:16:48 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: less verbosity

Browse Source 
git-svn-id: trunk@35727 -
This commit is contained in:
mattias 2012-03-05 11:20:32 +00:00
parent d42de5d07d
commit dd14bccb30
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/eventcodetool.pas
View File

@ -885,9 +885,9 @@ begin
try try
if (ClassNode=nil) or (ClassNode.Desc<>ctnClass) or (AMethodName='') if (ClassNode=nil) or (ClassNode.Desc<>ctnClass) or (AMethodName='')
or (ATypeInfo=nil) or (SourceChangeCache=nil) or (Scanner=nil) then exit; or (ATypeInfo=nil) or (SourceChangeCache=nil) or (Scanner=nil) then exit;
{ $IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn(['[TEventsCodeTool.CreateMethod] A AMethodName="',AMethodName,'" in "',MainFilename,'" UseTypeInfoForParameters=',UseTypeInfoForParameters]); DebugLn(['[TEventsCodeTool.CreateMethod] A AMethodName="',AMethodName,'" in "',MainFilename,'" UseTypeInfoForParameters=',UseTypeInfoForParameters]);
{ $ENDIF} {$ENDIF}
// initialize class for code completion // initialize class for code completion
CodeCompleteClassNode:=ClassNode; CodeCompleteClassNode:=ClassNode;
CodeCompleteSrcChgCache:=SourceChangeCache; CodeCompleteSrcChgCache:=SourceChangeCache;
@ -908,9 +908,9 @@ begin
[phpWithoutClassName, phpWithoutName, phpInUpperCase]); [phpWithoutClassName, phpWithoutName, phpInUpperCase]);
end; end;
if not ProcExistsInCodeCompleteClass(CleanMethodDefinition) then begin if not ProcExistsInCodeCompleteClass(CleanMethodDefinition) then begin
{ $IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.CreateMethod] insert method definition to class'); DebugLn('[TEventsCodeTool.CreateMethod] insert method definition to class');
{ $ENDIF} {$ENDIF}
// insert method definition into class // insert method definition into class
InsertCall:=''; InsertCall:='';
if UseTypeInfoForParameters then begin if UseTypeInfoForParameters then begin
@ -939,9 +939,9 @@ begin
phpWithoutParamTypes])); phpWithoutParamTypes]));
end; end;
end; end;
{ $IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.CreateMethod] MethodDefinition="',MethodDefinition,'"'); DebugLn('[TEventsCodeTool.CreateMethod] MethodDefinition="',MethodDefinition,'"');
{ $ENDIF} {$ENDIF}
if Section in [pcsPublished,pcsPublic] then if Section in [pcsPublished,pcsPublic] then
NewSection:=ncpPublishedProcs NewSection:=ncpPublishedProcs
else else
@ -966,9 +966,9 @@ begin
AddClassInsertion(CleanMethodDefinition, MethodDefinition, AMethodName, AddClassInsertion(CleanMethodDefinition, MethodDefinition, AMethodName,
NewSection,nil,ProcBody); NewSection,nil,ProcBody);
end; end;
{ $IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.CreateMethod] invoke class completion'); DebugLn('[TEventsCodeTool.CreateMethod] invoke class completion');
{ $ENDIF} {$ENDIF}
if not InsertAllNewClassParts then if not InsertAllNewClassParts then
RaiseException(ctsErrorDuringInsertingNewClassParts); RaiseException(ctsErrorDuringInsertingNewClassParts);
if not CreateMissingProcBodies then if not CreateMissingProcBodies then
@ -979,9 +979,9 @@ begin
// apply the changes // apply the changes
if not SourceChangeCache.Apply then if not SourceChangeCache.Apply then
RaiseException(ctsUnableToApplyChanges); RaiseException(ctsUnableToApplyChanges);
{ $IFDEF CTDEBUG} {$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.CreateMethod] END'); DebugLn('[TEventsCodeTool.CreateMethod] END');
{ $ENDIF} {$ENDIF}
Result:=true; Result:=true;
finally finally
FreeClassInsertionList; FreeClassInsertionList;
@ -1111,7 +1111,7 @@ begin
end; end;
// search base type of property // search base type of property
TypeContext:=Params.NewCodeTool.FindBaseTypeOfNode(Params,PropNode); TypeContext:=Params.NewCodeTool.FindBaseTypeOfNode(Params,PropNode);
debugln(['TEventsCodeTool.FindTypeOfPropertyInfo ',FindContextToString(TypeContext)]); //debugln(['TEventsCodeTool.FindTypeOfPropertyInfo ',FindContextToString(TypeContext)]);
Result:=true; Result:=true;
finally finally
Params.Free; Params.Free;

2
components/codetools/finddeclarationtool.pas
View File

@ -1643,7 +1643,7 @@ var
begin begin
Result:=false; Result:=false;
NewContext:=CleanFindContext; NewContext:=CleanFindContext;
DebugLn('TFindDeclarationTool.FindDeclarationOfPropertyPath ',MainFilename,' PropertyPath="',PropertyPath,'"'); //DebugLn('TFindDeclarationTool.FindDeclarationOfPropertyPath ',MainFilename,' PropertyPath="',PropertyPath,'"');
if PropertyPath='' then exit; if PropertyPath='' then exit;
ActivateGlobalWriteLock; ActivateGlobalWriteLock;
Params:=TFindDeclarationParams.Create; Params:=TFindDeclarationParams.Create;