paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 04:46:45 +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
if (ClassNode=nil) or (ClassNode.Desc<>ctnClass) or (AMethodName='')
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]);
{ $ENDIF}
{$ENDIF}
// initialize class for code completion
CodeCompleteClassNode:=ClassNode;
CodeCompleteSrcChgCache:=SourceChangeCache;
@ -908,9 +908,9 @@ begin
[phpWithoutClassName, phpWithoutName, phpInUpperCase]);
end;
if not ProcExistsInCodeCompleteClass(CleanMethodDefinition) then begin
{ $IFDEF CTDEBUG}
{$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.CreateMethod] insert method definition to class');
{ $ENDIF}
{$ENDIF}
// insert method definition into class
InsertCall:='';
if UseTypeInfoForParameters then begin
@ -939,9 +939,9 @@ begin
phpWithoutParamTypes]));
end;
end;
{ $IFDEF CTDEBUG}
{$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.CreateMethod] MethodDefinition="',MethodDefinition,'"');
{ $ENDIF}
{$ENDIF}
if Section in [pcsPublished,pcsPublic] then
NewSection:=ncpPublishedProcs
else
@ -966,9 +966,9 @@ begin
AddClassInsertion(CleanMethodDefinition, MethodDefinition, AMethodName,
NewSection,nil,ProcBody);
end;
{ $IFDEF CTDEBUG}
{$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.CreateMethod] invoke class completion');
{ $ENDIF}
{$ENDIF}
if not InsertAllNewClassParts then
RaiseException(ctsErrorDuringInsertingNewClassParts);
if not CreateMissingProcBodies then
@ -979,9 +979,9 @@ begin
// apply the changes
if not SourceChangeCache.Apply then
RaiseException(ctsUnableToApplyChanges);
{ $IFDEF CTDEBUG}
{$IFDEF CTDEBUG}
DebugLn('[TEventsCodeTool.CreateMethod] END');
{ $ENDIF}
{$ENDIF}
Result:=true;
finally
FreeClassInsertionList;
@ -1111,7 +1111,7 @@ begin
end;
// search base type of property
TypeContext:=Params.NewCodeTool.FindBaseTypeOfNode(Params,PropNode);
debugln(['TEventsCodeTool.FindTypeOfPropertyInfo ',FindContextToString(TypeContext)]);
//debugln(['TEventsCodeTool.FindTypeOfPropertyInfo ',FindContextToString(TypeContext)]);
Result:=true;
finally
Params.Free;

2
components/codetools/finddeclarationtool.pas
View File

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