paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-25 06:31:50 +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; err := 0;
must_reset_fpu := true; must_reset_fpu := true;
{$ifdef SYSTEMEXCEPTIONDEBUG} {$ifdef SYSTEMEXCEPTIONDEBUG}
if IsConsole then Writeln(stderr,'Exception ', if IsConsole then Writeln(stderr,'Exception ',
hexstr(excep^.ExceptionRecord^.ExceptionCode,8)); hexstr(excep^.ExceptionRecord^.ExceptionCode,8));
{$endif SYSTEMEXCEPTIONDEBUG} {$endif SYSTEMEXCEPTIONDEBUG}
case cardinal(excep^.ExceptionRecord^.ExceptionCode) of 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 if ((excep^.ExceptionRecord^.ExceptionCode and SEVERITY_ERROR) = SEVERITY_ERROR) then
err := 217 err := 217
else 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;
end; end;