paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 11:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* exception handler is a function, not procedure

Browse Source 
git-svn-id: trunk@8680 -
This commit is contained in:
Tomas Hajny 2007-09-29 15:48:26 +00:00
parent fdcc5f4332
commit 633a902565
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/os2/doscalls.pas
View File

@ -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;