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

LCL: added check for issue #30661

Browse Source 
git-svn-id: trunk@53060 -
This commit is contained in:
mattias 2016-09-30 06:19:21 +00:00
parent 1377f905ad
commit e01bc2c59e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/lclrescache.pas
View File

@ -189,6 +189,13 @@ begin
inc(FReferenceCount); inc(FReferenceCount);
if FReferenceCount = 1 then if FReferenceCount = 1 then
Cache.ItemUsed(Self); Cache.ItemUsed(Self);
{$IFDEF VerboseResCache}
if FReferenceCount = 10 then
begin
WarnReferenceHigh;
DumpStack;
end;
{$ENDIF}
if (FReferenceCount = 1000) or (FReferenceCount = 10000) then if (FReferenceCount = 1000) or (FReferenceCount = 10000) then
WarnReferenceHigh; WarnReferenceHigh;
end; end;