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

+ Added more system exception handling afte T. Schatzl remark

Browse Source
This commit is contained in:
michael 2000-03-16 20:42:26 +00:00
parent 733b361891
commit 27b0900075
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/win32/syswin32.pp
View File

@ -907,6 +907,9 @@ const
EXCEPTION_NONCONTINUABLE = $1;
EXCEPTION_STACK_OVERFLOW = $c00000fd;
EXCEPTION_INVALID_DISPOSITION = $c0000026;
EXCEPTION_ILLEGAL_INSTRUCTION = $C000001D;
EXCEPTION_IN_PAGE_ERROR = $C0000006;
ExceptionContinueExecution = 0;
ExceptionContinueSearch = 1;
type
@ -1020,6 +1023,9 @@ type pexception_record = ^exception_record;
EXCEPTION_STACK_OVERFLOW :
HandleErrorFrame(202,frame);
{EXCEPTION_INVALID_DISPOSITION = $c0000026;}
EXCEPTION_ILLEGAL_INSTRUCTION,
EXCEPTION_IN_PAGE_ERROR,
EXCEPTION_SINGLE_STEP : HandleErrorFrame(217,frame)
end;
end;
@ -1180,7 +1186,10 @@ end.
{
$Log$
Revision 1.61 2000-03-10 09:21:11 pierre
Revision 1.62 2000-03-16 20:42:26 michael
+ Added more system exception handling afte T. Schatzl remark
Revision 1.61 2000/03/10 09:21:11 pierre
* ExitDLL fixed : uses now SetJmp LongJmp
* System_exit unloads the exception hanlder before leaving