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

* fixed recording caught exceptions on the exception stack in

Browse Source 
FPC_psabi_begin_catchh

git-svn-id: branches/debug_eh@40341 -
This commit is contained in:
Jonas Maebe 2018-11-17 16:21:40 +00:00
parent 4d262e0eca
commit e2664e5c30
1 changed files with 1 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

@ -836,7 +836,7 @@ function FPC_psabi_begin_catch(exc:PFPC_Unwind_Exception): pointer; cdecl; compi
if _ExceptObjectStack<>ExceptWrapper then if _ExceptObjectStack<>ExceptWrapper then
begin begin
ExceptWrapper^.Next:=_ExceptObjectStack; ExceptWrapper^.Next:=_ExceptObjectStack;
_ExceptObjectStack:=ExceptWrapper; ExceptObjectStack:=ExceptWrapper;
end; end;
result:= ExceptWrapper^.FObject; result:= ExceptWrapper^.FObject;