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

* added psabi eh helpers called from the code generator to the interface of

Browse Source 
the system unit
  * changed a cint to longint as C types are not available there

git-svn-id: branches/debug_eh@40333 -
This commit is contained in:
Jonas Maebe 2018-11-17 09:40:26 +00:00
parent 84de128194
commit 64ba860478
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/psabieh.inc
View File

@ -517,7 +517,7 @@ function FPC_psabieh_find_handler(const info: FPC_psabieh_lsda_header_info; cons
procedure __gxx_personality_v0(version: cint; actions: FPC_Unwind_Action; exceptionClass: cuint64; libunwind_exception: PFPC_Unwind_Exception; context: PFPC_Unwind_Context); cdecl; external;
{$endif FPC_PSABIEH_CPLUSPLUSSUPPORT}
function FPC_psabieh_personality_v0(version: cint; actions: FPC_Unwind_Action; exceptionClass: cuint64; libunwind_exception: PFPC_Unwind_Exception; context: PFPC_Unwind_Context): FPC_Unwind_Reason_Code; cdecl;
function _FPC_psabieh_personality_v0(version: longint; actions: FPC_Unwind_Action; exceptionClass: qword; libunwind_exception: PFPC_Unwind_Exception; context: PFPC_Unwind_Context): FPC_Unwind_Reason_Code; cdecl;
var
WrappedException: PExceptObject;
found_type: FPC_psabieh_found_handler_type;

3
rtl/inc/psabiehh.inc
View File

@ -57,5 +57,8 @@ const
(a: 'FPC1PAS'#0);
{$pop}
function _FPC_psabieh_personality_v0(version: longint; actions: FPC_Unwind_Action; exceptionClass: qword; libunwind_exception: PFPC_Unwind_Exception; context: PFPC_Unwind_Context): FPC_Unwind_Reason_Code; cdecl;
function FPC_psabi_begin_catch(exc:PFPC_Unwind_Exception): pointer; cdecl; compilerproc;
procedure FPC_psabi_end_catch; cdecl; compilerproc;
{$packrecords default}