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

lcl: clean up

Browse Source 
git-svn-id: trunk@22776 -
This commit is contained in:
mattias 2009-11-25 21:48:59 +00:00
parent c15be9e2e1
commit 9277fa9e42
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

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