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

* reraise has to reset the ref. count to 0

Browse Source 
git-svn-id: branches/debug_eh@41383 -
This commit is contained in:
florian 2019-02-19 22:17:27 +00:00
parent a8c8cc1890
commit b1cc02e417
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/psabieh.inc
View File

@ -1201,8 +1201,9 @@ procedure fpc_ReRaise; [public,alias:'FPC_RERAISE']; compilerproc;
{$endif FPC_PSABIEH_CPLUSPLUSSUPPORT}
else
begin
{ undo the begin_catch }
dec(_ExceptObjectStack^.refcount);
{ reraise has to reset the refcount, this is also what the
generic exception handling does }
_ExceptObjectStack^.refcount := 0;
end;
{$ifdef excdebug}