From 64f2a4d864b7d01fb39f909976a1ac06b53980cf Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 13 Oct 2000 12:01:52 +0000
Subject: [PATCH]   * fixed exception callback

---
 rtl/win32/syswin32.pp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/rtl/win32/syswin32.pp b/rtl/win32/syswin32.pp
index 5d5dd1b8d7..f6d72da41c 100644
--- a/rtl/win32/syswin32.pp
+++ b/rtl/win32/syswin32.pp
@@ -1060,7 +1060,7 @@ type
         end;
 
      { type of functions that should be used for exception handling }
-        TTopLevelExceptionFilter = function (excep : PExceptionPointers) : Longint;
+        TTopLevelExceptionFilter = function (excep : PExceptionPointers) : Longint;stdcall;
 
 function SetUnhandledExceptionFilter(lpTopLevelExceptionFilter : TTopLevelExceptionFilter) : TTopLevelExceptionFilter;
         external 'kernel32' name 'SetUnhandledExceptionFilter';
@@ -1380,7 +1380,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2000-10-11 16:05:55  peter
+  Revision 1.6  2000-10-13 12:01:52  peter
+    * fixed exception callback
+
+  Revision 1.5  2000/10/11 16:05:55  peter
     * stdcall for callbacks (merged)
 
   Revision 1.4  2000/09/11 20:19:28  florian
@@ -1392,4 +1395,4 @@ end.
   Revision 1.2  2000/07/13 11:33:58  michael
   + removed logs
 
-}
\ No newline at end of file
+}