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

* ignore non critical exceptions

Browse Source 
git-svn-id: trunk@4605 -
This commit is contained in:
florian 2006-09-10 16:13:19 +00:00
parent cd0c38b9d9
commit aa9808f6ce
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win64/system.pp
View File

@ -837,7 +837,7 @@ function syswin64_x86_64_exception_handler(excep : PExceptionPointers) : Longint
err := 0;
must_reset_fpu := true;
{$ifdef SYSTEMEXCEPTIONDEBUG}
if IsConsole then Writeln(stderr,'Exception ',
if IsConsole then Writeln(stderr,'Exception ',
hexstr(excep^.ExceptionRecord^.ExceptionCode,8));
{$endif SYSTEMEXCEPTIONDEBUG}
case cardinal(excep^.ExceptionRecord^.ExceptionCode) of
@ -894,7 +894,11 @@ function syswin64_x86_64_exception_handler(excep : PExceptionPointers) : Longint
if ((excep^.ExceptionRecord^.ExceptionCode and SEVERITY_ERROR) = SEVERITY_ERROR) then
err := 217
else
err := 255;
{ pass through exceptions which aren't an error. The problem is that vectored handlers
always are called before structured ones so we see also internal exceptions of libraries.
I wonder if there is a better solution (FK)
}
res:=EXCEPTION_CONTINUE_SEARCH;
end;
end;