From 633a902565a37d766832ea513049c6b8b12e573a Mon Sep 17 00:00:00 2001
From: Tomas Hajny <hajny@freepascal.org>
Date: Sat, 29 Sep 2007 15:48:26 +0000
Subject: [PATCH]   * exception handler is a function, not procedure

git-svn-id: trunk@8680 -
---
 rtl/os2/doscalls.pas | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/rtl/os2/doscalls.pas b/rtl/os2/doscalls.pas
index adeeb723c3..73afe82870 100644
--- a/rtl/os2/doscalls.pas
+++ b/rtl/os2/doscalls.pas
@@ -502,7 +502,9 @@ const   MaxPathLength=260;
         MaxPathComponent=256;
 
 type    TFileLock=record
-            Offset,Range:longint;
+         case boolean of
+          false: (Offset, Range: longint);
+          true:  (lOffset, lRange: longint);
         end;
         PFileLock=^TFileLock;
         FileLock=TFileLock;
@@ -2394,10 +2396,11 @@ type        PExceptionRegistrationRecord=^TExceptionRegistrationRecord;
             PExceptionReportRecord=^TExceptionReportRecord;
             PContextRecord=^TContextRecord;
 
-            TExceptionHandler=procedure(Report:PExceptionReportRecord;
-                                        RegRec:PExceptionRegistrationRecord;
-                                        Context:PContextRecord;
-                                        DispContext:pointer); cdecl;
+            TExceptionHandler = function (Report: PExceptionReportRecord;
+                                          RegRec: PExceptionRegistrationRecord;
+                                          Context: PContextRecord;
+                                          DispContext: pointer): cardinal;
+                                                                         cdecl;
 
             TExceptionRegistrationRecord=record
                 Prev_Structure:PExceptionRegistrationRecord;