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

lcl: revert ocasional debug change in r23237 #3319ecca5b

Browse Source 
git-svn-id: trunk@23250 -
This commit is contained in:
paul 2009-12-24 02:04:18 +00:00
parent a6b3593987
commit f71903390f
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/application.inc
View File

@ -2094,9 +2094,6 @@ var
IsFirstItem: Boolean; IsFirstItem: Boolean;
begin begin
if csDestroying in AComponent.ComponentState then exit; if csDestroying in AComponent.ComponentState then exit;
if AComponent.ClassName='TSynEdit' then
DumpStack;
//DebugLn(['TApplication.ReleaseComponent ',DbgSName(AComponent)]); //DebugLn(['TApplication.ReleaseComponent ',DbgSName(AComponent)]);
if AppDestroying in FFlags then begin if AppDestroying in FFlags then begin
// free immediately // free immediately