From d306cba6ac489d1d6279bc50555ad1260ddc4c7d Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 23 Aug 2008 06:45:17 +0000 Subject: [PATCH] codetools: improved debugging git-svn-id: trunk@16191 - --- components/codetools/stdcodetools.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/components/codetools/stdcodetools.pas b/components/codetools/stdcodetools.pas index dbb3104e24..b2fbcf7da9 100644 --- a/components/codetools/stdcodetools.pas +++ b/components/codetools/stdcodetools.pas @@ -4340,7 +4340,7 @@ var begin if AComponent=nil then exit; {$IFDEF VerboseDanglingComponentEvents} - //debugln('TStandardCodeTool.FindDanglingComponentEvents Checking ',DbgSName(AComponent)); + debugln('TStandardCodeTool.FindDanglingComponentEvents Checking ',DbgSName(AComponent)); {$ENDIF} // read all properties and remove doubles TypeInfo:=AComponent.ClassInfo; @@ -4353,14 +4353,14 @@ var CurCount:=PWord(PropInfo)^; inc(PtrUInt(PropInfo),SizeOf(Word)); {$IFDEF VerboseDanglingComponentEvents} - //debugln(' UnitName=',TypeData^.UnitName,' Type=',TypeInfo^.Name,' CurPropCount=',dbgs(CurCount)); + debugln(' UnitName=',TypeData^.UnitName,' Type=',TypeInfo^.Name,' CurPropCount=',dbgs(CurCount)); {$ENDIF} // read properties while CurCount>0 do begin // point PropInfo to next propinfo record. // Located at Name[Length(Name)+1] ! {$IFDEF VerboseDanglingComponentEvents} - //debugln(' Property ',PropInfo^.Name,' Type=',PropInfo^.PropType^.Name); + debugln(' Property ',PropInfo^.Name,' Type=',PropInfo^.PropType^.Name); {$ENDIF} PropType:=PropInfo^.PropType; if PropType^.Kind=tkMethod then begin