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

* ref. counting for popping second exceptiono object fixed

Browse Source
This commit is contained in:
florian 2005-04-03 11:32:05 +00:00
parent 5a8576ee81
commit cd86e40cb7
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/inc/except.inc
View File

@ -281,8 +281,11 @@ begin
end
else
begin
{ we need to return the exception object to dispose it }
fpc_PopSecondObjectStack:=ExceptObjectStack^.next^.FObject;
if ExceptObjectStack^.next^.refcount=0 then
{ we need to return the exception object to dispose it if refcount=0 }
fpc_PopSecondObjectStack:=ExceptObjectStack^.next^.FObject
else
fpc_PopSecondObjectStack:=nil;
hp:=ExceptObjectStack^.next;
ExceptObjectStack^.next:=hp^.next;
if assigned(hp^.frames) then
@ -346,7 +349,10 @@ begin
end;
{
$Log$
Revision 1.19 2005-02-14 17:13:22 peter
Revision 1.20 2005-04-03 11:32:05 florian
* ref. counting for popping second exceptiono object fixed
Revision 1.19 2005/02/14 17:13:22 peter
* truncate log
Revision 1.18 2005/01/29 17:01:18 peter