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

* renamed FPC_USE_PSEABIEH to FPC_USE_PSABIEH

Browse Source 
git-svn-id: branches/debug_eh@40400 -
This commit is contained in:
Jonas Maebe 2018-11-29 21:30:42 +00:00
parent bc8ed77af1
commit 3cfad8fba8
3 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/except.inc
View File

@ -26,7 +26,7 @@ Var
ExceptObjectStack : PExceptObject;
ExceptTryLevel : ObjpasInt;
{$ifdef FPC_USE_PSEABIEH}
{$ifdef FPC_USE_PSABIEH}
{$i psabieh.inc}
{$endif}

2
rtl/inc/excepth.inc
View File

@ -12,7 +12,7 @@
**********************************************************************}
{$if defined(FPC_USE_PSEABIEH)}
{$if defined(FPC_USE_PSABIEH)}
{$i psabiehh.inc}
{$endif}

8
rtl/inc/objpash.inc
View File

@ -339,7 +339,7 @@
PPDispatch = ^PDispatch;
PInterface = PUnknown;
{$ifdef FPC_USE_PSEABIEH}
{$ifdef FPC_USE_PSABIEH}
{ needed here for TExceptObject (rest is in psabiehh.inc) }
FPC_Unwind_Reason_Code = longint; {cint}
FPC_Unwind_Action = longint; {cint}
@ -355,7 +355,7 @@
private_1: ptruint;
private_2: ptruint;
end;
{$endif FPC_USE_PSEABIEH}
{$endif FPC_USE_PSABIEH}
TExceptProc = Procedure (Obj : TObject; Addr : CodePointer; FrameCount:Longint; Frame: PCodePointer);
@ -373,14 +373,14 @@
ExceptRec : Pointer;
ReraiseBuf : jmp_buf;
{$endif FPC_USE_WIN32_SEH}
{$ifdef FPC_USE_PSEABIEH}
{$ifdef FPC_USE_PSABIEH}
{ cached info from unwind phase for action phase }
handler_switch_value: longint;
language_specific_data: PByte;
landing_pad: PtrUInt;
{ libunwind exception handling data (must be last!) }
unwind_exception: FPC_Unwind_Exception;
{$endif FPC_USE_PSEABIEH}
{$endif FPC_USE_PSABIEH}
end;
Const