ShuriZma
/
FPPS4
mirror of https://github.com/red-prig/fpPS4.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

+

This commit is contained in:
Pavel 2024-10-27 06:17:21 +03:00
parent 415d28f180
commit 48dc399dcb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sys/md/md_exception.pas
View File

@ -263,6 +263,8 @@ begin
Result:=EXCEPTION_CONTINUE_SEARCH;
if (curkthread=nil) then Exit;
Writeln('ProcessException:0x',HexStr(get_exception(p),8));
case get_exception(p) of
FPC_EXCEPTION_CODE :Exit;
FPC_SET_EH_HANDLER :Exit(EXCEPTION_CONTINUE_EXECUTION);
@ -341,6 +343,8 @@ var
begin
Result:=EXCEPTION_CONTINUE_SEARCH;
Writeln('UnhandledException:0x',HexStr(get_exception(p),8));
case get_exception(p) of
FPC_EXCEPTION_CODE :Exit;
FPC_SET_EH_HANDLER :Exit(EXCEPTION_CONTINUE_EXECUTION);