Browse Source

* fixed recording caught exceptions on the exception stack in
FPC_psabi_begin_catchh

git-svn-id: branches/debug_eh@40341 -

Jonas Maebe 6 years ago
parent
commit
e2664e5c30
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/inc/psabieh.inc

+ 1 - 1
rtl/inc/psabieh.inc

@@ -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;