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

* override tblocknode.destroy so all statements are freed sequentially

Browse Source 
instead of recusively.
This commit is contained in:
Jonas Maebe 2003-12-10 20:31:40 +00:00
parent 41bf3e473c
commit 8da316cf21
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/nbas.pas
View File

@ -79,6 +79,7 @@ interface
tblocknode = class(tunarynode)
constructor create(l : tnode);virtual;
destructor destroy; override;
function pass_1 : tnode;override;
function det_resulttype:tnode;override;
{$ifdef state_tracking}
@ -350,6 +351,23 @@ implementation
inherited create(blockn,l);
end;
destructor tblocknode.destroy;
var
hp, next: tstatementnode;
begin
hp := tstatementnode(left);
left := nil;
while assigned(hp) do
begin
next := tstatementnode(hp.right);
hp.right := nil;
hp.free;
hp := next;
end;
inherited destroy;
end;
function tblocknode.det_resulttype:tnode;
var
hp : tstatementnode;
@ -965,7 +983,11 @@ begin
end.
{
$Log$
Revision 1.73 2003-11-10 22:02:52 peter
Revision 1.74 2003-12-10 20:31:40 jonas
* override tblocknode.destroy so all statements are freed sequentially
instead of recusively.
Revision 1.73 2003/11/10 22:02:52 peter
* cross unit inlining fixed
Revision 1.72 2003/11/04 15:35:13 peter