paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 22:29:24 +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

26
rtl/inc/except.inc
View File

@ -276,18 +276,21 @@ begin
If not(assigned(ExceptObjectStack)) or
not(assigned(ExceptObjectStack^.next)) then
begin
writeln ('At end of ExceptionObjectStack');
halt (1);
writeln ('At end of ExceptionObjectStack');
halt (1);
end
else
begin
{ we need to return the exception object to dispose it }
fpc_PopSecondObjectStack:=ExceptObjectStack^.next^.FObject;
hp:=ExceptObjectStack^.next;
ExceptObjectStack^.next:=hp^.next;
if assigned(hp^.frames) then
freemem(hp^.frames);
dispose(hp);
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
freemem(hp^.frames);
dispose(hp);
end;
end;
@ -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