From 71f4a8dab7025999de3838736d9864138b4db384 Mon Sep 17 00:00:00 2001
From: vincents <vincents@lazarus-ide.org>
Date: Fri, 28 Jan 2005 11:40:32 +0000
Subject: [PATCH] fix for 1.9.7 and higher.

git-svn-id: trunk@6706 -
---
 lcl/forms.pp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/lcl/forms.pp b/lcl/forms.pp
index afd58ae0a4..cd0b0e5955 100644
--- a/lcl/forms.pp
+++ b/lcl/forms.pp
@@ -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;