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

* deref childs of loopnodes (needed to fix mantis #11182 on 2.2.1;

Browse Source 
that one doesn't crash 2.3.1, but this bug could still crash 2.3.1
    in other cases)

git-svn-id: trunk@10893 -
This commit is contained in:
Jonas Maebe 2008-05-06 13:36:18 +00:00
parent aa4e14f96a
commit 2df5878ee4
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nflw.pas
View File

@ -63,6 +63,7 @@ interface
function dogetcopy : tnode;override; function dogetcopy : tnode;override;
constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override; constructor ppuload(t:tnodetype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override; procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure derefnode;override;
procedure buildderefimpl;override; procedure buildderefimpl;override;
procedure derefimpl;override; procedure derefimpl;override;
procedure insertintolist(l : tnodelist);override; procedure insertintolist(l : tnodelist);override;
@ -266,6 +267,15 @@ implementation
end; end;
procedure tloopnode.derefnode;
begin
inherited derefnode;
if assigned(t1) then
t1.derefnode;
if assigned(t2) then
t2.derefnode;
end;
procedure tloopnode.buildderefimpl; procedure tloopnode.buildderefimpl;
begin begin
inherited buildderefimpl; inherited buildderefimpl;