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

fix for 1.9.7 and higher.

Browse Source 
git-svn-id: trunk@6706 -
This commit is contained in:
vincents 2005-01-28 11:40:32 +00:00
parent 2a59522bf1
commit 71f4a8dab7
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/forms.pp
View File

@ -1212,7 +1212,15 @@ end;
//------------------------------------------------------------------------------
{$IFNDEF VER1_0}
{$IFNDEF VER1_9_6}
procedure ExceptionOccurred(Sender: TObject; Addr:Pointer; FrameCount:Longint; Frames: PPointer);
{$ELSE}
procedure ExceptionOccurred(Sender: TObject; Addr,Frame: Pointer);
{$ENDIF}
{$ELSE}
procedure ExceptionOccurred(Sender: TObject; Addr,Frame: Pointer);
{$ENDIF}
Begin
DebugLn('[FORMS.PP] ExceptionOccurred ');
if HaltingProgram or HandlingException then Halt;