paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-09 15:37:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

- removed unused FPC_psabieh_can_catch()

Browse Source 
* added missing exit in FPC_psabieh_find_action_record
  * fixed type error in call to _Unwind_SetGR() (caught by compiler fix for
    that intrinsic)

git-svn-id: branches/debug_eh@40073 -
This commit is contained in:
Jonas Maebe 2018-10-28 19:54:04 +00:00
parent b2d1ab7f05
commit 4bc0e49878
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/psabieh.inc
View File

@ -331,11 +331,6 @@ function FPC_psabieh_get_ttype_entry(const info: FPC_psabieh_lsda_header_info; i
result:=TClass(ptr);
end;
function FPC_psabieh_can_catch(catch_type: TClass; thrown: TObject): boolean;
begin
result:=thrown is catch_type
end;
// Return true if THROW_TYPE matches one if the filter types.
function FPC_psabieh_check_exception_spec(const info: FPC_psabieh_lsda_header_info; thrown: TObject; filter_value: PtrInt): boolean;
var
@ -410,6 +405,7 @@ function FPC_psabieh_find_action_record(const info: FPC_psabieh_lsda_header_info
if cs_action<>0 then
action_record:=info.action_table+cs_action-1;
result:=true;
exit;
end;
end;
end;
@ -652,7 +648,7 @@ function FPC_psabieh_personality_v0(version: cint; actions: FPC_Unwind_Action; e
{$if sizeof(pointer)<>sizeof(SizeInt)}
{$error Add support for extending pointer values}
{$endif}
_Unwind_SetGR(context,fpc_eh_return_data_regno(0),libunwind_exception);
_Unwind_SetGR(context,fpc_eh_return_data_regno(0),PtrUInt(libunwind_exception));
_Unwind_SetGR (context,fpc_eh_return_data_regno(1),handler_switch_value);
_Unwind_SetIP(context,landing_pad);
result:=FPC_URC_INSTALL_CONTEXT;