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

lcl: remove hint

Browse Source 
git-svn-id: trunk@22726 -
This commit is contained in:
paul 2009-11-23 14:59:30 +00:00
parent cea7ca2577
commit 6264b25bc3
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -1578,8 +1578,10 @@ end;
//------------------------------------------------------------------------------
procedure ExceptionOccurred(Sender: TObject; Addr:Pointer; FrameCount: Longint;
Frames: PPointer);
{$ifdef DEBUG_ALLOW_DUMPBACKTRACE}
var
FrameNumber: integer;
{$endif}
Begin
DebugLn('[FORMS.PP] ExceptionOccurred ');
if HaltingProgram or HandlingException then Halt;