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

codetools: improved debugging

Browse Source 
git-svn-id: trunk@16191 -
This commit is contained in:
mattias 2008-08-23 06:45:17 +00:00
parent 8bdd4e2c78
commit d306cba6ac
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/stdcodetools.pas
View File

@ -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