paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 02:49:19 +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 begin
if AComponent=nil then exit; if AComponent=nil then exit;
{$IFDEF VerboseDanglingComponentEvents} {$IFDEF VerboseDanglingComponentEvents}
//debugln('TStandardCodeTool.FindDanglingComponentEvents Checking ',DbgSName(AComponent)); debugln('TStandardCodeTool.FindDanglingComponentEvents Checking ',DbgSName(AComponent));
{$ENDIF} {$ENDIF}
// read all properties and remove doubles // read all properties and remove doubles
TypeInfo:=AComponent.ClassInfo; TypeInfo:=AComponent.ClassInfo;
@ -4353,14 +4353,14 @@ var
CurCount:=PWord(PropInfo)^; CurCount:=PWord(PropInfo)^;
inc(PtrUInt(PropInfo),SizeOf(Word)); inc(PtrUInt(PropInfo),SizeOf(Word));
{$IFDEF VerboseDanglingComponentEvents} {$IFDEF VerboseDanglingComponentEvents}
//debugln(' UnitName=',TypeData^.UnitName,' Type=',TypeInfo^.Name,' CurPropCount=',dbgs(CurCount)); debugln(' UnitName=',TypeData^.UnitName,' Type=',TypeInfo^.Name,' CurPropCount=',dbgs(CurCount));
{$ENDIF} {$ENDIF}
// read properties // read properties
while CurCount>0 do begin while CurCount>0 do begin
// point PropInfo to next propinfo record. // point PropInfo to next propinfo record.
// Located at Name[Length(Name)+1] ! // Located at Name[Length(Name)+1] !
{$IFDEF VerboseDanglingComponentEvents} {$IFDEF VerboseDanglingComponentEvents}
//debugln(' Property ',PropInfo^.Name,' Type=',PropInfo^.PropType^.Name); debugln(' Property ',PropInfo^.Name,' Type=',PropInfo^.PropType^.Name);
{$ENDIF} {$ENDIF}
PropType:=PropInfo^.PropType; PropType:=PropInfo^.PropType;
if PropType^.Kind=tkMethod then begin if PropType^.Kind=tkMethod then begin