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

* call runerror(217) instead of halt(217) when using Dwarf-EH in similar

Browse Source 
cases as where this happens with the standard SjLj-base exception handling

git-svn-id: branches/debug_eh@40419 -
This commit is contained in:
Jonas Maebe 2018-11-29 21:38:58 +00:00
parent df0a126064
commit aff3a15081
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/inc/psabieh.inc
View File

@ -693,7 +693,7 @@ function _FPC_psabieh_personality_v0(version: longint; actions: FPC_Unwind_Actio
{$ifdef excdebug}
writeln('foreign exception or force unwind, and found type = found terminate; actions = $',hexstr(actions,sizeof(actions)*2),'; foreign exception ', foreign_exception);
{$endif}
halt(217);
RunError(217);
end
{ can only perform cleanups when force-unwinding }
else if handler_switch_value<0 then
@ -701,7 +701,7 @@ function _FPC_psabieh_personality_v0(version: longint; actions: FPC_Unwind_Actio
{$ifdef excdebug}
writeln('foreign exception or force unwind, handler_switch_value < 0: ', handler_switch_value);
{$endif}
halt(217)
RunError(217)
end
end
else
@ -711,7 +711,7 @@ function _FPC_psabieh_personality_v0(version: longint; actions: FPC_Unwind_Actio
{$ifdef excdebug}
writeln('native exception and no force unwind, and force_terminate');
{$endif}
halt(217);
RunError(217);
end;
end;
{ For targets with pointers smaller than the word size, we must extend the
@ -935,7 +935,7 @@ procedure FPC_psabi_end_catch; cdecl; compilerproc;
{$ifdef excdebug}
writeln('refcount for exception is negative in end catch');
{$endif}
halt(217);
RunError(217);
end;
end;
_ExceptObjectStack^.refcount:=refcount;
@ -970,7 +970,7 @@ procedure fpc_ReRaise; [public,alias:'FPC_RERAISE']; compilerproc;
ExceptObjectStack:=nil;
__cxa_rethrow;
{ should never be reached }
halt(217);
RunError(217);
end
{$endif FPC_PSABIEH_CPLUSPLUSSUPPORT}
else
@ -995,9 +995,9 @@ procedure fpc_ReRaise; [public,alias:'FPC_RERAISE']; compilerproc;
// #endif
// #endif
// Some sort of unwinding error.
halt(217);
RunError(217);
end;
halt(217);
RunError(217);
end;
@ -1013,7 +1013,7 @@ procedure fpc_raise_nested;compilerproc;
{$ifdef excdebug}
writeln ('raise_nested: At end of ExceptionObjectStack');
{$endif}
halt(217);
halt(1);
end;
if _ExceptObjectStack^.unwind_exception.exception_class<>FPC_psabieh_exceptionClass_ID.u then
@ -1021,7 +1021,7 @@ procedure fpc_raise_nested;compilerproc;
{$ifdef excdebug}
writeln ('raise_nested: top of stack contains foreign exception');
{$endif}
halt(217);
halt(1);
end;
hp:=_ExceptObjectStack^.next;
@ -1037,7 +1037,7 @@ procedure fpc_raise_nested;compilerproc;
else
dec(hp^.refcount);
_Unwind_RaiseException(@_ExceptObjectStack^.unwind_exception);
halt(217);
RunError(217);
end;
procedure FPC_DummyPotentialRaise; nostackframe; assembler;