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

* only call destructor in except block when there is a destructor

Browse Source 
available
This commit is contained in:
peter 2003-05-13 21:26:38 +00:00
parent fcea95f596
commit 1a7f159fad
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/psub.pas
View File

@ -427,8 +427,10 @@ implementation
begin
generate_except_block:=internalstatements(newstatement,true);
{ a constructor needs call destroy when it is not inherited }
if (current_procdef.proctypeoption=potype_constructor) then
{ a constructor needs call destructor (if available) when it
is not inherited }
if assigned(current_procdef._class) and
(current_procdef.proctypeoption=potype_constructor) then
begin
pd:=current_procdef._class.searchdestructor;
if assigned(pd) then
@ -440,9 +442,7 @@ implementation
cnilnode.create),
ccallnode.create(nil,tprocsym(pd.procsym),pd.procsym.owner,load_self_node),
nil));
end
else
internalerror(200305107);
end;
end
else
begin
@ -1127,7 +1127,11 @@ implementation
end.
{
$Log$
Revision 1.111 2003-05-13 19:14:41 peter
Revision 1.112 2003-05-13 21:26:38 peter
* only call destructor in except block when there is a destructor
available
Revision 1.111 2003/05/13 19:14:41 peter
* failn removed
* inherited result code check moven to pexpr